Firebird 3中如何在单个参数中传递数量不固定的多个值

你遇到的问题核心原因：

1. 拼接字符串传入IN (:id)时，Firebird会将整个字符串视为单个值，而非多个整数集合，因此触发类型转换错误——good_id是整数类型，无法解析带逗号的字符串。
2. 直接传多个参数报错，是因为存储过程仅定义了一个参数，参数数量不匹配。
3. 直接传递Delphi动态数组无效，是因为Firebird存储过程未定义对应的数组参数类型，两者无法映射。

以下是三种可行解决方案：

方案一：使用Firebird数组类型（推荐） #

Firebird支持自定义数组类型，可直接传递多值集合。

步骤1：创建数组类型 #

在Firebird中定义整数数组：

CREATE TYPE INT_ARRAY AS INTEGER ARRAY(100); -- 100为数组最大长度，可按需调整

步骤2：修改存储过程 #

让存储过程接受数组参数，用UNNEST函数将数组拆分为行后关联查询：

CREATE OR ALTER PROCEDURE SP_GOODS (ID INT_ARRAY)
RETURNS (
    GOOD VARCHAR(50),
    GOOD_ID INTEGER
)
AS
BEGIN
    FOR SELECT G.GOOD_ID, G.GOOD
        FROM GOODS G
        JOIN UNNEST(:ID) AS U(ID) ON G.GOOD_ID = U.ID
        INTO :GOOD_ID, :GOOD
    DO SUSPEND;
END

步骤3：Delphi代码传递数组 #

以IBX组件为例：

procedure Button1Click(Sender: TObject);
var
  IntArray: TArray<Integer>;
  i: Integer;
begin
  Query1.Close;
  Query1.SQL.Text := 'SELECT * FROM SP_GOODS(:ID)';

  // 收集DBGrid选中行的ID
  SetLength(IntArray, DBGridGoods.SelectedRows.Count);
  with DBGridGoods.DataSource.DataSet do
    for i := 0 to SelectedRows.Count - 1 do
    begin
      GotoBookmark(SelectedRows.Items[i]);
      IntArray[i] := FieldByName('GOOD_ID').AsInteger;
    end;

  // 赋值数组参数
  Query1.Params[0].DataType := ftArray;
  Query1.Params[0].AsArray := IntArray;
  
  Query1.Open;
end;

若使用FireDAC，数组赋值方式调整为：

// FireDAC版本
Query1.Params[0].DataType := ftArray;
Query1.Params[0].ArrayType := atInteger;
Query1.Params[0].SetArrayLength(Length(IntArray));
for i := 0 to Length(IntArray)-1 do
  Query1.Params[0].AsIntegers[i] := IntArray[i];

方案二：字符串拆分+存储过程处理 #

将ID拼接为无空格的逗号分隔字符串，在存储过程内拆分后查询。

步骤1：修改存储过程 #

用递归CTE实现字符串拆分：

CREATE OR ALTER PROCEDURE SP_GOODS (ID VARCHAR(60))
RETURNS (
    GOOD VARCHAR(50),
    GOOD_ID INTEGER
)
AS
BEGIN
  WITH RECURSIVE SPLIT(ID_PART, REST) AS (
    SELECT 
      CASE WHEN POSITION(',' IN :ID) > 0 THEN SUBSTRING(:ID FROM 1 FOR POSITION(',' IN :ID)-1) ELSE :ID END,
      CASE WHEN POSITION(',' IN :ID) > 0 THEN SUBSTRING(:ID FROM POSITION(',' IN :ID)+1) ELSE '' END
    FROM RDB$DATABASE
    UNION ALL
    SELECT 
      CASE WHEN POSITION(',' IN REST) > 0 THEN SUBSTRING(REST FROM 1 FOR POSITION(',' IN REST)-1) ELSE REST END,
      CASE WHEN POSITION(',' IN REST) > 0 THEN SUBSTRING(REST FROM POSITION(',' IN REST)+1) ELSE '' END
    FROM SPLIT
    WHERE REST <> ''
  )
  FOR SELECT G.GOOD_ID, G.GOOD
      FROM GOODS G
      JOIN SPLIT S ON G.GOOD_ID = CAST(S.ID_PART AS INTEGER)
      INTO :GOOD_ID, :GOOD
  DO SUSPEND;
END

步骤2：修改Delphi代码 #

拼接字符串时不要加空格：

procedure Button1Click(Sender: TObject);
var
  str : String;  
  i  : Integer;      
begin
  Query1.Close;
  Query1.SQL.Text := 'select * from sp_goods(:id) ';

  str := '';
  with DBGridGoods do
  begin
    if SelectedRows.Count > 0 then
    begin
      With DataSource.DataSet do
        for i := 0 to SelectedRows.Count - 1 do
        begin
          GotoBookmark(SelectedRows.Items[i]) ;
          if str <> '' then str := str + ',';
          str := str + FieldByName('good_id').asString;
        end;
    end;
  end;

  Query1.Params[0].AsString := str;
  Query1.Open;
end;

方案三：动态生成参数化SQL（无存储过程） #

直接在应用层生成带多个独立参数的SQL，避免类型转换问题：

procedure Button1Click(Sender: TObject);
var
  i: Integer;
  SQLStr: string;
begin
  Query1.Close;
  SQLStr := 'SELECT GOOD_ID, GOOD FROM GOODS WHERE GOOD_ID IN (';

  // 动态生成参数占位符
  with DBGridGoods do
    for i := 0 to SelectedRows.Count - 1 do
    begin
      if i > 0 then SQLStr := SQLStr + ', ';
      SQLStr := SQLStr + ':ID' + IntToStr(i);
    end;
  SQLStr := SQLStr + ')';

  Query1.SQL.Text := SQLStr;

  // 为每个参数赋值
  with DBGridGoods.DataSource.DataSet do
    for i := 0 to SelectedRows.Count - 1 do
    begin
      GotoBookmark(SelectedRows.Items[i]);
      Query1.Params.ParamByName('ID' + IntToStr(i)).AsInteger := FieldByName('GOOD_ID').AsInteger;
    end;

  Query1.Open;
end;

内容的提问来源于stack exchange，提问作者basti