Быстрое копирование таблиц

Материал из DRKB

Быстрое копирование таблиц[править | править код]

Из книги Стива Тейксейра и Пачеко 'Delphi 4. Руководство разработчика' я взял функцию для быстрого копирования таблиц вместе со всеми дополнительными файлами:

Вот она:

procedure QuickCopyTable(T: TTable; DestTblName: string; Overwrite: Boolean);
// только для не SQL-ых, т.е не промышленных  БД (dBase, Paradox ..)
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;


Source: Взято с сайта http://blackman.wp-club.net/
ID: 02404