SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: rony_pineda en Martes 17 de Mayo de 2005, 23:30

Título: Consultar Db
Publicado por: rony_pineda en Martes 17 de Mayo de 2005, 23:30

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.

Título: Re: Consultar Db
Publicado por: DiabloRojo en Miércoles 18 de Mayo de 2005, 16:29

Citar

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

Prueba así:

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

Título: Re: Consultar Db
Publicado por: Widark en Miércoles 18 de Mayo de 2005, 18:56

Hola rony_pineda!

Además de el comentario de DiabloRojo, intenta poner comillas simples

Código: Text

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

si lo que estas buscando es tipo texto.

Saludos.