Delphi-Help

Главная

Функция для быстрого копирования таблиц вместе со всеми дополнительными файлами

Оцените материал
(0 голосов)


Функция для быстрого копирования таблиц вместе со всеми дополнительными файлами

Только для не SQL-ых, т.е не промышленных БД (dBase, Paradox ..)

Путь нужно задавать только АНГЛИЙСКИМИ буквами.

procedure QuickCopyTable(T: TTable; DestTblName: string; Overwrite: boolean);
var
  DBType: DBIName;
  WasOpen: boolean;
  NumCopied: word;
begin
  WasOpen := T.Active;
  if not WasOpen then
    T.Open;
  Check(DbiGetProp(hDBIObj(T.Handle),drvDRIVERTYPE, @DBType,SizeOf(DBINAME), NumCopied));
  Check(DbiCopyTable(T.DBHandle, Overwrite, PChar(T.TableName),DBType, PChar(DestTblName)));
  T.Active := WasOpen;
end;
Прочитано 5498 раз

Авторизация



Счетчики