Delphi 中 adoquery Parameter ‘A’ not found---------半转

最新推荐文章于 2024-06-04 13:37:26 发布

原创最新推荐文章于 2024-06-04 13:37:26 发布 · 5k 阅读

11 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#delphi #query #borland #list

本文探讨了使用Delphi7的TADOQuery组件时遇到的中文参数传递问题，尤其是在参数检查开启的情况下导致的乱码问题，并提供了两种解决方案。

问：adoquery Parameter ‘A’ not found
源码为：

    Query2.Close;
    Query2.SQL.Clear;
    Query2.SQL.Add('select
 * From mnyCheckMonth'); 
    Query2.SQL.Add('where
 mcmCheckId in
(Select DisTinCt msmCheckId From 
mnyServeMonth');
    Query2.SQL.Add('Where
 msmTableId in (Select btaId From basTable');
    Query2.SQL.Add('Where
 btaDepartment=:A))'); 
    Query2.Parameters.ParamByName('A').Value
 := List[0].Text;//参数[0]也就
是A的值为中文'服务1部'
    //Query2.Parameters.Parameter.Value := List[0].Text;
    Query2.Open;

答：因为参数A取到了中文值，而Delphi 7的TADOQuery组件毕竟不是ADO原生控件，所
以在传递中文方面存在BUG，所以当Query2的ParamCheck打开为True的时候，中文参数
值会变成乱码，所以造成参数的自动构建失败。所以出现错误：Parameter ‘A’ not
found。
相比而言，BDE的组件TQuery毕竟是Borland的原生控件，在中文参数值传递方面暂时
未发现BUG。
另外还有一个原因，就是当设置主从数据表关系时，动态读取从表数据

procedure
TDataModule1.ds_customerDataChange(Sender: TObject;
  Field: TField);
var
  CustomerId:Variant;
begin
  try
    CustomerId:=qry_customer.FieldValues['id'];
    qry_yinban.Close;
    qry_yinban.SQL.Clear;
    qry_yinban.SQL.Add('SELECT
 * FROM yinban WHERE customer_id=:CustomerId');
    qry_yinban.Parameters.ParseSQL(qry_yinban.SQL.Text,True);
    qry_yinban.Parameters.ParamByName('CustomerId').Value:=CustomerId;
    qry_yinban.Open;
  except
  end;
end;