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

发布时间：2020-12-15 09:34:05 所属栏目：大数据来源：网络整理

导读：我想使用dbExpress TSQLQuery组件.但我不知道如何编写SQL来添加参数.我会举一个例子,也许更清楚我的问题是什么. 在TADOQuery中,以下工作： SELECT*FROM sometableWHERE sometable.id = :value; 现在在上面的示例中,您使用参数名称前面的冒号(:)将参数传递给

我想使用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

解决方法

要设置参数的属性,必须使用 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;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!