RE: [firebase-br] Progresso em uma instrução Rolando

[Via Soluções]

Olá Cássio...

Tente fazer desta forma amigo..


Procedure Progresso;
Var
  Contador : Integer;
Begin
  With DM.qOrigem Do
    Begin
      ProgressBar.Position := 0;
      ProgressBar.Max      := DM.qOrigem.RecordCount;
      ProgressBar.Step     := 1;
      Contador := 0;
      DM.qOrigem.First;
      Try
       Cursor := crSQLWait;
        Try
          While Not DM.qOrigem.Eof Do
            Begin
              {....}
              Contador := Contador + 1;
              ProgressBar.StepIt;
              DM.qOrigem.Next;
              lbContador.Caption := IntToStr(Contador);
              lbContador.Update;
            End;
       Except
          Application.MessageBox('Ocorreu algum Erro', 'Atenção !', MB_ICONINFORMATION or MB_OK );
        End;
      Finally
        Cursor := crDefault;
      End;
    End;
End;


Um abraço,
Everson





----------------------------------------
> Date: Fri, 15 Dec 2006 20:27:58 -0200
> From: pajolista em gmail.com
> To: lista em firebase.com.br
> Subject: [firebase-br] Progresso em uma instrução Rolando
> 
> ola pessoal muito boa noite , estou com a seguinte duvida e conto com a
> colaboração da lista .. eu gostaria que ter uma maneira de saber o progresso
> de uma instrução que esta "rolando" no banco exemplo "vou fazer um select em
> uma tabela de um  banco de dados muito grande , esta operação chega a
> demorar um pouco eu gostaria de saber se tem alguma maneira comando ou
> chunchu { essa foi boa <:D}, com o qual eu possa capturar como esta o
> progresso dessa instrução demorada .. Valew Pessoal .
> ______________________________________________
> FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
> Para editar sua configuração na lista, use o endereço http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
> Para consultar mensagens antigas: http://firebase.com.br/pesquisa

_________________________________________________________________
Busque em qualquer página da Web com alta proteção. Obtenha o Windows Live Toolbar GRATUITO ainda hoje!
http://toolbar.live.com/