ACCESS中奇怪的问题！

来源：互联网发布：php自动加载类参数编辑：程序博客网时间：2024/05/01 12:53

前几天写了个函数：

//函数说明：根据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;

以上函数在使用时发现一些未知的怪异问题，在Delphi中报异常，不能正常使用，但同样的SQL语句在ACCESS数据库中执行却没有任何部题，开始以为是语句有问题，但更离谱的事发生了，把正常的语句在ACCESS中的查询中保存后，关闭，再打开，执行语句没问题，剪切，再粘贴回去，不做任何修改，但却不能运行了，报文件名不对的错误，原因不明，经过多次测试，做了些修改，终于能正常使用了，姑且认为是ACCESS的BUG吧。

修改后的函数：

function CompRecordById(AdoQuery:TADOQuery;p1,p2,tName:string):Boolean;
var
sqlstr:string;
begin
sqlstr:='select * from ('+
              'select t1.id,t2.id from '+
                  '(select id from '+tName+' in '''+p1+''') as t1 '+
                      'left join '+tName+' as t2 on t1.id=t2.id '+
              'UNION '+
              'select t1.id,t2.id from '+
                  '(select id from '+tName+' in '''+p1+''') 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;