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;

以上函数在使用时发现一些未知的怪异问题,在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;

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值