月光软件站 - 编程文档 - Delphi - 将ADODataSet导出的数据导回原来的table

Delphi

本类阅读TOP10

·游戏外挂设计技术探讨①
·如何使用Delphi设计强大的服务器程序
·分布式网络考试系统原型分析及实现
·用DLL方式封装MDI子窗体。
·使用HOOK随心监视Windows
·Delphi 水晶报表打包解决
·url编码与解码工具附代码
·工人线程中关闭窗体的实现
·hdsi2.0 sql注入部分抓包分析语句
·Borland Delphi 2005 下载

→ 分类导航

VC语言	Delphi
VB语言	ASP
Perl	Java
Script	数据库
其他语言	游戏开发
文件格式	网站制作
软件工程	.NET开发

将ADODataSet导出的数据导回原来的table

作者：未知来源：月光软件站 加入时间：2005-2-28　月光软件站

我们都知道，ADODataSet可以将数据保存为 xml或者 pdfg格式的本地数据文件，
但是，如果将数据保存后推出，不做任何修改，下次将数据用AdoDataSet.loadFromFile加载后
系统是不会将数据给我们送回原来的备份的table的，简于此，我写了一个函数，可以将单表导出的数据
再次到会到原来的table 中，但条件是，你的 PK不能是自增的，如果有这种情况，你可以在我的代码中
稍稍改动下，就可以了，不难，呵呵
procedure importData(Conn:TADOConnection;TableName:string;AdoDataSet:TADODataSet);
var
i : integer;
RDataSet: TADODataSet;
begin
RDataSet := TADODataSet.Create(nil);
RDataSet.Connection := Conn;
RDataSet.LockType := ltBatchOptimistic; RDataSet.CommandText := format('SELECT TOP 1 * FROM %s',[TableName]);
RDataSet.Open; AdoDataSet.First ;
try
     while not AdoDataSet.Eof do
     begin
       RDataSet.Append;
       for i:=0 to AdoDataSet.FieldCount -1 do
       begin
         RDataSet.Fields[i].Value := AdoDataSet.Fields[i].Value;
       end;
       RDataSet.Post;
       AdoDataSet.Next;
     end;
       RDataSet.UpdateBatch();
finally
    RDataSet.Free;
end;
end;

相关文章：

相关软件：