为参数化查询的参数赋值时出现赋值错误

Question

我正在使用带有 AnyDac 组件和 Advantage Database 10 的 Delphi XE2。 在我的代码中，我使用这样的参数化查询：

q.SQL.Text := 'SELECT * FROM Table1 ' +
  'LEFT JOIN Table2 ON (Table1.ID = Table1 .ID_Table2) ' +
  'WHERE ' +
  ':0 BETWEEN Table1.StartAm AND Table1.EndeAm ' +
  'AND Table2 = :1';
q.Params[0].Value := AStartDateTime;
q.Params[1].Value := AIDRessourcenGruppe;
q.Open;

这会导致异常：

异常 der Klasse EADSNativeException mit der Meldung '[AnyDAC][Phys][ADS] 错误 7200：AQE 错误：状态 = 22018；
本机错误 = 2112; [iAnywhere 解决方案][优势 SQL Engine]Assignment error' aufgetreten.

当然 AStartDateTime 是一个有效的 delphi TDateTime 值，AIDRessourcenGruppe 是一个整数值。

有趣的是，这两种变体都有效：

q.SQL.Text := 'SELECT * FROM Table1 ' +
  'LEFT JOIN Table2 ON (Table1.ID = Table1 .ID_Table2) ' +
  'WHERE ' +
  ':0 BETWEEN Table1.StartAm AND Table1.EndeAm ' +
  'AND Table2 = :1';
q.Params[0].AsDateTime:= AStartDateTime;
q.Params[1].AsInteger:= AIDRessourcenGruppe;
q.Open;

-

q.SQL.Text := 'SELECT * FROM Table1 ' +
  'LEFT JOIN Table2 ON (Table1.ID = Table1 .ID_Table2) ' +
  'WHERE ' +
  ':SomeDate BETWEEN Table1.StartAm AND Table1.EndeAm ' +
  'AND Table2 = :ID_PT_Ressourcengruppe';
q.ParamByName('SomeDate').Value := AStartDateTime;
q.ParamByName('ID_PT_Ressourcengruppe').Value := AIDRessourcenGruppe;
q.Open;

我错过了什么吗？感谢您的帮助！

Answer 1

答案 - 只是猜测：

我会说对参数的Value 属性的索引写入访问不能确定参数的数据类型，而命名访问却可以。如果这是正确的，那么您就有麻烦了，因为您通过 Variant 类型传递所有值，在执行查询之前必须将其转换为正确的值格式。但这一切只是我的猜测——我根本不知道 AnyDAC！

AsType 值访问：

我发布这个只是因为我不喜欢 Value 访问被称为专业的参数 :-)
最好使用AsType 类型转换，至少因为：

• 更快，因为你直接说出你要传递给某个参数的类型，因此查询参数引擎不需要确定这一点，并且与Value访问相比，它不需要需要转换Variant类型

• 这对你来说更安全，因为你不能通过例如字符串值到AsDateTime 访问的参数，所以你有一个额外的保护，防止参数不匹配

我在你的例子中推荐的是使用索引访问参数，而不是常用的命名，它需要在访问之前搜索参数列表并且速度较慢。