
05/03/2008, 19:31
|
 | | | Fecha de Ingreso: octubre-2007
Mensajes: 101
Antigüedad: 17 años, 5 meses Puntos: 1 | |
Re: busqueda por rango de fecha Amigos ayudenme porfavor, no se en que estoy fallando para k me realice la busqueda por rangos de fechas, se los agradecere muchoo, es urgente
aqui les dejo el codigo para k me ayuden Private Sub Command1_Click()
Dim sql As String
sql = " SELECT DATOSVISITADOR.RutVisitador, DATOSVISITADOR.DvVisitador, DATOSVISITADOR.NombreVisitador, DATOSCLIENTE.RutCliente, DATOSCLIENTE.DvCliente, DATOSCLIENTE.NombreCliente, OBSERVACIONESGENERALES.MontoCredito, OBSERVACIONESGENERALES.PlazoCredito, OBSERVACIONESGENERALES.NombrePersonaAtendio, OBSERVACIONESGENERALES.HoraVisita, OBSERVACIONESGENERALES.Fecha "
sql = sql & "FROM (DATOSCLIENTE INNER JOIN (DATOSVISITADOR INNER JOIN VISITAS ON (DATOSVISITADOR.DvVisitador = VISITAS.DvVisitador) AND (DATOSVISITADOR.RutVisitador = VISITAS.RutVisitador)) ON (DATOSCLIENTE.ID = VISITAS.ID) AND (DATOSCLIENTE.DvCliente = VISITAS.DvCliente) AND (DATOSCLIENTE.RutCliente = VISITAS.RutCliente)) LEFT JOIN OBSERVACIONESGENERALES ON (VISITAS.DvCliente = OBSERVACIONESGENERALES.DvCliente) AND (VISITAS.RutCliente = OBSERVACIONESGENERALES.RutCliente) AND (VISITAS.ID = OBSERVACIONESGENERALES.ID);"
rs1.Open sql & "WHERE (((OBSERVACIONESGENERALES.FECHA)= #" & Format(Txtfechainicio.Text, "mm/dd/yyyy") & "# and #" & Format(txtfechafin.Text, "mm/dd/yyyy") & "#", cnn1, adOpenDynamic, adLockOptimistic
If rs1.BOF = False And rs1.EOF = False Then
If Txtfechainicio.Text <> "" Or txtfechafin.Text <> "" Then
If rs1("fecha") = Txtfechainicio.Text And txtfechafin.Text Then
Call CargarDataGrid(DataGrid1)
Else
MsgBox ("no hay datos para cargar"), vbInformation
End If
Else
MsgBox ("Debe seleccionar un dato"), vbCritical
com_grupo.Enabled = True
End If
Else
MsgBox ("La tabla no tiene registros"), vbCritical
End If
End Sub
gracias
saludos
Juan |