Saludos Amigos,
Me dirijo a ustedes con la siguiente consulta:
Tengo un formulario con 2 (dos) DTpicker, 1 Datagrid y 1 botón
Lo que quiero hacer es una consulta que me muestre los registros en el Datagrid que estén entre las fechas de los DTpicker.
Los DTpicker se llaman: DTFechaInicial y DTFechaFinal
Tengo una base de datos mysql.
Éste es el código que tengo en el botón:
Código:
Dim qwerty As Connection
Set qwerty = New Connection
qwerty.CursorLocation = adUseClient
qwerty.Open "PROVIDER=MSDASQL;dsn=biblioteca;uid=root;pwd=admin;database=biblioteca;"
FechaInicial = convFecha(DTFechaInicial.Value)
FechaFinal = convFecha(DTFechaFinal.Value)
Set rcdSet4 = New Recordset
rcdSet4.Open "select libro.titulo as 'Titulo de Libro', prestamo.fecha_prestamo as 'Fecha' from libro,prestamo where prestamo.id_libro=libro.id_libro AND prestamo.fecha_prestamo between "
Set grdDataGrid4.DataSource = rcdSet4
mbDataChanged = False
Pero no me funciona, no sé donde está el error.
Agradezco Mucho su Ayuda