iBase.ru Forum

Ugrael писал(а):Так вот когда начинается импорт или печать то база словно переходит в однопользовательский режим. пока не пройдет печать или импорт другой человек вообще не может вводить\печатать записи.

ZMan писал(а):Опиши подробнее, как проделываешь импорт?

Ugrael писал(а):

ZMan писал(а):Опиши подробнее, как проделываешь импорт?

импорт из dbf файла в цикле построчно.
то бишь insertrecord(...), next

Ugrael писал(а): for i:=1 to DataModule1.importdbf.RecordCount do
begin
DataModule1.NolDataSet.Insert;
...
DataModule1.NolDataSet.Post;
oper.glavTransaction.Commit;
...
end;

Ugrael писал(а):DataModule1.importdbf.First;
for i:=1 to DataModule1.importdbf.RecordCount do
begin
...
oper.glavTransaction.Commit;
DataModule1.NolDataSet.Active:=true;
DataModule1.importdbf.Next;
end;

...
DataModule1.NolDataSet.Active:=true;
...

First
while not EOF do
begin
  SQL.Text:='insert into Table (Field1, Field2,...,FieldN) values (:Param1, :Param2,...,:ParamN)';
  for i:= 0 to Params.Count-1 do
   begin
     Params[i].AsVariant:=ValueN; //где ValueN - любой источник данных(запрос, массив и тд и др)
   end
  Next;
end;
Commit; //если нужен

должно быть быстрее если загнать сначала dbf куда нибудь. например в память ?

MMF писал(а):Еще выкинь из цикла все FieldByName