Problemas con consulta sql y fecha

[Vales08]

Buenas tardes, tengo un problema y necesito que me ayuden... Tengo el siguiente codigo y me gustaria que me digan si encuentran el error..

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

El problema esta en el parametro 'fecha'...

Gracias de antemano...

[kapcomx]

tal vez te haga falta darle formato a la fecha.

Código Delphi [-]
 
QUOTEDSTR(FormatDateTime('yyyy/mm/dd',Date))

[Vales08]

Gracias por la respuesta pero yo necesito la fecha en Date, no en String... Con QuotedStr me da error de conversion.

[kapcomx]

vales08, desconozco la bd que manejas y la ver de Delphi.
pero siento que no estas mandando llamar el parametro fecha de manera incorrecta, ya que estas encerrando tu parametro fecha entre '' y eso lo vuelve un texto.
aca te dejo un ejemplo del uso de parametros con una fecha a ver si te sirve.

Código Delphi [-]
 
queryng.sql.Clear;
   queryng.SQL.Text:='INSERT INTO CAPTURAS(folio, USUARIO, CAPTURA, FECHA, HORA)'+
   ' VALUES (:folio,:USUARIO,:CAPTURA, :FECHA, :HORA)';
   queryng.ParamByName('folio').Value:=TSERVICIOS.FieldValues['FOLIO'];;
   queryng.ParamByName('USUARIO').Value:=Form1.EDIT1.text;
   queryng.ParamByName('CAPTURA').Value:='SERVICIO';
   queryng.ParamByName('FECHA').Value:=DATE;
   queryng.ParamByName('HORA').Value:=TIME;
queryng.ExecSQL;

saludos...

[[Al González]]

Empezado por Vales08

Buenas tardes, tengo un problema y necesito que me ayuden... Tengo el siguiente codigo y me gustaria que me digan si encuentran el error..

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

El problema esta en el parametro 'fecha'...

Gracias de antemano...

Sí, al parecer falta el prefijo de dos puntos (":") al hacer referencia al parámetro "fecha", dentro de la sentencia SQL.Text.

Tip: Es recomendable poner el mensaje de error exacto que te aparezca, así la ayuda recibida será más puntual y precisa.

Saludos.

P.D. Toma el cuenta el ejemplo que acaba de poner kapcomx.

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

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

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

[[Caral]]

Hola
Bien, si no quieres cooperar entonces no quieres aprender.
NO entiendes mi pregunta, eso esta muy claro.
Lo mejor seria decir: No entiendo a que te refieres en vez de insistir en algo totalmente ilógico.
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....

[[Caral]]

Hola
Y el datasource esta conectado a Que componente ????????????????????
Y este a su vez esta conectado a que componente ????????????????????
Saludos

[Vales08]

La grilla esta conectada a un datasource, que a la vez esta conectado con un query, el cual esta conectado con su respectiva base de datos.. Todos estos componentes estan alojados en un DataModule..