Usporavanje upisa

Odgovori Nova tema

4 odgovora
2.755 pregleda

Usporavanje upisa 06.10.2008. u 09:21 · pre 220 meseci #1

Pozdrav!
Kombinacija Delphi/Firebird
Procedura u programu generiše i upisuje u datoteku nekliko desetina hiljada slogova (sa nekih 30-tak) podataka. Da provjerim brzinu dodao sam upis vremena i uvidio da kako datoreka raste upis postaje sve sporiji, ima li lijeka?!

Re: Usporavanje upisa 06.10.2008. u 11:24 · pre 220 meseci #2

Nisi rekao koje komponente koristis i kako (append, insert) vrsis upisivanje novih slogova?

Potpis

ERROR974

Re: Usporavanje upisa 06.10.2008. u 11:38 · pre 220 meseci #3

Citat:

Vic: Nisi rekao koje komponente koristis i kako (append, insert) vrsis upisivanje novih slogova?

DbExpress , a slogove dodajem sa Append

Re: Usporavanje upisa 06.10.2008. u 12:03 · pre 220 meseci #4

U tome ti i lezi problem. Pretpostavljam da kopiras podatke iz jedne tabele u drugu. Probaj da radis insert umesto append, pa vidi kako se ponasa.

Potpis

ERROR974

Re: Usporavanje upisa 06.10.2008. u 13:20 · pre 220 meseci #5

Ni Append ni Insert metode dataseta već SQL komponenta i prepared INSERT. Tačna sintaksa zavisi od komponenti ali ti je ovo osnovna ideja.

Code:

Transaction.Start;
Qry.SQL := 'INSERT INTO TABLE (ID, A) VALUES (:ID, :A);';
Qry.Prepare;
for i := 0 to 1000 do
begin
  Qry.Params[0] := i;
  Qry.Params[1] := 'A';
  Qry.ExecSql;
end;

Transaction.Commit;

Potpis

Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html

Prijavite se da biste odgovorili u ovoj temi.Prijava Registracija

Forum kao aplikacija na telefonu

Srodne teme