Consulta de código implementado en visual basic para acceder a registros de base de datos access
Hola buenos días / tardes tengo una base de datos en access 2000 y tengo duda en una consulta.
Tengo una matriz de option botons y dependiendo de la selección del option requiero que un combo (combo2) me muestre el id con la siguiente nomeclatura E11L1.
Este es mi código:
Private Sub Option1_Click(Index As Integer)
'Pone en blanco las columnas de datagrid y los combo de consulta
Combo1.Clear
Combo2.Clear
Combo3.Clear
DataGrid1.ClearSelCols
'COMIENZA LA CONSULTA DEPENDIENDO DEL RESULTADO DE LOS OPTION BOTON
X = Index + 1
If X = 10 Then X = "A"
If X = 11 Then X = "B"
linea.RecordSource = "SELECT * FROM sqlies WHERE linea = '" & X & "'"
linea.Refresh
Do While Not linea.Recordset.EOF
Combo1.AddItem linea.Recordset.Fields(1)
Combo3.AddItem linea.Recordset.Fields(0)
linea.Recordset.MoveNext
Loop
Combo1.ListIndex = 0
End Sub
Private Sub Combo1_Click()
If Combo1.Text = "No hay ninguna estación seleccionada" Then Exit Sub
linea.RecordSource = "SELECT id_estacion FROM sqlies WHERE LIKE '" & Combo1.Text & " *1 " <----- aqui es donde tengo el problema
linea.Refresh
Do While Not linea.Recordset.EOF
Combo2.AddItem linea.Recordset.Fields(0)
Loop
End Sub
De antemano agradezco cualquier consejo y sugerencia
Tengo una matriz de option botons y dependiendo de la selección del option requiero que un combo (combo2) me muestre el id con la siguiente nomeclatura E11L1.
Este es mi código:
Private Sub Option1_Click(Index As Integer)
'Pone en blanco las columnas de datagrid y los combo de consulta
Combo1.Clear
Combo2.Clear
Combo3.Clear
DataGrid1.ClearSelCols
'COMIENZA LA CONSULTA DEPENDIENDO DEL RESULTADO DE LOS OPTION BOTON
X = Index + 1
If X = 10 Then X = "A"
If X = 11 Then X = "B"
linea.RecordSource = "SELECT * FROM sqlies WHERE linea = '" & X & "'"
linea.Refresh
Do While Not linea.Recordset.EOF
Combo1.AddItem linea.Recordset.Fields(1)
Combo3.AddItem linea.Recordset.Fields(0)
linea.Recordset.MoveNext
Loop
Combo1.ListIndex = 0
End Sub
Private Sub Combo1_Click()
If Combo1.Text = "No hay ninguna estación seleccionada" Then Exit Sub
linea.RecordSource = "SELECT id_estacion FROM sqlies WHERE LIKE '" & Combo1.Text & " *1 " <----- aqui es donde tengo el problema
linea.Refresh
Do While Not linea.Recordset.EOF
Combo2.AddItem linea.Recordset.Fields(0)
Loop
End Sub
De antemano agradezco cualquier consejo y sugerencia
Respuesta de Roberto Alvarado
1
