Ya lo he echo, lo pongo aki para kien lo kiera
Código vb:
Ver originalOption Explicit
Public cnprueba As Connection
Public rsTbl_Direccion As Recordset
Public rsciudad As Recordset
Public rsprovincias As Recordset
Private Sub Form_Load()
Dim i As Integer
'Visualizar el formulario
Form1.Show
Form1.Refresh
Screen.MousePointer = vbHourglass 'reloj de arena
'crear un objeto conexion
Set cnprueba = New Connection
'Establecer sus propiedades
With cnprueba
.Provider = "Microsoft.Jet.oledb.4.0"
.ConnectionString = "prueba.mdb"
End With
cnprueba.Open
'Crear un conjunto de registros desde la tabla Tbl_Direccion
Set rsTbl_Direccion = New Recordset
'Establecer sus propiedades
With rsTbl_Direccion
.Source = "select id,nombre,apellidos,direccion,ciudad,provincia,telefono,cp from Tbl_Direccion"
.ActiveConnection = cnprueba
.LockType = adLockOptimistic
End With
rsTbl_Direccion.Open Options:=adCmdText
'Abrir conjunto de registros
MSFlexGrid1.Cols = 8
MSFlexGrid1.FixedCols = 0
While Not rsTbl_Direccion.EOF
MSFlexGrid1.AddItem rsTbl_Direccion("id") & vbTab & rsTbl_Direccion("nombre") & vbTab & rsTbl_Direccion("apellidos") & vbTab & rsTbl_Direccion("direccion") & vbTab & rsTbl_Direccion("ciudad") & vbTab & rsTbl_Direccion("provincia") & vbTab & rsTbl_Direccion("telefono") & vbTab & rsTbl_Direccion("cp")
rsTbl_Direccion.MoveNext
Wend
MSFlexGrid1.TextMatrix(0, 0) = "ID"
MSFlexGrid1.TextMatrix(0, 1) = "Nombre"
MSFlexGrid1.TextMatrix(0, 2) = "Apellidos"
MSFlexGrid1.TextMatrix(0, 3) = "Direccion"
MSFlexGrid1.TextMatrix(0, 4) = "Ciudad"
MSFlexGrid1.TextMatrix(0, 5) = "Provincia"
MSFlexGrid1.TextMatrix(0, 6) = "Telefono"
MSFlexGrid1.TextMatrix(0, 7) = "CP"
Screen.MousePointer = vbDefault
'Añadimos la tabla ciudad al combo1
Set rsciudad = New Recordset
'Establecer sus propiedades
With rsciudad
.Source = "select ciudad from ciudad"
.ActiveConnection = cnprueba
.LockType = adLockOptimistic
End With
rsciudad.Open Options:=adCmdText
'Abrir conjunto de registros
Do Until rsciudad.EOF()
Combo1.AddItem rsciudad!ciudad
rsciudad.MoveNext
Loop
'Añadimos la tabla provincias al combo2
Set rsprovincias = New Recordset
'Establecer sus propiedades
With rsprovincias
.Source = "select provincias from provincias"
.ActiveConnection = cnprueba
.LockType = adLockOptimistic
End With
rsprovincias.Open Options:=adCmdText
'Abrir conjunto de registros
Do Until rsprovincias.EOF()
Combo2.AddItem rsprovincias!provincias
rsprovincias.MoveNext
Loop
End Sub
Salu2