Como Manejar fecha en Oracle
 

Amigos Buenas

Vean esto :

select datestampora from HISTORY WHERE to_char(datestampora, 'DD-MM-YYYY')= '18-09-2008';

Esto funciona desde una administrador de Oracle ,

Pero quiero hacer lo mismo con Delphi,,,

if Tconection='ORACLE' then BEGIN

dateforchance:=now;
formatdatemenu:=formatdatetime('DD-MM-YYYY',dateforchance); //Asignamos el formato a la Variable de la fecha a Utilizar
adohistory.Close;
adohistory.SQL.Clear;
adohistory.Sql.Add('select '+params+' from '+ownerado+'history where to_char(datestamp,'DD-MM-YYYY')='+chr(39)+ formatdatemenu +chr(39)+'');
adohistory.Sql.Add('order by datestamp desc') ;
adohistory.Prepared;
adohistory.Open;
END;

Problema el pedazo de Codigo Siguiente (to_char(datestamp,'DD-MM-YYYY') me da error al compilar.

la parte del formato de la fecha 'DD-MM-YYYY'

Alguna idea de como hacerlo

gracias

Buenas,

Por favor utilice las etiquetas [delphi] ó [sql] y especifique, cosas como, el mensaje de error y el DataSet que usa. Véase Guía de Estilo.

Ahora, si no es obligatorio consultar la fecha como una cadena de caracteres y (por ejemplo) formatdatemenu es de tipo TDateTime:

Código Delphi [-]
adohistory.Close;
adohistory.Sql.Text := 
 'select ' +params+ ' from ' +ownerado+ 'history ' +
 'where datestampora = :Farametro1 ' +
 'order by datestamp desc';
adohistory.Params[0].AsDateTime := formatdatemenu;
adohistory.Prepare;
adohistory.Open;

Y si le es obligatorio consultar la fecha como una cadena de caracteres, creo que tiene un par de comillas de menos:

Código Delphi [-]
adohistory.Sql.Add('select ' +params+ ' from ' +ownerado+ 'history ');
adohistory.Sql.Add('where to_char(datestamp, ''DD-MM-YYYY'') = ' + QuotedStr(formatdatemenu));
adohistory.Sql.Add('order by datestamp desc ') ;
adohistory.Prepare;
adohistory.Open;