¿Búsqueda SQL por Fecha?

[lKinGl]

Solucionado!!

Gracias egostar por el código proporcionado, para que funcionara como yo deseaba lo inserte en el evento onchange del datatimepicker y funcionó de lujo

Muchas Gracias de Verdad a todos los que intentaron ayudarme!!

[paladincubano]

jeje, que pasa con los cubanos man??? aqui hay uno 100% de pura cepa... lo que pasa es que he tenido que emigrar para Espana.
saludos a todos los cubanos de por aqui.

[[egostar]]

Empezado por paladincubano

jeje, que pasa con los cubanos man??? aqui hay uno 100% de pura cepa... lo que pasa es que he tenido que emigrar para Espana.
saludos a todos los cubanos de por aqui.

Hola paladincubano, no me vas a creer pero no vi tu post en este hilo hasta ahora que he vuelto a revisarlos .

Salud OS

PD. por supuesto que no tengo nada en contra de ningún cubano, para mi todos somos amigos del mismo planeta

[Loarik]

Hola,
Yo también tengo un problema con una query que lleva fecha.

SQL.Add(' AND (Entrada_Fx = :fecha')

El componente que utilizo es un DateTimePicker y intento adaptar las soluciones que aqui se proponen a mi código pero me da el siguiente error:
EOLEException falta ), ] o elemento en la expresión de consulta ' AND Entrada_Fx= ?"
Entrada_Fx es un campo de tipo Fecha/corta (Access).
Estoy intentando pasar por parametro de la siguiente forma:

Parameters.ParamByName('fecha').value:=(RE_DTP_In.Date); antes de ejecutar la query ¿que hago mal?


Gracias

[[eduarcol]]

tu tienes:

Código Delphi [-]
SQL.Add(' AND (Entrada_Fx = :fecha')

donde dos parentesis abren, uno solo cierra.

deberia ser:

Código Delphi [-]
SQL.Add(' AND (Entrada_Fx = :fecha)')

[Loarik]

Gracias, se nota la poca experiencia que tengo.
Ya he arreglado lo del parentesis pero ahora me dice que "parameter fecha not found".
He revisado los foros sobre este tema pero no encuentro el error , he borrado el parametro y lo he vuelto a definir pero sigue igual
Despues de definir la query hago:

AQr_Entrada.Parameters.ParamByName('fecha').Value:= (DTP.Datetime);
Tengo definida en AQr_Entrada el parámetro fecha con las siguientes opciones

DataType:ftDateTime(si pongo ftDate cambia automáticamente a ftDatetime)
DirectiondInput
Value:01/01/1900

Donde puedo tener el error?
Gracias

[[enecumene]]

Hola, intenta con lo siguiente:

Código Delphi [-]
  AQr_Entrada.Parameters.ParamByName('fecha').AsDateTime :=  DTP.Datetime;

Saludos.

[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...

[[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