Problema Fechas y no ve ningun dato

[chele]

Buenas, tengo esta consulta :

cadenaSQL := 'SELECT expedientes.codexp AS a, expedientes.refcomp AS b, expedientes.fnotif AS c, resumenpagos.totpagosaut AS e, tratamientos.diasfac AS f, asegurados.edad AS g, ' +
'HFIJING+HFIJAMB+HFIJTRAT+HVARDESC+HREEMBOLSO+HESP AS H' +
' FROM HONORCIAS RIGHT JOIN (((asegurados INNER JOIN expedientes ON asegurados.codaseg = expedientes.codaseg) LEFT JOIN resumenpagos ON expedientes.codexp = resumenpagos.codexp) LEFT JOIN tratamientos ON ' +
' expedientes.codexp = tratamientos.codexp) ON HONORCIAS.CODEXP = expedientes.codexp '+
' where expedientes.fnotif >= "' + datetostr(strtodate(fecha1.Text)) + '"' +
' and expedientes.fnotif <= "' + datetostr(strtodate(fecha2.Text)) + '"' +
' ORDER BY expedientes.codexp';

qry := TIBQuery.Create(qry);
qry.database := datamodule2.database;
Qry.SQL.Text := cadenaSQL;
qry.open();


Si no le pongo lo del where me picha datos con fecha 15/03/2004 pero si pongo el where con las fechas de todo el año 2004 no me picha ningun dato. ¿Por que puede ser?

La columna expedientes.fnotif es varchar ( estoy obligado a poner este tipo ).

Uso delphi 5.0 con interbase.

Un saludo y gracias anticipadas.

[[Lepe]]

Creo entender que coges la fecha de un Tedit... yo me aseguraría que pilla el formato de fecha que tú quieres: Fecha >= '+quotedStr(FormatDateTime('mm/dd/yyyy',dtInicio.Date)

Espero te sirva de algo.

SAludos

[chele]

Enas esto que me comentas lo puse asi :

' where expedientes.fnotif >= '+quotedStr(FormatDateTime('mm/dd/yyyy',fecha1.text)+

Y esta linea me da este error : "Imcompatibles types _ ´TdateTime and Tcaption"

Si yo cojo el valor de fecha de un tedit.

[chele]

Yo veo el problema aqui :
' where expedientes.fnotif >= "' + fecha1.Text + '"' +

Esto funciona, no da error, pero claro esta busco en un campo texto con otro campo texto por lo que las fechas no las recupera bien.

Mi problema es que expedientes.fnotif es varchar cuando deberia ser fecha ... ¿como puedo decirle via sql que ese campo es tipo fecha? ¿se puede hacer desde el dataset o similar?.

Venga gracias.

[chele]

No sabeis como podria solucionarlo ??

[gynch]

Yo comprobaría cómo quiere las fechas tu gestor de bases de datos. En el caso de interbase las quiere como 'mm/dd/yyyy', así que puedes usar algo así
var
strfecha:string;
...
strfecha:='''+formatdatetime('mm/dd/yyyy',dia)+''';

[__cadetill]

no se si es esto lo que buscas....

cast(expedientes.fnotif as date) >= ' + QuotedStr(fecha1.Text)

PD: si fecha1 es un componente de fechas y tiene la propiedad Date, mejor usar
QuotedStr(FormatDateTime('mm/dd/yyyy', fecha1.Date))

[chele]

He puesto esto :

cast(expedientes.fnotif as date) >= ' + QuotedStr(fecha1.Text)

Y me da este error :

Conversion error from string "15/03/2004"

ESta fecha es de la base de datos, ya que yo escribo 01/01/01

¿Que puede ser?.

Gracias anticipadas

[__cadetill]

Bueno, vamos a complicarlo un poco pues

Supongo que estás guardando la fecha con el formato dd/mm/yyyy, y supongo que para hacer el cast a fecha, tu motor espera otro formato (seguramente mm/dd/yyyy). Si es así, quizás esto te sirva:

cast((substring(expedientes.fnotif from 3 for 3) || substring(expedientes.fnotif from 1 for 3) || substring(expedientes.fnotif from 7 for 4)) as date)

Prueba a ver si tu motor soporta el SUBSTRING

[chele]

Curioso, he puesto esto :

' where cast((substring(expedientes.fnotif from 3 for 3) || substring(expedientes.fnotif from 1 for 3) || substring(expedientes.fnotif from 7 for 4)) as date)'+


Y al iniciarlo no se ha quejado, pero despues al meterle la fecha ( 01/01/01 ) me ha puesto este error :

SQL Error Code = -104
Token unknown - line 1 char 547
from


¿Alguna otra idea?

[[Lepe]]

Chele, ¿hay alguna razon especial de elegir un Tedit para poner la fecha en la interfaz del programa?

Poniendo un TDateTimePicker por ejemplo, te resuelve de un plumazo todos los problemas:
- no permite que el usuario introduzca una fecha del tipo 46/38/2003
- formato de fechas correcto, (en el formato le pones dd/mm/yyyy) y con eso nos quitamos el problema del dia, mes y del año en 2 o 4 digitos.
- El SQL te quedaría mas simple

Fecha >= '+quotedStr(FormatDateTime('mm/dd/yyyy',dtInicio.Date))
                  //dtInicio es un TDateTimePicker

Espero tu respuesta.

Saludos

[chele]

GRAAAAAAAAAACIAS, no use este componente por falta de conocimiento

Puse esto :

'where expedientes.fnotif >= '+quotedStr(FormatDateTime('dd/mm/yyyy',fecha1.date)) +
' and expedientes.fnotif <= '+quotedStr(FormatDateTime('dd/mm/yyyy',fecha2.date)) +


el formato fecha en plan dd/mm/yyyy ya que al meterlo en texto me lo respeta.

Pues funciona de escandalo, ahora va perfecto.

Muchas gracias Cadetid y lepe muchas gracias.

Un saludo a los dos y gracias de nuevo.

[chele]

No me va creia que si pero no.

Te explico por que esto si que es raro.

En la base de datos la fecha que busco tengo el registro que es "15/03/2004"

Y nada mas me busca por dias.

Si pongo de 01/01/2003 a 20/01/2003 me la encuentra cuando no deberia.

Si en vez de 20 pongo 14 pues ya no me la encuentra por que el dia es menor, es decir solo me busca por el dia ¿por que puede ser?.

El codigo es :
cadenaSQL := 'SELECT expedientes.codexp AS a, expedientes.refcomp AS b, expedientes.fnotif AS c, resumenpagos.totpagosaut AS e, tratamientos.diasfac AS f, asegurados.edad AS g, ' +
' HFIJING+HFIJAMB+HFIJTRAT+HVARDESC+HREEMBOLSO+HESP AS H' +
' FROM HONORCIAS RIGHT JOIN (((asegurados INNER JOIN expedientes ON asegurados.codaseg = expedientes.codaseg) LEFT JOIN resumenpagos ON expedientes.codexp = resumenpagos.codexp) LEFT JOIN tratamientos ON ' +
' expedientes.codexp = tratamientos.codexp) ON HONORCIAS.CODEXP = expedientes.codexp '+
'where expedientes.fnotif > '+quotedStr(FormatDateTime('dd/mm/yyyy',fecha1.date)) +
' and expedientes.fnotif < '+quotedStr(FormatDateTime('dd/mm/yyyy',fecha2.date)) +


¿Alguna idea?, yo estoy probando y mirando pero todavia no encontre nada.

Gracias anticipadas

[[Lepe]]

Fecha >= '+quotedStr(FormatDateTime('mm/dd/yyyy',dtInicio.Date))

Saludos

[chele]

Segun hemos visto el truco esta en guardarlo en la base de datos en formato ingles, y en el sql hacerle el cambio, si no no va, y de esta forma "parece" que va funcionando.

Venga gracias por todo.