Autor
Estoy realizando un programa en VB, donde lo que hace es conectar a la base de datos (ADO). Tengo un BUSCAR, que lo que quiero que haga es que busque por VENCIMIENTO. O sea que se ingresaría una FECHA en el BUSCAR y después tendría que visualizarlo en la grilla.
Yo lo que hice fue lo siguiente:
Citar
Private Sub cmdbuscar_Click()
If txtbuscar.Text = "" Then
Call Conectar("Select * from infocuota")
MsgBox ("Ingrese la fecha a buscar"), vbCritical
Set grilla.Recordset = RST
grilla.Refresh
Else
Call Conectar("Select * from infocuota where fechadepago like'" & DateValue(txtbuscar.Text) & "%' "
'Actualiza la grilla
Set grilla.Recordset = RST
grilla.Refresh
End If
End Sub
If txtbuscar.Text = "" Then
Call Conectar("Select * from infocuota")
MsgBox ("Ingrese la fecha a buscar"), vbCritical
Set grilla.Recordset = RST
grilla.Refresh
Else
Call Conectar("Select * from infocuota where fechadepago like'" & DateValue(txtbuscar.Text) & "%' "
'Actualiza la grilla
Set grilla.Recordset = RST
grilla.Refresh
End If
End Sub
Y lo que hace es dejarme la grilla vacía, o sea como que NO ENCONTRÓ nada con ese valor ingresado.
Ya probé de 1000 maneras distintas y no consigo como hacer. No sabría si el formato de la fecha esta mal o que.
Espero que me puedan dar una mano.
Saludos!
En línea
