Быстрое копирование таблиц
Быстрое копирование таблиц
Из книги Стива Тейксейра и Пачеко '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;
Взято с сайта
