Componente TSQLQuery del DBExpress

[ecfisa]

Hola novato_erick.

La propiedad RecordCount no es fiable en todos los componentes, proba de este modo:

Código Delphi [-]
  with dmConecta.qConsultaFechaAgenda do
  begin
    Close;
    Params.ParamByName('pFecha').AsDate := Now;
    Params.ParamByName('pID_EMPLEADO').AsInteger := IdEmpleado;
    ExecSQL(False);
    Open;
    if IsEmpty then
      frmPrincipal.LblActividades.Caption := 'Usted No tiene Actividades'
    else
      frmPrincipal.LblActividades.Caption := 'Usted Actualmente tiene Actividades';
  end;

Saludos.