| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Вставляю в таблицу сразу очень много строк [D5]
Yuraz © (2002-04-11 11:50:00)Надо к тесту большую БД, да вот сделал кривова-то, но работает, можно ли как нибудь это ускорить? Если потребуется, то работаю с 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;
panov (2002-04-11 14:41:00) [1]
AdoDataSet1.Insert;
AdoDataSet1.FieldByName("MyField1").AsString := RndWorld(10);
AdoDataSet1.FieldByName("MyField2").AsString := IntToStr(Random(100000));
AdoDataSet1.Post;
vopros (2002-04-11 14:39:00) [2]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;
Yuraz (2002-04-11 14:21:00) [3]То что не нужны, понятно, да по другому не доходит. Всё таки как это без DBNavigator реализуется?
Виктор Щербаков (2002-04-11 11:58:00) [4]Это делается с помощью методов набора данных, а не с помощью data-aware компонентов. Они могут вообще не понадобиться для такого тестирования. Еще лучше вставлять тестовые записи с помощью TQuery.
| |
