Скорость работы Access

[beringoff]

Проблема переход с Парадокс на Access.
Катастрофическое замедление работы.
Ситуация. Таблица парадокс имеет 300 000 записей. Создал ее копию в аксесе.
Задача: в одно поле ввести последовательно число от 1 до упора.
вот такой код обработки двух кнопок.

procedure TForm1.Button1Click(Sender: TObject);
var D1,D2:Cardinal;
S:longint;
begin
	S:=0;
	T1.Open;
	D1:=Gettickcount;
	while not T1.Eof do begin
		inc(S);
		T1.Edit;
		T1.FieldByName('lev').AsInteger:=S;
		T1.Next;
	end;
	D2:=Gettickcount;
	E1.Text:=IntToStr(D1);
	E2.Text:=IntToStr(D2-D1);
	T1.Close;
end;

procedure TForm1.Button2Click(Sender: TObject);
var D1,D2:Cardinal;
S:longint;
begin
	S:=0;
	AT1.Open;
	D1:=Gettickcount;
	while not AT1.Eof do begin
		inc(S);
		AT1.Edit;
		AT1.FieldByName('lev').AsInteger:=S;
		AT1.Next;
	end;
	D2:=Gettickcount;
	E3.Text:=IntToStr(D1);
	E4.Text:=IntToStr(D2-D1);
	AT1.Close;
end;

Первая кнопка обработка таблицы Paradox, через Ttable.
1500 тиков.
Вторая кнопка Access через ADOTable.
После 20 минут ожидания вырубил, посмотрел - изменено чуть более 100 000 записей.
Вопрос: это так access работает вообще или есть что то, чего я не знаю.
Комп мощный.

[Dark_Spirit]

через SQL попробуй

[beringoff]

Как через SQL увеличивать значение вводимое в поле?

[Аватар]

Для начала посмотреть какие индексы у таблицы в базе есть. И не понятен смысл нумерации

[beringoff]

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

[Dark_Spirit]

если у тебя уже есть таблица с определённым колилчеством записей можно попробовать сделать следующее:

 for i:=0 to AT1.recordcount-1 do
   begin
    Application.ProcessMessage;
     sql:='update [table_name]'+#13+
             'set lev='+inttostr(i)+#13+
            'where nomer='+inttostr(i);
     adocommand1.commandtext:=sql;
     adoconnection1.beginTrans;
     try
       adocommand1.execute;
       adoconnection1.commitTrans; 
     except 
       adoconnection1.rollbackTrans;
     end; 
   end;

ну а если таблица не заполнена:

 for i:=0 to <колличество_вставляемых_данных> do
   begin
     application.processMessage;
     sql:='insert into [table_name] (lev)'+#13+
            'values('+inttostr(i)+')';
     adocommand1.commandText:=sql;
     adoconnection1.beginTrans;
     try
      adocommand1.execute;
      adoconnection1.committrans;
     except
       adoconnection1.rollbackTrans;
     end; 
   end;

[beringoff]

Dark_Spirit, спасибо, но не то.
Нет в таблице поля для where, все будет писаться в одну строку.

Нужно тупо проставить нумератор. Конечная задача: периодически запоминать местоположение записи в списке, которое будет меняться в соответствии с изменением определенного поля, по местоположению будет строится график.
Во время создания одного отчета, местоположение записи может меняться до 20 раз. На парадоксе все это проходит за полторы минуты.
В аксесе зависло на часы.

[beringoff]

Я покопался и выяснил, что ADO при каждой записи изменении переходе и т.д. генерирует туеву хучу различных событий и вызывает несколько методов на каждое событие, поэтому такие тормоза.
Может есть какой-то способ обойти все эти генерации????

[Аватар]

Уникальный ключ надеюсь есть в таблице.

1. Запросом создать временную таблицу с этим ключем + автоинкремент от 1.
2. Запросом обновить поле исходной таблицы используя автонкремент из временной
3. Удалить временную

По всякому быстрей будет, но в первую очередь отказался бы вообще от перенумерации записей. Нумерацию можно и на весу делать SELECT-ом или на клиенте

[beringoff]

А можно вот об этом:

Сообщение от Аватар

Нумерацию можно и на весу делать SELECT-ом или на клиенте

попдробнее? Плиз.