dataset и progressbar

[BARNEY]

тут задет ещё такой критерий как время...... ну вот пример запроса и его время выполнение... от сюда следует что посчитать записи не сложно.

[Serge_Bliznykov]

soleil@mmc, +1

BARNEY, Вы вообще читаете то, что Вам пишут?!
я спросил про СУБД... ответа нет..
ну да ладно..
главное. в условии WHERE у ВАС ТОЛЬКО ID (ну плюс поле is_active, которое наверняка тоже проиндексировано СУБД)
добавьте в WHERE проверки на substring(polis.snils from xx for xx) = 'Чему-то'
а всё что после select замените на банальный COUNT(*)
и вот тогда сообщите результаты тайминга...

[BARNEY]

------ Performance info ------
Prepare time = 31ms
Execute time = 15s 735ms
Avg fetch time = 15*735,00 ms
Current memory = 576*500
Max memory = 1*377*024
Memory buffers = 120
Reads from disk to cache = 1*821*171
Writes from cache to disk = 0
Fetches from cache = 6*879*474

11 000 000 записей обработана..... как и просили добавил count + условие...

СУБД Firebird 2.1

[asimpsons]

с оракла достаю в порядке 350 штук записей и втыкаю в absolute database для клиентов без доступа в оракл. после работы в Absolute DB идут задержки.

Сообщение от BARNEY

можно в поток прогрессбар засунуть..токда не будет песочных часиков...

про поток можете подробное написать.

[BARNEY]

кнопка 

procedure Tdrfiski.Button2Click(Sender: TObject);
var s:string;
i:integer;
sql:string;
potok:MyPotok;
begin
tt.SQL.Text:='select count(id) as cnt from polis where is_active=1 and polis.date_out is not null';
tt.Active:=true;
Gauge1.MaxValue:=tt.FieldValues['cnt'];
Gauge1.MinValue:=0;

Quick.ExecQuery;
Edit1.Enabled:=false;
Gauge1.progress:=0;

if ProgrammMain.IBD.Connected=false then
ProgrammMain.IBD.Connected:=true;
ii:=0;
x:=0;
Potok:=MyPotok.Create(true);
Potok.FreeOnTerminate:=false;
Potok.Priority:=tpHigher;
Potok.Resume;
Button2.Enabled:=false;
end;

//создаём поток Файл - создать - объект потока

procedure MyPotok.Execute;
var
s,sql: string;
cc,i:integer;
begin
while (not drfiski.Quick.Eof) do
  begin
       sql:=''; // некая переменная 
     try
     ProgrammMain.IBQ.SQL.Text:='insert into polis values ('+sql+')';
     ProgrammMain.IBQ.ExecQuery;
     except
     drfiski.memo1.Lines.Add(ProgrammMain.IBQ.SQL.Text);//баги сюда
     end;
     ii:=ii+1;    
    end;
    drfiski.Quick.Next;
    Synchronize(progress);
    Application.ProcessMessages;
  end;
end;
ProgrammMain.IBTransaction1.Commit;
if(ProgrammMain.IBTransaction1.Active=false)then
ProgrammMain.IBTransaction1.Active:=true;


procedure MyPotok.progress;
begin
drfiski.Label2.Caption:=IntToStr(ii);
drfiski.Gauge1.Progress:=ii;
drfiski.Label6.Caption:=IntToStr(drfiski.Gauge1.MaxValue);
end;

Как то так