DBGridEh тормозит при добавлении записи

[Jora_Kornev]

Подскажите кто знает как правильно настроить DBGridEh (или компоненты подключения - ADOConnection, ADOTable, DataSource) чтобы при добавлении новой записи небыло таких "простоев". Запись добавляется при нажатии на кнопку. Вот кусок кода:

procedure TForm2.Button1Click(Sender: TObject);
begin
 Table1.Last;
 while Table1.Fields[1].AsString = '' do
  Table1.Prior;
 Table1.Insert;
 Table1.Edit;
 Table1.Fields[1].AsString:=DateToStr(ExtractDate(UnixToDateTime(StrToInt(Edit1.Text))));
 Table1.Fields[2].AsString:=c;
 Table1.Fields[3].AsInteger:=n+1;
 Table1.Fields[4].AsString:=p;
 Table1.Fields[5].AsInteger:=z;
 Table1.Fields[6].AsString:=s;
 Table1.Fields[7].AsString:=TimeToStr(ExtractTime(UnixToDateTime(StrToInt(Edit1.Text))));
 if prostoi>deltatime then
 Table1.Fields[8].AsString:=TimeToStr(deltatime) else
  Table1.Fields[9].AsString:=TimeToStr(deltatime);
 Table1.Post;

end;

С 5-ю записями работает отлично, но когда их становится 50 то ожидать после клика на кнопку приходится долго очень. А таких записей в таблице может быть несколько десятков тысяч... Подскажите как правильно организовать доступ к ним, так как нужно оставить возможность менять значения полей любой записи.

Да, чуть не забыл СУБД - Microsoft SQL Server 2008 R2

[Аватар]

1. И несколько десятков тысяч собираетесь через ADOTable? Есть ADOQuery, запросом брать нужную порцию записей (но не тысячи)
2. Не пойму смысла искать от конца первую запись с не пустым полем.
3. После Insert Edit не надо.
4. Вместо Insert лучше Append
Основной тормоз пока записей не очень много пункт 2
Когда их станет очень много и пункт 1 станет тормозом, да и памяти будет жрать много, поскольку ADOTable все записи на клиента тянет из базы

[Jora_Kornev]

Пока что не помогло. Буду пробовать через BDE подключаться, там есть свойство у TQuery UpdateMode со значением upWhereChanged. Попробую, потом отпишусь.

[rdama]

Я вот или дурак или не понимаю. Зачем использовать Microsoft SQL Server 2008 R2 и работать методами BDE. Типа Post, Edit, Insert?
T-SQL для вас рожей не вышел?
Вы пытаетесь блоху подковать, но при этом пытаетесь использовать разводной ключ.

[Stilet]

Да, чуть не забыл СУБД - Microsoft SQL Server 2008 R2

Вах!!! И ты имея под рукой такого многогранного монстра реализуешь сей алгоритм в Делфи?
Не думаешь ли ты что стоит сделать процедуру БД, в нее вынести алгоритм внесения данных, а не напрягать циклами клиента?

while Table1.Fields[1].AsString = '' do
Table1.Prior;

Из приведенного тобой куска кода я так и не понял зачем ты ищещь с конца какую-то запись, если при вставке не используешь ее данные?

но при этом пытаетесь использовать разводной ключ.

Не ключ а промышленный кузнечный пресс

[Jora_Kornev]

Компонент TADODataSet решил эту проблему, теперь не тормозит.