Вставляю в таблицу сразу очень много строк

← →
Yuraz © (2002-04-11 11:50) [0]

Надо к тесту большую БД, да вот сделал кривова-то, но работает, можно ли как нибудь это ускорить? Если потребуется, то работаю с DataSource1, ADODataSet1, DBGrid1
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
for i:=1 to SpinEdit1.Value do // сколько записей надо вставить
begin
DBNavigator1.BtnClick(nbInsert);
DBEdit2.Text:=RndWorld(10); // процедурка, возвр. слово из 10 случайных букв
DBEdit3.Text:=IntToStr(Random(100000)); // а в эту строку запишем число
DBNavigator1.BtnClick(nbPost);

end;
end;

← →
Виктор Щербаков © (2002-04-11 11:58) [1]

Это делается с помощью методов набора данных, а не с помощью data-aware компонентов. Они могут вообще не понадобиться для такого тестирования. Еще лучше вставлять тестовые записи с помощью TQuery.

← →
Yuraz © (2002-04-11 14:21) [2]

То что не нужны, понятно, да по другому не доходит. Всё таки как это без DBNavigator реализуется?

← →
vopros © (2002-04-11 14:39) [3]

var
i:integer;
begin
for i:=1 to SpinEdit1.Value do // сколько записей надо вставить
begin
Table1.insert;
Table1Slovo.value:=RndWorld(10); // процедурка, возвр. слово из 10 случайных букв slovo-поле к которому привязн DbEdit2
Table1Cifra.value:=IntToStr(Random(100000)); // а в эту строку запишем число -аналогия
Table1.post;
end;
end;

AdoDataSet1.Insert; AdoDataSet1.FieldByName("MyField1").AsString := RndWorld(10); AdoDataSet1.FieldByName("MyField2").AsString := IntToStr(Random(100000)); AdoDataSet1.Post;

Вставляю в таблицу сразу очень много строк Найти похожие ветки