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

1 Respuesta

Respuesta
1
¿El campo id_estacion que estas mostrando en el select es el id que tu necesitas? ¿Cuál es la duda?
Hola muchas gracias por responder.
Si así es el id_estacion es el que quiero que se muestre en el combo2 sin embargo me marca error en la sentencia like; lo que quiero decirle a la consulta es lo siguiente:
Consulta= "selecciona id_estacion de la tabla sqlies donde el ultimo carácter del id sea igual a X" entonces muestralos en el combo2
Pero no he tenido éxito en la consulta me marca que el error esta en la sintaxis de la sentencia like pero no se en que estoy mal
Un saludo.
Seria de esta manera:
linea.RecordSource = "SELECT id_estacion FROM sqlies WHERE LIKE '%" & Combo1.Text & "' "
Hola ya probé el código que me proporcionaste pero me sale este error no se ha que se deba
http://i183.photobucket.com/albums/x152/smarisolaguirre/Dibujo1.jpg
Un saludo,
Falta el nombre del campo antes del like

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas