Problemas con consulta sql y fecha

[Vales08]

Si perdon, me olvide de dar los datos mas importantes, uso firebird y Delphi 7 .....
y el error es este:

---------------------------
Debugger Exception Notification
---------------------------
Project Project_tesis.exe raised exception class EDatabaseError with message 'Q_agen_tur: Parameter 'fecha' not found'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------

Me podrian decir como quedaria el codigo con los (":")??, saco o dejo las comillas?

[[Al González]]

Empezado por Vales08

Me podrian decir como quedaria el codigo con los (":")??, saco o dejo las comillas?

Código Delphi [-]
'where AGENDAS_TURNOS.FECHA = ' + ':fecha ' +

Aunque eso también podría ser:

Código Delphi [-]
'where AGENDAS_TURNOS.FECHA = :fecha ' +

[Vales08]

Muchas gracias, la primer linea d codigo que me diste me tira el mismo error, pero la segunda no tira ningun error... igual la busqueda no me la hace, pero veo como lo soluciono...
Muchas gracias por ayudarme, el error no salta mas....

[ecfisa]

Hola Vales.

Para agregar algo a lo que bién te han indicado, aunque no es incorrecto armar la sentencia SQL de este modo:

Código Delphi [-]
...
'and PROFESIONALES.APELLIDO_Y_NOMBRE= ' + QuotedStr(prof_agen_turno.Text)+
...

Deja el código expuesto a la Inyección SQL. El uso de parámetros evita dicho problema:

Código Delphi [-]
  with DM.Q_agen_tur do
  begin
   Close;   
   SQL.Clear;
   SQL.Add('SELECT * FROM AGENDAS_TURNOS, PROFESIONALES ');
   SQL.Add('WHERE AGENDAS_TURNOS.FECHA = :FECHA ');
   SQL.Add('AND PROFESIONALES.APELLIDO_Y_NOMBRE = :APELNOM ');
   SQL.Add('AND PROFESIONALES.ID_PROF = AGENDAS_TURNOS.ID_PROF');
   ParamByName('FECHA').Value:= fecha_turno.Date;
   ParamByName('APELNOM').Value:= prof_agen_turno.Text;
   Open;
  end;

Inclusive, al menos a mí, me resulta más claro de leer.

Un saludo.

[[Caral]]

Hola
Cada componente tiene su particularidad, aveces no sirve de mucho solo decir firebird, hay que decir con que componente lo enlazas.

Código Delphi [-]
  fecha_turno:= Now;
  with (DM.Q_agen_tur )do
  begin
   SQL.Clear;
   SQL.Text:='select * from AGENDAS_TURNOS, PROFESIONALES '+
           'where AGENDAS_TURNOS.FECHA = :Fec'+
           'and PROFESIONALES.APELLIDO_Y_NOMBRE = :nom '+ 
           'and PROFESIONALES.ID_PROF = AGENDAS_TURNOS.ID_PROF ';
   Params[0].Value:= fecha_turno.Date;
   Params[1].Value:= QuotedStr(prof_agen_turno.Text);
   Open;
  end;

Saludos

[Vales08]

fecha_turno es un datetimepicker
prof_agen_turno es un combobox...

son los componentes que uso, y el codigo esta en un boton..

[[Caral]]

Hola
Que buena noticia.
Y con que componente te enlazas con la base de datos Firebird ???.
Saludos

[Vales08]

Ecfisa gracias por la respuesta pero me sigue mostrando la grilla vacia, no busca..
Caral no necesito ningun componente conectado a firebird, los datos ya estan cargados con anterioridad y lo unico que tengo conectado es el dbgrid.

En el codigo sql le indico que busque por fecha y profesional segun lo ingresado en tales componentes.

[[Caral]]

Hola

Empezado por Vales08

......
Caral no necesito ningun componente conectado a firebird, los datos ya estan cargados con anterioridad y lo unico que tengo conectado es el dbgrid.

En el codigo sql le indico que busque por fecha y profesional segun lo ingresado en tales componentes.

Muy interesante, hoy si que voy a aprender algo nuevo.
Me podrias explicar como haces eso ?
Saludos

[Vales08]

Tengo varias consultas hechas con componentes que no tienen conexion con firebird, la unica conexion que tienen son los comboox, los cuales mediante codigo les cargo los items con los registros que tengo guardada en otra tabla... Ami lo unico que me interesa es el texto que ingreso para luego buscarlo, por codigo.

[ecfisa]

Hola.

Primero que nada revisá si el TDBGrid tiene asociado el TDataSource y este esta asociado al TDataSet (Q_agen_tur ). Creo que a esos componentes se está refiriendo mi amigo

También existe la posibilidad que la consulta no arroje resultados...

Saludos.

[Vales08]

Si, mencione que la grilla si esta conectada, a su respectivo datasource... La busqueda la estoy realizando con registros que se que estan cargados en la base de datos....