Buscar por:

Progress bar em consulta sql ou tabela

Código

Simples e eficiente. Funciona com query ou tabela.

Codigo:

  Você pode primeiro executar uma consulta; por exe: 

       query.sql.add(' select * from tabela');

para associar um progress bar a esta consulta digite logo após :

    / / pb  é name de um TProgressBar adicionado no form

       pb.Max:= query.RecordCount;

       pb.Min:= 0;

       pb.Position:= 0;

         query.First;

         while not query.Eof do

         begin

            pb.Position:= pb.Position+1;

            query.Next;

        end;

Nota: Se for realizar qualquer operação direto na tabela no lugar da 'query' coloque o nome da Tabela.