| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Перекодировка таблиц
Viktor © (2004-05-30 22:42:00)Здравствуйте Мастера! Есть 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 ....". Что делаю неправильно?
Спасибо.
Viktor (2004-05-30 22:51:00) [1]Большое спасибо!Работает.
Vlad (2004-05-30 22:44:00) [2]http://delphibase.endimus.com/?action=viewfunc&topic=strconvert&id=10308
| |
