备份数据库

备份数据库

procedure QuickCopyTable(T: TTable; DestTblName: string; Overwrite: Boolean);

var

DBType: DBINAME;

WasOpen: Boolean;

NumCopied: Word;

begin

//save table active state

WasOpen := T.Active;

if not WasOpen then T.Open; //ensure the table is open

//Get driver type string

Check(DbiGetProp(hDBIObj(T.Handle), drvDRIVERTYPE, @DBType, SizeOf(DBINAME), NumCopied));

//Copy the table

Check(DBICopyTable(T.DBHandle, Overwrite, PChar(T.Tablename),

DBType, PChar(DestTblName)));

//Restore active state

T.Active := WasOpen;

end;