http://kayprogramacion.blogspot.mx/2...enlazados.html
Código:
Private Sub Form_Load() Call Conectar Set rst = New ADODB.Recordset With rst .CursorLocation = adUseClient .Open "MarcaCarros", sisdb, adOpenStatic, adLockOptimistic, adCmdTable End With Set cb_fabricante.RowSource = rst cb_fabricante.ListField = "marca" cb_fabricante.BoundColumn = "ID" Call Desconectar
Código:
cb_fabricante es un datacombo y cb_modelo es otro.Private Sub cb_fabricante_Click(Area As Integer) If Area <> 2 Then Exit Sub Call Conectar MCarro = Trim(Me.cb_fabricante.BoundText) rst.Open "select * from ModeloCarros where id_marca = '" & MCarro & "'", sisdb, adOpenStatic, adLockReadOnly If rst.RecordCount > 0 Then With Me.cb_modelo Set .RowSource = rst .DataField = rst!modelo_carro .ListField = "modelo_carro" End With End If Call Desconectar End Sub
los datos los tengo en 2 tablas diferentes desde un base de datos MSSQL, la idea es que en una tabla tengo fabricantes de carros, ford, chevrolet, fiat, peugeot, etc. etc., en otra tabla tengo el id del fabricante y la descripción del modelo, llámese KA, Fiesta, Focus, etc etc.
Espero se entienda lo que quiero lograr y me puedan orientar.
Saludos.