根据ID字段比较两个Access数据库中的数据表中的记录异同

//函数说明:根据ID字段比较两个Access数据库中的数据表中的记录异同
//  p1    第一个数据库
//  p2    第二个数据库
//  tName 要对比的数据表名
function CompRecordById(AdoQuery:TADOQuery;p1,p2,tName:string):Boolean;
var
  sqlstr:string;
begin
  sqlstr:='select * from ('+
              'select t1.id,t2.id from ['+p1+'].'+tName+' as t1 left join '+tName+' as t2 on t1.id=t2.id '+
              'union '+
              'select t1.id,t2.id from ['+p1+'].'+tName+' as t1 right join '+tName+' as t2 on t1.id=t2.id'+
          ') '+
          'where t1.id is null '+//第一个数据库中没有的记录
          'or t2.id is null';    //第二个数据库中没有的记录

  AdoQuery.Close;
  AdoQuery.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+p2+';Persist Security Info=False';
  AdoQuery.SQL.Text:=sqlstr;
  AdoQuery.Open;
end; 

以上函数有BUG,请参看另一篇文章
http://blog.csdn.net/siow/archive/2008/05/29/2493944.aspx

阅读更多
个人分类: 软件技术
想对作者说点什么? 我来说一句

Access数据库对比工具

2011年11月07日 1.22MB 下载

<em>Access</em>数据库比较工具

2018年05月08日 0B 下载

没有更多推荐了,返回首页

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭