Hola!!
Necesito saber como hago una consulta de mi base datos access.
pero tengo que me llene un flexgrig con los resultados encontrado.....
...asimismo que la busqueda sea entre una fecha de inicio y fecha de termino........
Por ejemplo: yo he ingresado los datos de unos trabajadores....ok?
pero lo ingresé el 01/01/05 (ingresé 10 ese dia), y asi he ingresado datos hasta el 15/01/05 (todos los dias)....
Ahora, yo quiero que al poner en los textbox(ó maskedit), que busque entre 01/01/05 hasta 05/01/05, y que los encuentre exactos.......
Yotengo un codigo pero no me va bien.....me llena el flexgrid con datos desde 01/01/05 hasta 31/01/05....que puede ser..muchas gracias.
Private Sub cmdBuscar_Click()
Dim fec1 As String
Dim fec2 As String
Dim RsFec As ADODB.Recordset
Dim strFindFecha as String
dim filas as Integer 'variable cualquiera
Set RsFec = New ADODB.Recordset
'Dim filas As Integer
If RsFec.State = adStateOpen Then
RsFec.Close
Set RsFec = Nothing
End If
FlexGridFecha.Clear 'me borra todo el flexgrid
If MaskEdBox1 = "__/__/__" Or MaskEdBox2 = "__/__/__" Then
MsgBox "No ha ingresado fechas correctas "
Else
'FechaSQL MaskEdBox1
'FechaSQL MaskEdBox2
fec1 = Format(CDate(MaskEdBox1.Text), "dd/mm/yy")
fec2 = Format(CDate(MaskEdBox2.Text), "dd/mm/yy")
strFindFecha = "SELECT * FROM Tabla"
strFindFecha = strFindFecha & " WHERE CampoaBuscar between #" & fec1 & "# AND #" & fec2 & "# ORDER BY CampoaOrdenar" 'CampoaOrdenar es el campo codigo por ejemplo
RsFec.Open strFindFecha, Cn
filas = 2
ConfiguraFlex 'esto es una rutina para poner titulos en el flexgrid
With FlexGridFecha
Do While Not RsFec.EOF
.Rows = filas
.TextMatrix(filas - 1, 0) = RsFec.Fields(0)
.TextMatrix(filas - 1, 1) = RsFec.Fields(1)
.TextMatrix(filas - 1, 2) = RsFec.Fields(2)
.TextMatrix(filas - 1, 3) = RsFec.Fields(3)
.TextMatrix(filas - 1, 4) = RsFec.Fields(6)
.TextMatrix(filas - 1, 5) = RsFec.Fields(4)
RsFec.MoveNext
filas = filas + 1
Loop
End With
End If
End Sub
