16/03/2005, 22:22
|
| | Fecha de Ingreso: diciembre-2004
Mensajes: 79
Antigüedad: 20 años Puntos: 0 | |
hola yo utilizo mysql server 2000 y la funcion que utilizo es la siguiente che bien ´por que los datos los saco de un query union de dos tablas pero la funcion es la misma .
Private Sub Command1_Click()
Dim fecha1 As String
Dim fecha2 As String
If (finicio = "__/__/____") Then
MsgBox "Fecha Inicio del Reporte", vbInformation
finicio.SetFocus
Exit Sub
End If
If ftermino = "__/__/____" Then
MsgBox "Fecha Termino del Reporte", vbInformation
ftermino.SetFocus
Exit Sub
End If
'Fecha1 = Format(ftermino, "DD/mm/yyyy")
'fecha2 = Format(ftermino, "dd/mm/yyyy")
fecha1 = Format$(fechainiciorango, "yyyy-mm-dd")
fecha2 = Format$(fechaterminorango, "yyyy-mm-dd")
conexion
Set rsinicial = New ADODB.Recordset
Set rsfiltrado = New ADODB.Recordset
'rsinicial.Open "SELECT * FROM datosper WHERE fregistro BETWEEN '" & fecha1 & "' and '" & fecha2 & "'", con, adOpenDynamic, adLockReadOnly
'rsinicial.Open "select * FROM registrardatos WHERE registrardatos.fregistro > " & fecha1 & " and registrardatos.fregistro < " & fecha2 & "", con, adOpenDynamic, adLockReadOnly
'rsinicial.Open "select fregistro FROM datosper WHERE datosper.fregistro BETWEEN '" & CDbl(fecha1) & "' and datosper.fregistro '" & Format(fecha2, "yyyy/mm/dd") & "'", con, adOpenDynamic, adLockReadOnly
'rsinicial.Open "SELECT * FROM registrardatos WHERE fregistro BETWEEN " & CDbl(fechainiciorango) & " AND " & CDbl(fechaterminorango) & ",con,adopendymanic,adlockreadonly"
'rsinicial.Open "SELECT *FROM registrardatos WHERE fregistros BETWEEN " & CDbl(Finicio) & " ", con, adOpenDynamic, adLockReadOnly
'rsinicial.Open "SELECT fregistro From dbo.registrardatos WHERE(fregistro BETWEEN CONVERT(DATETIME, '1980-12-30 00:00:00', 102) AND CONVERT(DATETIME, '2004-12-30 00:00:00', 102))", con, adOpenDynamic, adLockReadOnly
rsinicial.Open "SELECT *FROM registrardatos WHERE(fregistro BETWEEN CONVERT(DATETIME,'" & fecha1 & "') AND CONVERT(DATETIME,'" & fecha2 & "'))", con, adOpenDynamic, adLockReadOnly
Set rsfiltrado = rsinicial
If rsfiltrado.EOF Then
MsgBox "No hay datos registrados ntre el rango de fechas", vbCritical
Exit Sub
Else
cont = 1
If Not (rsfiltrado.EOF And rsfiltrado.BOF) Then
Do While Not rsfiltrado.EOF
Form5.grid.Rows = Form5.grid.Row + cont
Form5.grid.TextMatrix(cont, 0) = IIf(IsNull(rsfiltrado(0)), "Campo sin Registro", Trim(rsfiltrado(0))) 'nombre
rsfiltrado.MoveNext
cont = cont + 1
Loop
Exit Sub
End If
End If
End Sub |