ACCESS中奇怪的问题！

最新推荐文章于 2023-01-20 12:24:58 发布

siow

最新推荐文章于 2023-01-20 12:24:58 发布

阅读量1.5k

点赞数

分类专栏：软件技术文章标签： access 数据库 join security delphi null

本文链接：https://blog.csdn.net/siow/article/details/2493944

版权

软件技术专栏收录该内容

40 篇文章 2 订阅

订阅专栏

前几天写了个函数：

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