Ver Mensaje Individual
  #2 (permalink)  
Antiguo 16/01/2004, 15:11
kakarot
 
Fecha de Ingreso: diciembre-2003
Mensajes: 288
Antigüedad: 21 años, 2 meses
Puntos: 0
Yo lo hago atraves de una funcion
Sub carregarCombo(opcion As Integer, formulari As Form)
Dim cont As Integer
Dim rs2 As ADODB.Recordset
Dim sql As String
Select Case opcion
Case 0 'LLENAR COMBO DE TIPO VIVENDA DE LA TABLA TIPOVIVENDA
Call conectarRs(rs2, cn, "TIPOVIVIENDA")
For cont = 0 To rs2.RecordCount - 1
formulari.cmbTipoViv.AddItem rs2("nombreTipo")
rs2.MoveNext
Next ' LLENAR COMBO DE TIPO SUPERFICIE DE LA TABLA TIPOSUPERFICIE
Case 1
Call conectarRs(rs2, cn, "TIPOSUPERFICIE")
For cont = 0 To rs2.RecordCount - 1
formulari.CmbTipoSup.AddItem rs2("nombreTipo")
rs2.MoveNext
Next
Case 2 'LLENAR COMBO DE PERSONAL CON CATEGORIAS
Call conectarRs(rs2, cn, "CATEGORIA")
For cont = 0 To rs2.RecordCount - 1
formulari.cmbCategoria.AddItem rs2("nombre")
rs2.MoveNext
Next
Case Else
Exit Sub
End Select
rs2.Close
End Sub