Visual Basic - duda de programacion

Life is soft - evento anual de software empresarial
   
Vista:
Imágen de perfil de lilia

duda de programacion

Publicado por lilia (1 intervención) el 16/12/2009 19:30:22
Tengo una base de datos en access 97 la cual tengo ligada a un adoc y hasta ahi todo bien sin embargo cuando deseo hacer una segunda consulta para que aparesca a un combo box no me aparece nada

Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\stl97.mdb;Persist Security Info=False"
End Sub

Sub LINEAS(LINEA As String)
Adodc1.RecordSource = "SELECT * FROM LINEAS WHERE LINEAS.LINEA ='" & LINEA & "' ORDER BY LINEAS.ORDEN ASC"
Adodc1.Refresh
Adodc1.Recordset.MoveFirst
cmbestacion.Clear
Do While Not Adodc1.Recordset.EOF
cmbestacion.AddItem Adodc1.Recordset.Fields(1)
Adodc1.Recordset.MoveNext
Loop
End Sub

Private Sub Oplin1_Click()
LINEAS "1"
cmbestacion.ListIndex = 0
End Sub

he tradao de hacerlo con el mismo meodo sin resultado alguno simplemente no aparecen los datos de la tabla en el combobox. Agradeceria cualquier sugerencia.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder