精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>编程开发>>● Delphi>>数据库技术>>快速进行表复制

主题:快速进行表复制
发信人: 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论坛 
█┃印锋┃█ 
█┗━━┛█ 
██████ 

              

[关闭][返回]