Скачать: CL | DM;

Здраствуйте!!! Что лучше, старичок BDE или универсал ADO для Серв   Найти похожие ветки 

← →
bardi   (2002-05-16 17:15) [0]

Здраствуйте!!! Что лучше, старичок BDE или универсал ADO для Сервака MS SQL.
Провел небольшой тест, и очень удивился, что BDE работает в 5-5,5 раза быстрее. Неужели за универсальный ADO надо платить скоростью, но не во столько раз.Кинул на форму Database1, Query1, подключил через BDE, и ADOConnection1, ADOQuery1. Создал цикл до 5000 раз ,машина P3-600/64M/ ось NT BDE-34c. ADO-3м07с
цикл до 10000раз, машина Сeler-1000/256M/ осьW200 BDE-17c. ADO-1м27с


//пример
procedure TForm1.Button1Click(Sender: TObject);
var i:integer; TimeX :TTime;
begin
TimeX := now;
Query1.DisableControls;
for i := 1 to 5000 do
begin
Query1.Close;
Query1.Open;
end;//for
Query1.EnableControls;
Label1.Caption:= TimeToStr(now-TimeX);
end;

procedure TForm1.Button2Click(Sender: TObject);

var i:integer; TimeX :TTime;
begin
TimeX := now;
ADOQuery1.DisableControls;
for i := 1 to 5000 do
begin
ADOQuery1.Close;
ADOQuery1.Open;
end;//for
ADOQuery1.EnableControls;
Label1.Caption:= TimeToStr(now-TimeX);
end;

---

← →
Lusha ©   (2002-05-16 17:23) [1]

ADO конечно медленнее, но не до такой степени, конечно. Скорее всего у Вас ADOQuery тащит все записи удовлетворяющие запросу на клиента. По-моему это где-то настраивается... :)

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.013 c