Componente TSQLQuery del DBExpress

[novato_erick]

Hola Chicos como están?

Trabajando un poco con el componente TSQLQuery del DBXpress a una base de datos de Firebird quise hacer lo siguiente:

en mi TSQLQuery llamdo qConsultaFechaAgenda en la propiedad string tengo lo siguiente:

Código SQL [-]
SELECT FECHA, id_empleado FROM AGENDA WHERE Fecha =Fecha and id_empleado =Id_empleado

Cuando Abre el formulario principal lo que deseo es solamente me muestre las actividades de la agenda de quien ingreso previamente guardado en dos tablas llamada Agenda y Recordatorio. así que en el evento OnShow tengo lo siguiente:

Código Delphi [-]
procedure TfrmPrincipal.FormShow(Sender: TObject);
begin
  dmConecta.qConsultaFechaAgenda.Close;
  dmConecta.qConsultaFechaAgenda.Params.ParamByName('pFecha').AsDate := Now;
  dmConecta.qConsultaFechaAgenda.Params.ParamByName('pID_EMPLEADO').AsInteger := IdEmpleado;
  dmConecta.qConsultaFechaAgenda.ExecSQL(False);
  dmConecta.qConsultaFechaAgenda.Open;
  if dmConecta.qConsultaFechaAgenda.RecordCount >= 1  then
  begin
    frmPrincipal.LblActividades.Caption := 'Usted Actualmente tiene Actividades';
  end
  else
    begin
    frmPrincipal.LblActividades.Caption := 'Usted No tiene Actividades';
    end;
end;

Pero lo bonito es que me envía este mensaje: [0x0005]: Operation Not Supported.

Estoy usando mal el componente?


Saludos


novato_erick