¿Búsqueda SQL por Fecha?

[[enecumene]]

Empezado por Loarik

Antes de nada gracias por responder tan rapido,
he probado como me indicas

AQr_Entrada.Parameters.ParamByName('fecha').AsDateTime := DTP.Datetime;

Me da el siguiente error: Undeclarer identifier "AsDateTime"

si se os ocurre otra cosa o en donde puedo estar metiendo la gamba...

Intenta con AsDate.

Saludos.

[Loarik]

Me da el mismo error
Undeclarer identifier"AsDate"...

[[enecumene]]

Hola, estas seguro que el campo es de tipo DateTime?. que viene siendo DTP un datetimepicker?

Saludos.

[[eduarcol]]

solo para estar seguros, porque no colocas el codigo que estas utilizando en estos momentos...

[Loarik]

Hola,

Exactamente DTP es datetimepicker, disculpa no especificar antes.
En la aplicación trabajo con ellos, leo datos, guardo el problema surge cuando quiero buscar por el campo fecha.
Lo primero que he intentado es algo que también he visto en foro

SQL.Add(' AND (Entrada_Fx >='+DateToStr(d6)+')');
siendo d6:Tdatetime; y asignandole con anterioridad
d6:=DTP.Asdatetime,
y realmente funciona, la query trae los registros con la fecha igual o mayor.
Pero yo quiero realmente solo los del dia.
Como con = no funciona pensé, a este lo pillo yo y empecé a probar con dos fechas y between o con >=hoy y <mañana, pero resulta que lo de < tampoco me funciona.
Vi en el foro la solucion del pasar por parametro y ahi es donde me encuentro, pero ahora que no me quiere el parámetro.
Como ya os dije en otros hilos soy muy novata en esto de programar y en delphi más asi que será cualquier tontería pero el caso es que no la veo...

[Loarik]

¡¡Creo que lo solucioné!!
Antes de nada, perdon a eduardocol, no me dio tiempo a leer tu mensaje
y perdon por la tardanza, pero tardo tanto en escribir el mensaje que me caduco la sesion y volver a empezar

.....
d6:=DTP.asdate
RgEntrada.SQL.Text:='SELECT *'
+'FROM RgEntrada'
+' WHERE True';
for i:=1 to finarray do
begin
if cadenaBusqueda[i] then
begin
case i of
1:SQL.Add(' AND (Tipo LIKE"'+'%'+(s1)+'%")');
2:SQL.Add(' AND (Procedencia LIKE"'+'%'+(s2)+'%")');
3:SQL.Add(' AND (Remitente LIKE"'+'%' +(s3)+'%")');
4:SQL.Add(' AND (Contenido LIKE"'+'%'+(s4)+'%")');
5:SQL.Add(' AND (Archivo='+IntToStr(i5));
6: SQL.Add(' AND (Entrada_Fx = :fecha)') ;
.....
end;
end;
end;
RgEntrada.Parameters.ParamByName('fecha').Value:=DTP.asdate;
ExecSQL;
Open;
Hay dos errores
1:si no pongo nada en el campo entrada del FORM no entra en la opción6 y no encuentra el parametro fecha. "Parameter fecha not found". Soluciononer esa línea solo si entra en la opcion 6.
2-si pones dato no encuentra nada, porque las propiedades de los componentes del form no estan accesibles. Solucion: guardarlas anteriormente en variables y pasarle estas a la query
Quedaría

6:begin SQL.Add(' AND (Entrada_Fx = :fecha)') ;
RgEntrada.Parameters.ParamByName('fecha').Value:=d6
end;

Me he explicado o me he liado...
Bueno ahora a pelearme con Access y Multiusuario, pero eso ya es otro hilo, mejor dicho eso es la madeja entera.

Gracias y hasta pronto