发信人: delphilxh(先锋)
整理人: soaringbird(2001-06-18 07:58:22), 站内信件
|
我给大家介绍一种快速进行数据表复制的函数,只有一个缺点,就是产生了一些没用的文件;
uses bde;
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 ;
---- ██████
█┏━━┓█ Delphi先锋网欢迎您!!!!
█┃之先┃█ 北京网易Delphi论坛
█┃印锋┃█
█┗━━┛█
██████
|
|