Barra de progresso de instru��o SQL

Question

� possivel colocar uma barra de progresso para mostrar o tempo de processamento de uma instru��o SQL. Utilizo D7/ADO/SQL Server....

Bruno_fantin · Answer

N�o...Nem o banco sabe quantos porcentos j� foi... Seu programa menos ainda......

Bon Jovi · Answer

O q vc pode fazer � dar um select q traga o COUNT e depois trazer aos poucos (usando midas) a grande massa de dados q est� necessitando colocar na m�quina cliente.

S� um problema q vejo, se na produ��o da empresa tiver atualiza��es muito intensas, o COUNT feito antes pode nao bater com a quantidade de registros que estao sendo abertos, fazendo ficar incorreto o Max da barra de progresso.

Exemplo, usando midas/ClientDataSet (+ ADO ou qualquer outro):

procedure AbreClientDataSet(AClientDataSet: TClientDataSet; APacketRecords: integer; AProgressBar: TProgressBar; ACount: integer);
var
  FormRepaint: TCustomForm;
begin
  if not Assigned(AClientDataSet) then
    Exit;

  if Assigned(AProgressBar) then
  begin
    AProgressBar.Position := 0;
    AProgressBar.Max := ACount;
  end;

  Screen.Cursor := crHourGlass;
  try
    if AClientDataSet.Active then
      AClientDataSet.Close;
    AClientDataSet.PacketRecords := APacketRecords;
    AClientDataSet.Open;
    
    while (AClientDataSet.GetNextPacket <> 0) do
    begin
      if Assigned(AProgressBar) then
      begin
        FormRepaint := Forms.GetParentForm(AProgressBar);
        AProgressBar.Position := AClientDataSet.RecordCount;
        if Assigned(FormRepaint) then
          FormRepaint.Update;
      end;      
    end;
  finally
    Screen.Cursor := crDefault;
  end;
end;

Ve a�, s� compilei, to sem base aqui pra rodar.

Tem tb o evento OnFetchProgress do ADODataSet/ADOQuery, nunca usei e nem sei se ele pode te ajudar nesse caso, n�o sei na pr�tica em que situa��o ele ocorre.

Bon Jovi · Answer

Complementando exemplo...... SELECT COUNT(ID_PRODUTO) FROM PRODUTOCount := ....;//Exemplo: Count veio igual a 100000//trar� do servidor de 200 em 200....AbreClientDataSet(ClientDataSet1, 200, ProgressBar1, Count);...

Rjun · Answer

Foi nessa solu��o que pensei, usando onAsyncNonBloking e OnFetchProgress e usando o Select Count para pegar o total de registros da tabela. Minha d�vida agora, seria se o select count poderia criar um gargalo na aplica��o.

Bon Jovi · Answer

�Minha d�vida agora, seria se o select count poderia criar um gargalo na aplica��o.�

O count � r�pido. Sendo um bom servidor n�o h� risco, o count vai ser processado l� e apenas uma linha ser� trafegada pela rede.

Vc sabe como fazer pra ocorrer o OnFetchProgress? Gostaria de saber. A� nele nem precisaria ver o count, s� fazer algo assim:

procedure TForm1.ADODataSet1FetchProgress(DataSet: TCustomADODataSet;
  Progress, MaxProgress: Integer; var EventStatus: TEventStatus);
begin
  ProgressBar1.Max := MaxProgress;
  ProgressBar1.Position := Progress;
  Self.Update;
end;

Rjun · Answer

A primeira vista, pensei que poderia fazer da maneira que voc� est� falando, Bon Jovi, mas acontece que o par�metro MaxProgress n�o traz o total de registros da tabela, e sim o n�mero de registros que ele puxa em uma opera��o. (Pelo menos foi o que eu pude enteder). Acho que o OnFetchProgress ocorre a cada leitura desse bloco.

F�rum Barra de progresso de instru��o SQL #261436