Hola amigos, tengo una duda, tengo un código, pero me falta algo...
Tengo un datacombo conectado con un ADO, en este data tengo distintas marcas de neumáticos y tengo otro data que debe traer los modelos de los neumáticos, necesito si me pueden ayudar, cuando hago click en el datacombo "marca" al seleccioanar una me arroje los modelos disponibles en el datacombo de "modelos", por ej. goodyear, arroje todos los modelos en el otro data...
Código:
Private Sub dtmarca_Click(Area As Integer)
On Error GoTo Errores
If dtmarca.Text = dtmarca.Text Then
sql = "SELECT modelo FROM ING_STOCK_MARCA WHERE marca = '" & dtmarca.Text & "'"
Set rs = cn.Execute(sql)
' Comprobar que hay datos en el recordset
With rs
If (.BOF And .EOF) Then
rs.Close
Else
' Mostrar los datos hallados
.MoveFirst
Do While Not .EOF
'dtmodelo<---- aca falta algo??
.MoveNext
Loop
rs.Close
End If
End With
Exit Sub
Errores:
End If
End Sub
PD: No se si esta bien este cod.