cargar datacombo a través de otro datacombo

[black_devil]

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.

[GeoAvila]

en las faq's hay un ejemplo exacto de lo que deseas... con código desgable..

nos vemos..

[black_devil]

Hola, gracias voy a revisar, creo que encontré 1, que sale un datacombo con un datalist, será ese???

[Insomnia]

Hola

A primera vista, estas utilizando el DataCombo como un combo normal, en ese caso (combo normal) te faltaría añadir el .AddItem

Código:

Do While Not .EOF
            dtmodelo.AddItem .fields(0)
.MoveNext

P.D.: El ejemplo que te pongo es para el caso de un combo normal, NO para el datacombo. Con el datacombo no tienes que recorrer todo el recordset.

--Saludos--

[black_devil]

Gracias a ambos, ya resolví el problema, usando ADO y este código:

Código:

Private Sub dtmarca_Click(Area As Integer)
dtmodelo.Text = Update
txtstock.Text = Update
Set rs = New Recordset

rs.Open "SELECT marca, modelo FROM ING_STOCK_NEUMATICO WHERE marca = '" & dtmarca.Text & "'", cn, adOpenStatic, adLockOptimistic

Set dtmodelo.RowSource = rs
dtmodelo.ListField = "modelo"
dtmodelo.BoundColumn = "marca"
Set rs = Nothing
End Sub

[GeoAvila]

Iniciado por black_devil

Hola, gracias voy a revisar, creo que encontré 1, que sale un datacombo con un datalist, será ese???

exacto ese es...

nos vemos..

[black_devil]

hola, jeje gracias GeoAvila, entonces tema resuelto,