如何在 Delphi 中使用 dbExpress 将参数传递给查询答案

【问题标题】：How to pass a parameter to a query using dbExpress in Delphi如何在 Delphi 中使用 dbExpress 将参数传递给查询
【发布时间】：2012-06-20 17:18:47
【问题描述】：

我想使用 dbExpress TSQLQuery 组件。但我不知道如何编写 SQL 来添加参数。我会举一个例子，也许它会更清楚我的问题是什么。

在 TADOQuery 中，以下工作：

SELECT*
FROM sometable
WHERE sometable.id = :value;

现在在上面的示例中，您在参数名称前使用冒号 (:) 将参数传递给查询。但是当我尝试使用 TSQLQuery 执行此操作时，我收到以下错误：

dbExpress driver does not support the TDBXTypes.UNKNOWN data type. Vendor Error Message.

现在，如果这不是您在 TSQLQuery 组件中传递参数的方式，请有人帮助我。这对我来说是新的领域。

我使用的是 Firebird 数据库，我使用的是 Delphi XE2

【问题讨论】：

标签： delphi delphi-xe2 dbexpress firebird2.5

【解决方案1】：

要设置参数的属性，您必须使用Params 属性。从这里您可以使用索引或名称访问每个参数，设置参数的值使用 properties AsString、AsInteger 等等之一，取决于字段的类型。

检查此示例

var
  LSQLQuery : TSQLQuery;
begin
  LSQLQuery:=TSQLQuery.Create(nil);
  try
    LSQLQuery.SQLConnection:=SQLConnection1;
    LSQLQuery.CommandText:='Select FIRST_NAME from EMPLOYEE Where EMP_NO=:Param1';
    LSQLQuery.Params.ParamByName('Param1').AsInteger:=2;//or using the index of the parameter LSQLQuery.Params[0].AsInteger:=2; 
    LSQLQuery.Open;//Execute the query
    ShowMessage(LSQLQuery.FieldByName('FIRST_NAME').AsString); //get the data
    LSQLQuery.Close;
  finally
    LSQLQuery.Free;
  end;
end;

【讨论】：