Форум: "Базы";
Текущий архив: 2002.05.02;
Скачать: [xml.tar.bz2];
ВнизВставляю в таблицу сразу очень много строк Найти похожие ветки
← →
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;
← →
panov (2002-04-11 14:41) [4]
AdoDataSet1.Insert;
AdoDataSet1.FieldByName("MyField1").AsString := RndWorld(10);
AdoDataSet1.FieldByName("MyField2").AsString := IntToStr(Random(100000));
AdoDataSet1.Post;
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2002.05.02;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.004 c