
19/02/2008, 15:14
|
| | Fecha de Ingreso: enero-2008 Ubicación: Lima - Perú
Mensajes: 1.127
Antigüedad: 17 años, 2 meses Puntos: 10 | |
Re: busqueda por rango de fecha Especifica si es vb6 o .net
En visualbasic6.0 lo hice de esta manera
Private Sub cmdBusqueda_Click()
Select Case List1.ListIndex
Case 0
rsLectores.Filter = "" & List1 & " = '" & Text1 & "'"
Case 1 To 2
rsLectores.Filter = "" & List1 & " LIKE '" & Text1 + "%" & "'"
Case 3 rsLectores.Filter = "" & List1 & " >= '" & dtpDesde & "' and " & List1 & " <= '" & dtpHasta & "'"
End Select
If rsLectores.RecordCount <= 0 Then
MsgBox "No se encontro ningun registro"
Text1 = ""
Text1.SetFocus
End If
End Sub
Cambia los controles dtpicker por los text y el list1 por el campo de busqueda
saludos |