Скачать: CL | DM;

Перекодировка таблиц   Найти похожие ветки 

← →
Viktor   (2004-05-30 22:42) [0]

Здравствуйте Мастера! Есть dbf и БД FireBird. Необходимо скопировать записи из dbf в БД FireBird. Я делаю так:

procedure TForm1.Button2Click(Sender: TObject);
var
src:PChar;
begin
Table1.First;
Gauge1.MaxValue:=Table1.RecordCount;
ProgressBar1.Max:=Table1.RecordCount;
while not Table1.Eof do
begin
 with pFIBStoredProc1 do
  begin
   Prepare;
   ParamByName("SUMA").AsCurrency:=Table1SUMMA.AsCurrency;
   Src:=StrPCopy(src,Table1FIO.AsString);
   OemToChar(Pointer(Table1FIO.AsString), Src);
   ParamByName("FIO").AsString:=StrPas(src);
   ExecProc;
   Close;
  end;
 Table1.Next;
 Gauge1.AddProgress(1);
 ProgressBar1.StepBy(1);
 end;
pFIBTransaction1.CommitRetaining;
pFIBDataSet1.CloseOpen(True);
Gauge1.Progress:=0;
end;

Записи вставляются правильно, но после окончания цикла выскакивает ошибка "acces violation ....". Что делаю неправильно?
Спасибо.

---

← →
Vlad ©   (2004-05-30 22:44) [1]

http://delphibase.endimus.com/?action=viewfunc&topic=strconvert&id=10308

---

← →
Viktor   (2004-05-30 22:51) [2]

Большое спасибо!Работает.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.02 c