Копирование таблиц Paradox

← →
Uzver (2003-08-26 15:55) [0]

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

← →
Zelius © (2003-08-26 16:08) [1]

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

← →
Ru © (2003-08-26 16:12) [2]

>Uzver (26.08.03 15:55)

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

← →
Anatoly Podgoretsky © (2003-08-26 16:21) [3]

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

← →
Uzver (2003-08-26 16:24) [4]

Все я прописываю. Вот процедура:
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");

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

Копирование таблиц Paradox Найти похожие ветки