[[Caral]]

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