Problemas con consulta sql y fecha
 

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

formato
 

tal vez te haga falta darle formato a la fecha.

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

:cool:

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

fecha
 

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...:cool:

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. :)

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

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 ' +

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

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

fecha_turno es un datetimepicker
prof_agen_turno es un combobox...

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

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.

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

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.

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

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.

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.

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

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

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

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

Hola
Vales, los componentes tienen nombre, por ejemplo:
IBQuery o ZQuery o AdoQuery.
Esto depende de la paleta donde los cargaste.
Parece que soy algo necio, pero es basico ya que por ejemplo:
ADO acepta Parameters, sin embargo IB o Zeos NO.
Asi de simple.
Saludos

Perdon, los componentes son IB, de la paleta DataAccess e InterBase... Yo eh trabajado muchas veces con parametros y me han funcionado perfectamente... Inclusive en este mismo proyecto..

Hola
Enlace de los componentes IB a la BD:
1- IBDatabase.
Este componente sera el que conecta a la BD.
2- IBTransaction.
Este componete sera el que hara las transacciones.
3- IBQuery o IBtable.
4- Datasource.
5- DBgrid u otros.
Esta asi tu conexión ?
Saludos

Si la verdad que si, la conexion este bien, es mas es un proyecto bastante grande, vengo trabajando hace bastante tiempo con esto y tengo varios, muchos de estos componentes.. Creo que el problema no estaria alli, ya que sino no me funcionaria nada de lo que tengo conectado a estos componentes... Eso es lo que creo..

Hola Vales.

Yo apunto al mismo lado que Carlos, con seguridad el problema está en el manejo o configuración de los componentes, por que el código SQL de la consulta es correcto.

Para que lo compruebes, basta con que uses el IBExpert por ejemplo y escribas en el editor SQL textualmente:

Código SQL [-]
SELECT * FROM AGENDAS_TURNOS, PROFESIONALES 
WHERE AGENDAS_TURNOS.FECHA = :FECHA 
  AND PROFESIONALES.APELLIDO_Y_NOMBRE = :APELNOM 
  AND PROFESIONALES.ID_PROF = AGENDAS_TURNOS.ID_PROF

Saludos.

Voy a volver a controlar una vez mas por las dudas, pero eh revisado y no eh encontrado error... Pero vuelvo a controlar..

Hola
Bien, llegamos a algo:
Si la conexión esta bien, prueba esto:

Código Delphi [-]
  with DM.Q_agen_tur do
  begin
   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:= DateToStr(fecha_turno.Date);
   Params[1].Value:= prof_agen_turno.Text;
   Open;
  end;

Saludos

Me funciona el codigo, lo unico que despues del parametro :Fec le agregue un espacio porque me salto error... Lo unico que me gusraia saber es el tema de los n° 0 y 1 en los parametros.. a que hacen referencia, no quiero usar un codigo sin saber que significa.. Muchas gracias..

0 y 1
 

simple los parametros estan controlados por un indice
eso es precisamente el significado del 0 y el 1 y si tuvieras otro parametro seria el 2 y asi.....:cool:

Hola
Esta parte me gusto mucho.:)
Los parametros empiezan desde el numero 0.
Si tengo una consulta, por ejemplo:

Código Delphi [-]
Select * form mitabla where fecha = :Parametro0 and dia = :Parametro1

como ves, en la consulta el primer parametro sera el que este mas cerca del where y sera el numero 0, el que le sigue sera el 1 y asi sucesivamente.
Por cierto, indicas que los componentes IB aceptan parámetros, estas en lo correcto, lo que no aceptan es la palabra parameters.
Saludos

caral
 

por cierto ese Caral es un buenazo, algún dia me gustaria ser como él, jeje...:cool:

Hola
No te fíes de este Novato amigo.....:D:D:D
Saludos

Perfecto, muchisimas gracias por todo.. Costo, pero de todo se aprende, eso es lo importante....
Todos son muy buenos en este foro, graxcias a todos avance mucho en mis conocimientos...
Saludos..

Hola
Que bueno, la próxima vez prometo regañarte menos.:D;)
Tienes que tenerle mas paciencia a este viejo.:)
Saludos