查询access数据库数据

with ADOQueryExcept1 do
 begin
    SQL.Clear;
    SQL.Add('select * from (');
    SQL.Add('select a.Pankou,a.K1,a.K2,a.K3,a.Dif1,a.Dif2,a.Dif3,b.P1,b.TestType,b.Times as Times1,b.Hit as Hit1,b.Rate as Rates1');
    SQL.Add('from tbkelly a inner join');
    SQL.Add(format('(select * from tbHitRates in ''%s'' where TestType=0 and MType=''%s'') b on a.Pankou=b.Zhuang ',
      [GV_RatesFile,ADOQueryOdds.FieldByName('MType').AsString])); //GV_RatesFile就是Access数据库带全路径的文件名
    open;
end;

猜你喜欢

转载自blog.csdn.net/victor_yang/article/details/86217470