Вставка данных в Excel через ADO

[Slava]

Здравствуйте!
У меня возникла проблема
Есть процедура которая (в цикле) вставляет,обновляет данные
примерно такая:

...
begin
for i:=1 to n do
Begin
SQLStr:='insert into DataTable(...) values (...)'
DefDBStr := ExtractFilePath(ParamStr(0)) + sDataPath;
ADOConnection1.Close;
ADOConnection1.DefaultDatabase := DefDBStr;
ADOQuery.SQL.Clear;
ADOQuery.SQL.Add(SQLStr);
for i := 0 to ADOConnection1.DataSetCount - 1 do
ADOConnection1.DataSets[i].Close;
for i:= 0 to ParamCount-1 do
begin
ADOQuery.Parameters[i].Value := Param[i];
end;
ADOQuery.ExecSQL;
End;
end;
...

Проблема в том что при выполнении запросов объем используемой памяти увеличивается - память не освобождается и
при выполнени большого количества запросов система выдает ошибку: [Microsoft] [Driver ODBC DBASE] Недостаточно системных ресурсов.

Подскажите пожалуйста что я не так делаю

---

[soleil@mmc]

у тебя 3 цикла и в них используется один и тот же идентификатор
а должны быть разные

[Slava]

извините ошибся

procedure TBASEFORM.ADOConnParam(ADOQuery : TADOQuery; Param: array of Variant; ParamCount: Integer);
var i,j,k: Integer;
begin
for i:=1 to n do
Begin
SQLStr:='insert into DataTable(...) values (...)'
DefDBStr := ExtractFilePath(ParamStr(0)) + sDataPath;
ADOConnection1.Close;
ADOConnection1.DefaultDatabase := DefDBStr;
ADOQuery.SQL.Clear;
ADOQuery.SQL.Add(SQLStr);
for k := 0 to adoConnAPK.DataSetCount - 1 do
ADOConnAPK.DataSets[k].Open;
for j:= 0 to ParamCount-1 do
begin
ADOQuery.Parameters[j].Value := Param[j];
end;
ADOQuery.ExecSQL;
End;
end;
...
---
Проблема та же.

[soleil@mmc]

еще желательно чтобы вы сами смогли словами описать что же вы пытаетесь сделать

по ходу дела вы заполняете DataTable данными, но неясно зачем это делается N-раз?
и еще неясно зачем делается вот это:

for k := 0 to adoConnAPK.DataSetCount - 1 do
ADOConnAPK.DataSets[k].Open;

[Slava]

Решение в общем нашел
причина оказалась в драйвере Microsoft Access dBASE Driver.
После обновления "MICROSOFT OFFICE ACCESS 2007 DATA CONNECTIVITY COMPONENTS" все заработало.
---
Тему можно считать закрытой. Спасибо всем.