Быстрое копирование таблиц
Материал из 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