根据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