Convertir fecha en un Where

[Enriquelán]

Que tal?

Tengo un problema relacionado con las fechas...

Uso delphi 5 con MySql, y guardo las fechas como cadenas, no propiamente como fechas. El problemas me surgio al querer hacer un reporte de una fecha inicial a otra final, ya que al querer jalar la fecha guardada, viene en cadena y no la puedo comparar con la fecha de un DateTimePicker. Y si las comparo como cadenas, han de saber que "27/04/2008" no es mayor que "29/03/2008". Entonces me veo en la necesidad de compararlas forzosamente como fechas y no como cadenas.

Código Delphi [-]
Query.sql.text:='select * from viajes where Fecha>=datetostr("'+DateTimePicker.date+'")';
Query1.execSql;





Esta consulta, como le decia, no me devuelve los valores correctos, ya que algunas fechas del resultado realmente no son mayores a las del DateTimePicker.

Mi idea era hacer algo como:

Código Delphi [-]
Query.sql.text:='select * from viajes where strtodate(Fecha)>="'+DateTimePicker.date+'")';
Query1.execSql;





O sea, convertir en ese momento la fecha que estoy jalando, pero me salta un error.


Agradezco su atencion.

[*Caro*]

Hola Enriquelán, no te sería mas facil cambiar el tipo de dato a tu campo, la verdad no es normal que a una fecha le pongas como cadena, strtodate no te funcionara porque es una función de Delphi y no de Mysql.

Saluditos

[Enriquelán]

Gracias, caro!

Lo que pasa es que ya tengo mucha informacion en ese campo. Al cambiarla, se pierde y tengo que volver a meterla manualmente. Ademas MySql solo ofrece un formato de fecha y no es con el que he venido trabajando, por lo cual tendria que cambiar todo. Y seguro tambien tendre que cambiar el formato de fecha en el panel de control de windows para que quede igual que el de mysql, verdad?

Muchas gracias por tu ayuda!

[ContraVeneno]

Podrías utilizar parámetros y de esa forma no tendrías que hacer ninguna conversión:

Código Delphi [-]
with TuDataset do begin
 If active then close;
 SQL.Clear;
 SQL.Add('Select ...');
 SQL.Add('From...');
 SQL.Add('Where fecha < :Fecha');
 ParamByname('Fecha').AsDateTime := UnDTPicker.DateTime;
 Open;
end;

"ExecSQL" se utiliza solo para consultas de modificación (Insert, delete, update...), "Open" se utiliza para consultas normales "Select"

[sancarlos]

Man para eso usa el Formatdatatime , sino nunca te saldra , te mando un ejemplo

dateforchancenow:=now; variable a pasar la fehca de tipo tdatetime
formatdatenow:=formatdatetime('mm-dd-yyyy',dateforchancenow); //Asignamos el formato a la Variable de la fecha a Utilizar de tipo string;

luego en where la pones a validar el formatdatenow .

EL formato puede ser difirente, eso depende de la base de datos a usar , puede ser ('dd/mm/yyyy') , es la mas comun.