Consultar fechas en firebird (SQL)

[pepitu]

Tras buscar e intentar casi todas las "animaladas" que estoy seguro que puede sufrir delphi...nuevamente recurro a este foro.
Estoy con IBX y firebird.
El problema: tengo un combobox con los campos de una base de datos y un edit en el que introduzco el texto a buscar (lo capturo como 'Texto').
Detecto (según el campo escogido en el Combox) el tipo de dato a buscar introducido en el edit.
Si el campo es de tipo char o varchar uso:
Texto:=texto+'%';
SelectSQL.Add(' WHERE CAMPO LIKE ' + QuotedStr(Texto));
Y me realiza correctamente la búsqueda.

El problema está en las fechas que no consigo realizar la búsqueda correctamente.
Las "animaladas" probadas son del tipo:
- SelectSQL.Add(' WHERE FECHA = ' + StrToDate(Texto)); //da error
-Texto:=StrToDate(Texto);
SelectSQL.Add(' WHERE FECHA = ' + QuotedStr(Texto)); //da error

-He probado de meter la fecha entre comillas dobles, simples, sin comillas, dígitos separados por puntos, etc...
He usado IBExport y veo que el formato de la fecha es dd/mm/yyyy (en Options/Environement/Grid/Display...es el mismo)

¿Como se hace?
¿Pasando parámetros?¿Como?

[cahp]

         Query.SQL.Add('and Fecha >= :Fecha');
         Query.ParamByName('Fecha').AsDate := DateEditFecha.Date;

Utiliza parametros, si es un edit tendras que hacer una conversion strtodate()
Si utilizas un DateEdit, como te he puesto.

Otra cosa que tienes que tener en cuenta, es que si el campo de la base de datos es timestamp tendras que poner between fecha and fecha + un dia.

Si no entiendes lo que te comento, lo dices y me extiendo mas.

Saludos.

[rastafarey]

Si pasas la fecha como cadena ten pendiente que el formato debe ser mm/dd/yyyy osea formato gringo

Código SQL [-]
WHERE FECHA = '12/31/2005';

Se octendria con

Código Delphi [-]
  //LA fecha real es 31/12/2005 31 de diciembre del 2005
  //Si la fecha la introduces a mano
  Texto := '12/31/2005';
  
  //Si la fecha biene desde un componente o en formato no gringo
  Texto := formatDateTime('mm/dd/yyyy', Fecha);
  Texto := Format('WHERE FECHA = ''%s''', [Texto]);

Aunque la opcion que te dieron anteriormente es perfecta. Asi que tu decides cual usar

[pepitu]

He probado ambas formas y las dos me lo han solucionado.

Quiero hacer hincapié en mis agradecimientos hacia quién ayuda a un novato como yo. No tan solo es lo que hace engrandecer un foro sino a la persona cuya forma de ser lo permite o lo hace posible.

Muy agradecido.

[rastafarey]

Perfecto.

Esa es la manera no tanto por las gracias. Sino para que uno sepa que ya todo esta solucionado. Por hay muchos casos en los cuales el problema esta resulto y son incapaces de decir ya me funciono eso se dbe hacer para que las personas no pierdan su tiempo en algo que ya esat solucionado.

Pero gracia spor las gracias valga la redundancia

[marcoszorrilla]

Bien dicho, aunque el foro es altruista y los agradecimientos se suponen, al menos es conveniente que se haga publica cual de las propuestas solucionó el problema y si se opta por una y no por la otra explicar por qué.

Un Saludo.

[cahp]

Es de agradecer tu agradecimiento y valga la redundancia (no todos lo hacen).

Si tienes mas dudas, sobre todo con mi respuesta (que es un poco corta y a lo mejor poco comprensible por falta de tiempo), plantealas.

Saludos.

[pepitu]

Iba a no escribir más en este hilo...pero cuando uno se siente en deuda por la ayuda recibida...qué menos que prestar atención

De todas formas....no os alejéis demasiado....tengo muchas cosas en el tintero...
Pero tranquilos.....antes de hacer cualquier pregunta al foro me paso horas buscando la respuesta.
Soy supernovato en delphi y firebird (ya se nota por mis dudas, no?) y me meto en cosas cuando aun me falta una base inicial....

Cahp...lo he entendido bien, quédate tranquilo.

Saludos