Programación General > Visual Basic 6.0 e inferiores

 Consultar Db

(1/1)

rony_pineda:
Tengo este código y una base de datos en Access llamada Prueba.mdb y una sola tabla a consultar llamada expedientes.

Private Sub Command1_Click()
   
    Text1.Text = ""
    Option1.value = False
    Option2.value = False
    MSHFlexGrid1.ClearStructure

End Sub


Private Sub Option2_Click()

    Dim rs As Recordset
    Dim sql As String
    sql = "SELECT no_exp, fecha_ing, estado_expediente FROM expedientes WHERE no_exp = text1.text order by id"
   

    Set cn = New Connection
    cn.Open "driver={microsoft access driver (*.mdb)}; dbq=C:\prueba.mdb;"
    Set rs = New Recordset
    rs.Open sql, cn, adOpenForwardOnly, adLockReadOnly
    Set MSHFlexGrid1.DataSource = rs
   
    rs.Close
    cn.Close
   
End Sub

yo espero comparar un valor que se ingresa en un textbox y al activar el option me despliegue en resultado en la Grid pero nada. Alguien me podría ayudar.

DiabloRojo:

--- Citar ---sql = "SELECT no_exp, fecha_ing, estado_expediente FROM expedientes WHERE no_exp = text1.text order by id"


--- Fin de la cita ---


Prueba así:

sql = "SELECT no_exp, fecha_ing, estado_expediente FROM expedientes WHERE no_exp =" &  text1.text & " order by id"

Widark:
Hola rony_pineda!

Además de el comentario de DiabloRojo, intenta poner comillas simples
--- Código: Text --- sql = "SELECT no_exp, fecha_ing, estado_expediente FROM expedientes WHERE no_exp ='" & text1.text & "' order by id"  si lo que estas buscando es tipo texto.

Saludos.

Navegación

[0] Índice de Mensajes