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.
