Consulta con SQL por fecha

[epuigdef]

Buenas!


Lo que tienes que poner en la select es un parámetro:

select * from table where fecha = aram

y después en el código le pasas el parámetro antes de ejecutrar la select:

(el ejemplo está preparado para componentes ADO)

Query.parameters.paramByName('param').Value := DateTimePicker1.date;
Query.open;

Un saludo


Edu

[Sayuri]

¿pero el parámetro tengo que crearlo antes, da igual el nombre que ponga?

[[Lepe]]

Ha salido la carita esa y puede que no se entienda bien, así que lo pongo de nuevo:

Código SQL [-]
 select * from x where  campoFecha >= :laFecha

En un SQL se puede poner los dos puntos y despues cualquier nombre, esto se interpreta como un parámetro, y como bien dice epuigdef hay que pasarle el parámetro antes de abrir la consulta:

Código Delphi [-]
Query.paramByName('laFecha').AsDate := DateTimePicker1.date;
query.Open;

SALUDOS

[Sayuri]

Empezado por Lepe

Código SQL [-]
select * from x where campoFecha >= :laFecha

Al poner esto en la propiedad SQL del TQuery, me dice que el parametro "laFecha" no existe

¿tengo que añadirlo antes a algún sitio? por que esto otro:

Código Delphi [-]
Query.paramByName('laFecha').AsDate := DateTimePicker1.date;
query.Open;

lo pongo en el evento onchange del DateTimePicker1.

Muchas gracias

[*Caro*]

Hola

Yo tambien estoy empezando con esto de los parametros, me funciono bien hasta ahora. tal vez lo que te falte es ponerle tipos a tus parametros.
Esto se lo coloca en la propiedad parameters, seleccionas el parametro que añadiste y en sus propiedades indicar lo siguiente:

Datype->ftDate
Value->Type->Date

Supongo que el primero es el tipo de dato de tu base de datos, y el segundo el tipo del parametro que le pasaras.

En resumen:
1. Colocas tu sentencia sql como te indicaron
2. Defines el tipo de tu parametro
3. llamas con parambyname como te indicaron

Lo hice funcionar con BDE, ahora con ADO, me funciono perfectamente

Que todos tengan un Buen Dia

[[Lepe]]

Empezado por Sayuri

Al poner esto en la propiedad SQL del TQuery, me dice que el parametro "laFecha" no existe

Tendrás la consulta abierta en modo diseño, porque se puede modificar la propiedad SQL sin tener los parámetros creados.

Se añade el Sql, y despues si accedes a la propiedad query.Params, verás que estan creados ya (delphi se encarga de analizar el SQL y crear los parámetros.

Yo en algunos casos ni siquiera le indico el Datatype ni VAlue --> Type, porque en ejecución uso:

Código Delphi [-]
Query.paramByName('laFecha').AsDate :=

Por tanto, ya sabe de que tipo son los parámetros.

Por cierto, deberás cerrar la consulta al cambiar el parámetro:

Código Delphi [-]
query.Close;
Query.paramByName('laFecha').AsDate := DateTimePicker1.date;
query.Open;

Un saludo

[Sayuri]

No me da error al hacer lo que me habeis dicho, pero no me coge ningún registro de la tabla, cómo si no existieran... y en esa fecha hay datos

[[Lepe]]

Pues parece que está intercambiando el mes por el dia en la fecha que le pasas.

La verdad, es muy raro, cuando se utiliza parámetros en SQL, delphi se encarga de resolver ese conflicto con el sistema gestor de Bases de datos, así que no deberías tener errores de ese tipo, a menos que hayas cambiado el formato de fechas en el control Datetimepicker.

En cambio, cuando se usa (en tablas paradox):

Código SQL [-]
where fecha >= '01/02/2005'

Aqui si hay problemas, ya que normalmente casará las fechas con el formato mm/dd/yyyy, y nos devuelve los registros con fecha 2 de Enero.

Código Delphi [-]
sql.Add('where fecha >= ' + formatDatetime('mm/dd/yyyy', datetimepicker1.date);

Un saludo

[Sayuri]

a lo mejor el problema está en que en vez de poner

where campofecha >=:fecha;

utilizo

where campofecha =:fecha;

porque necesito que sea exactamente igual, quiero decir que la búsqueda sea por ese dia