как увеличить скорость заполнения данных в mdb из excel

[Tanuska___:)]

Уважаемые программисты, у меня такой вопрос:
заношу из excel записи (где то 14000) в таблицу бд аксес.
вот кусок кода этого процесса:

I:=2;
V:= Sheet.Cells[I, 1].Value;
While Not VarIsEmpty(V) do
begin
    Edit17.Text:=Sheet.Cells[I, 2].Value;
    Edit9.Text:=Sheet.Cells[I, 11].Value;
  
  t:='insert into rabota (GARN1,dat) values ('+ QuotedStr(Edit17.Text)+','+ QuotedStr(Edit9.Text)+')';
      with ADOQuery do
      begin
      Close;
      SQL.Clear;
      SQL.Text:=t;
      ExecSQL;
      end;
    Inc(I);
 V:= Sheet.Cells[I, 1].Value;
 end;

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

[dron-s]

I:=2;
V:= Sheet.Cells[I, 1].Value;
While Not VarIsEmpty(V) do
begin
  t:='insert into rabota (GARN1,dat) values ('+ QuotedStr(Sheet.Cells[I, 2].Value)+','+ QuotedStr(Sheet.Cells[I, 11].Value)+')';
      with ADOQuery do
      begin
      Close;
      SQL.Clear;
      SQL.Text:=t;
      ExecSQL;
      end;
    Inc(I);
 V:= Sheet.Cells[I, 1].Value;
 end;

комп лишком тормозной

[Tanuska___:)]

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

[Grag]

Я такие операции делаю через вариантные матрицы, выделяю область данных таблицы Excel, затем копирую эту область в матрицу (выполняется очень быстро), а потом уже из матрицы выгружаю данные в таблицу БД...

[plato]

использую вариантные массивы
есть обратный пример: http://www.delphisources.ru/pages/fa...excel_rep.html
переделай под себя
будет быстро