Analista
Publicado por Julio VASQUEZ (1 intervención) el 11/09/2010 09:21:13
Buenas Amigos, estoy trabajando en realizar una consulta entre fechas, y cuando coloco fechas entre dos meses y presiono el botón , solo me toma la fecha del primer mes y en el siguiente mes tengo datos.
pero si es dentro del mismo mes si sale, pero cuando algun mes llega hasta el 31 me toma todos los otros meses.
ya probe con >= y <=
ayúdenme por favor
esta es la sentencia SQL, que estoy colocando en el botón
Private Sub Command1_Click()
LAR1 = Trim(TXTFECHA1.Text)
LAR2 = Trim(TXTFECHA2.Text)
DATA2.sql = "SELECT producto,porcentajeproducto,poliza,exp,recibo,fecha,cuota,vence,cliente,mes,fpago,epago,monto,fechaefectiva,negocio,porcentajenegocio,moneda,nomvendedor FROM PAGOSFACTURA3 WHERE FECHA BETWEEN '" & LAR1 & "' AND '" & LAR2 & "'"
DATA2.Refresh
If vs.Rows = 1 Then
MsgBox "No hay datos", vbCritical, "Error"
Exit Sub
End If
End Sub
el resultado lo mostrata en un grid.
pero si es dentro del mismo mes si sale, pero cuando algun mes llega hasta el 31 me toma todos los otros meses.
ya probe con >= y <=
ayúdenme por favor
esta es la sentencia SQL, que estoy colocando en el botón
Private Sub Command1_Click()
LAR1 = Trim(TXTFECHA1.Text)
LAR2 = Trim(TXTFECHA2.Text)
DATA2.sql = "SELECT producto,porcentajeproducto,poliza,exp,recibo,fecha,cuota,vence,cliente,mes,fpago,epago,monto,fechaefectiva,negocio,porcentajenegocio,moneda,nomvendedor FROM PAGOSFACTURA3 WHERE FECHA BETWEEN '" & LAR1 & "' AND '" & LAR2 & "'"
DATA2.Refresh
If vs.Rows = 1 Then
MsgBox "No hay datos", vbCritical, "Error"
Exit Sub
End If
End Sub
el resultado lo mostrata en un grid.
Valora esta pregunta
0