Xabi
16 de Septiembre del 2003

Epa!
Estoy haciendo unas practicas en Visual Basic 6 y llevo un par de dias atascado, a ver si alguien me puede echar una mano.
Como puedo comparar dos datos de tipo DATE sin tener en cuenta la hora? Bueno, me parece que hay esta el fallo aunque la verdad es que ando todavia un poco pez. Os envio un trozo del codigo por si acaso.
Venga, muchas gracias.




Option Explicit
Dim Fecha As Date
Private Seg As New seguimiento
Private bd As Database
Private RecordGenerico As Recordset
Private sql As String
Private Sub Command1_Click()
Fecha = DTPicker1.Value

'Seguimiento -> Es una clase que tiene los siguiemtes atributos
'
' + ID_Seg -> Integer
' + ID_Hor -> Integer
' + NumeroDeTubos -> String
' + FechaMantenimiento -> DATE
' + Suministrador -> String
' + Aleacion -> String
' + Observaciones -> String

'Cargo el Seguimiento y lo meto en la base de datos

Seg.Cargar 8, 3, "3",d, "sssss", "wwwww", "wwww"
Set bd = OpenDatabase("C:windowsEscritorioPrueba.mdb")
sql = "insert into TSeguimiento values ('" & Seg.ID_Seg & "','" & Seg.ID_Hor & "','" & Seg.NumeroDeTubos & "','" & Seg.FechaMantenimiento & "','" & Seg.Suministrador & "','" & Seg.Aleacion & "','" & Seg.Observaciones & "')"
bd.Execute sql

'Hago una busqueda de una fecha, en este caso la misma que he introducido

sql = "Select * from TSeguimiento where FechaMantenimiento_Seg = " & d
Set RecordGenerico = bd.OpenRecordset(sql)

'Y en este momento siempre me sale que recordgenerico.eof = true

If Not RecordGenerico.EOF Then
Text1.Text = "Esta en la base de datos"
Else
Text1.Text = "No esta en la base de datos"
End If
End Sub