Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Копирование таблиц Paradox [D6, Paradox]

Uzver © (2003-08-26 15:55:00)

При копировании таблицы (например с помощью функции DbiCopyTable) выдается ошибка "Pach not found". Такая же ошибка выдается при копировании другими спосабами. Как её обойти?

Anatoly Podgoretsky (2003-08-26 16:51:00) [1]

Посмотри пример в справке, он асего из двух строк, а так тебя надо долго распрашивать про твои переменные, но у уже сейчас видно, что "Pa th not found".

Uzver (2003-08-26 16:24:00) [2]

Все я прописываю. Вот процедура:
procedure TForm2.CopyTable(FromDir, SrcTblName, ToDir, DestTblName:
String);
var
DBHandle: HDBIDB;
ResultCode: DBIResult;
Src, Dest, Err: Array[0..255] of Char;
SrcTbl, DestTbl: TTable;
begin
SrcTbl := TTable.Create(Application);
DestTbl := TTable.Create(Application);
try
SrcTbl.DatabaseName := FromDir;
SrcTbl.TableName := SrcTblName;
SrcTbl.Open;
DBHandle := SrcTbl.DBHandle;
SrcTbl.Close;
ResultCode := DbiCopyTable(DBHandle,false,
StrPCopy(Src,FromDir + "\" + SrcTblName), nil,
StrPCopy(Dest,ToDir + "\" + DestTblName));
if ResultCode <> DBIERR_NONE then
begin
DbiGetErrorString(ResultCode,Err);
raise EDatabaseError.Create("При копировании " +
FromDir + "\" + SrcTblName + " в " +
ToDir + "\" + DestTblName + ", the "
+ " database engin генерит ошибку """
+ StrPas(Err) + """");
end;
finally
SrcTbl.Free;
DestTbl.Free;
end;
end;
Использую так:
CopyTable("","TempBase.db","","TempBaseCopy.db");

Anatoly Podgoretsky (2003-08-26 16:21:00) [3]

Обойти ее можно своими силами если написать правильно или поделиться неправильным кодом.

Ru (2003-08-26 16:12:00) [4]

>Uzver (26.08.03 15:55)

можно о копировании подробнее?

Zelius (2003-08-26 16:08:00) [5]

наверное создать путь, куда ты собираешься скопировать таблицу :)

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »