6 respuestas en este tema

[rrosariom]

Hola que tal a todos? espero que se encuentren muy bien.

Estoy tratando de hacer un consulta por fecha, utilizando adoquery con delphi 7 y Oracle Express 11g.

La consulta debe ser dinamica, utilizando los componentes datetimepicker o edit, dbgrid, adoquery.

He intentado varias formas y no logro traer los datos, espero que alguien me pueda ayudar. Gracias...

Las formas que he intentado son las siguientes:

delphi

Datetimepicker1.Date:=now;
ADOQuery1.Close;
adoquery1.SQL.Text:= 'select * from perfiles where fecha_creacion = :fecha' ;
ADOQuery1.Parameters.ParamByName('fecha').DataType := ftDate;
ADOQuery1.Parameters.ParamByName('fecha').value := DateTimePicker1.Date;
ADOQuery1.Open;

delphi

frmperfil.ADOQuery1.SQL.Clear;
frmperfil.ADOQuery1.Close;
frmperfil.ADOQuery1.SQL.Text := 'SELECT * from perfiles where fecha_creacion like ' +
QuotedStr('%' + Edit3.text + '%');
frmperfil.ADOQuery1.Open;

[poliburro]

El problema seguramente estará por los minutos y segundos que se generan en campos DATE en oracle...

Prueba de la siguiente manera:

delphi

Datetimepicker1.Date:=now;
 ADOQuery1.Close;3.adoquery1.SQL.Text:= 
        'select * from perfiles where To_Char(fecha_creacion,''DD.MM.YYYY'') = :fecha';          
 ADOQuery1.Parameters.ParamByName('fecha').value :=  FormatDatetime('DD.MM.YYYY',DateTimePicker1.Date);
 ADOQuery1.Open;

A mi me ha sucedido muy a  menudo este problema en oracle con las fechas... Saludox

[poliburro]

Por cierto te recomiendo que aproveches Oracle al máximo usando procedimientos almacenados en lugar de consultas... Saludox

[enecumene]

En Oracle debes usar la función TO_DATE(), y si en dado caso el campo contiene horas pues utilizas truncate().

Saludos.

[rrosariom]

Buenos Día,

Gracias a todos por la ayuda, pero de la forma que me indicaron no pude resolver el problema. La forma en la que solucioné fue que hice dos triggers en la base de datos, uno que cambia el formato de fecha a nivel de base de datos, y otro a nivel de tabla como se muestra a continuación:

CREATE OR REPLACE TRIGGER ADMIN.CAMBIA_FORMATO_FECHA

AFTER LOGON

ON DATABASE

BEGIN

EXECUTE IMMEDIATE 'ALTER SESSION SET NLS_DATE_FORMAT=''YYYYMMDD''';

END cambia_formato_fecha;

/

CREATE OR REPLACE TRIGGER ADMIN."CAMBIA_FORM_FECHA_PERFILES" BEFORE INSERT

ON ADMIN.PERFILES 

REFERENCING NEW AS NEW OLD AS OLD

BEGIN

EXECUTE IMMEDIATE 'ALTER SESSION SET NLS_DATE_FORMAT=''YYYYMMDD''';

END CAMBIA_FORM_FECHA;

/

y asi debo hacerlo para cada tabla.

Y el codigo delphi esta como sigue:

delphi

  frmperfil.ADOQuery1.Close;
  frmperfil.ADOQuery1.SQL.Clear;
  frmperfil.ADOQuery1.SQL.Add ('SELECT * FROM perfiles');
  frmperfil.ADOQuery1.sql.add('where fecha_creacion =' + QuotedStr(FormatDateTime('yyyymmdd',DateTimePicker1.Date) + ''));
  frmperfil.ADOQuery1.Open;
  if frmperfil.ADOQuery1.recordcount > 0 then
    frmConsultaPerfil.showmodal
  else
    showmessage('No existen registros en la fecha especificada');

Haciéndolo asi, fue de la forma que pude solucionarlo y me funciona excelentemente.

[poliburro]

Gracias por compartirnos las solución...

Saludox

[rrosariom]

Hola que tal,

Gracias a ti y a todos por este foro; pues de eso se trata que entre todos intercambiemos conocimiento y así poder lograr nuestros objetivos...

Un Saludo,
Rolando Del Rosario