Firebird 存储过程中可变数量的参数

编程问答 2022-05-25

问题描述

我有以下存储过程：

ALTER PROCEDURE SP_STOCK_ANALYSIS 
(
  MAIN_GROUP CHAR(6)
)
RETURNS
(
  STOCK_CODE CHAR(21),STOCK_GROUP CHAR(6),DESCRIPTION CHAR(31),EXPENSE NUMERIC(15,4)
)
AS

BEGIN
   FOR
      SELECT
         L.STOCK_CODE,INV.DESCRIPTION,INV.STOCK_GROUP,L.BALANCE
      FROM
         LEDGER L LEFT JOIN INVENTORY INV ON L.STOCK_CODE = INV.STOCK_CODE
      WHERE
         INV.STOCK_GROUP in (:MAIN_GROUP)
         AND L.LEDGER_ACCOUNT in ('71212','71211','83791')
      INTO
         STOCK_CODE,STOCK_GROUP,DESCRIPTION,EXPENSE
   DO

在select语句中我有以下三个帐户：

  • 71212
  • 71211
  • 83791

理想情况下，我想更改存储过程，以便我能够输入帐号作为参数的一部分。挑战在于帐户数量可能会发生变化。是否可以使用字符串作为参数？我该怎么做？

解决方法

Firebird 不支持对存储过程使用可变数量的参数。但是，您可以定义默认参数值。因此，您可以指定第一个不带默认值的参数，然后指定多个带默认值的参数，然后调用带 1 个或多个参数的存储过程。

create procedure SP_STOCK_ANALYSIS (
    group_1 CHAR(6),group_2 CHAR(6) DEFAULT NULL,group_3 CHAR(6) DEFAULT NULL /* ... etc ...*/)
  RETURNS (
    STOCK_CODE CHAR(21),STOCK_GROUP CHAR(6),DESCRIPTION CHAR(31),EXPENSE NUMERIC(15,4))
as
begin
  for select L.STOCK_CODE /* ... etc ... */
    from LEDGER L LEFT JOIN INVENTORY INV ON L.STOCK_CODE = INV.STOCK_CODE
    where INV.STOCK_GROUP in (group_1,group_2,group_3 /* ... etc ... */)
    /* ... etc ... */
    into STOCK_CODE /* ... etc ... */
  do
  begin
    /* ... etc ... */
  end
end

或者，您可以传递逗号分隔的字符串，并使用辅助存储过程将该字符串拆分为多行。

然后你会做类似的事情

create procedure SP_STOCK_ANALYSIS(group_list VARCHAR(8191)
  RETURNS (
    STOCK_CODE CHAR(21),4))
as
begin
  for select L.STOCK_CODE /* ... etc ... */
    from LEDGER L LEFT JOIN INVENTORY INV ON L.STOCK_CODE = INV.STOCK_CODE
    where INV.STOCK_GROUP in (select group_value from split_groups(:group_list))
    /* ... etc ... */
    into STOCK_CODE /* ... etc ... */
  do
  begin
    /* ... etc ... */
  end
end

使用 split_groups 之类的东西

create procedure split_group(group_list varchar(8191))
  returns (group_value varchar(1000))
as
  declare previouspos smallint = 1;
  declare nextpos smallint;
begin
  -- produce no rows for null input
  if (group_list is null) then exit;
  -- find next,in group_list
  nextpos = position(',',group_list);
  while (nextpos <> 0) do
  begin
    -- get item
    group_value = substring(group_list from previouspos for nextpos - previouspos);
    if (char_length(group_value) > 0) then
      -- output item as a row
      suspend;
    -- first character after the found,previouspos = nextpos + 1;
    -- find next,in group_list
    nextpos = position(',group_list,previouspos);
  end
  -- output item after last found,group_value = substring(group_list from previouspos);
  if (char_length(group_value) > 0) then
    suspend;
end
,

您还可以选择使用反向 LIKE 而不是 IN。毕竟，随着项目数量的增加，IN 在 Interbase/Firebird 上会变慢。 LIKE 将始终对整个表进行自然扫描。如果项目数量少，速度会慢很多，但不会随着项目数量的增加而减慢。

制作您自己的分析。您甚至可以根据参数字符串长度切换到一种或另一种策略。您对 32KB Firebird VarChar 的长度限制感到困惑，也许这对您的应用程序很重要。

因此，对于一般性介绍，请参阅我在 https://stackoverflow.com/a/43997801/976391

上的回答

将“Route #2”应用到您的案例中将是这样的......

ALTER PROCEDURE SP_STOCK_ANALYSIS 
(
  MAIN_GROUP varCHAR(32760) character set ascii
)
RETURNS
(
  STOCK_CODE varCHAR(21),STOCK_GROUP varCHAR(6),DESCRIPTION varCHAR(31),4)
)
AS

BEGIN
   FOR
      SELECT
         L.STOCK_CODE,INV.DESCRIPTION,INV.STOCK_GROUP,L.BALANCE
      FROM
         LEDGER L LEFT JOIN INVENTORY INV ON L.STOCK_CODE = INV.STOCK_CODE
      WHERE
         (:MAIN_GROUP CONTAINING '~' || INV.STOCK_GROUP || '~')
--         INV.STOCK_GROUP in (:MAIN_GROUP)
        AND (L.LEDGER_ACCOUNT in ('71212','71211','83791'))
      INTO
         STOCK_CODE,STOCK_GROUP,DESCRIPTION,EXPENSE
   DO
      .....

然后你就这样调用：

SELECT * FROM SP_STOCK_ANALYSIS ('~1~4~8~11~')

您可以使用 LIST 聚合函数将返回 ID 的查询转换为字符串，例如

SELECT '~' || LIST (ID,'~') || '~' FROM source-table WHERE ........

但我认为在工程方面最好使用事务本地 GTT（全局临时表）而不是双重转换，然后在您的 SP 中进行自然 join。

insert into SP-helping-GTT 
  SELECT ID FROM source-table WHERE ........;

...然后执行无参数 SP，然后只需 COMMIT 来清理 GTT

当然，缺点是隐式严格耦合和命名空间污染。

但是由于您一次对两个表进行多次过滤 - L 和 INV - 并且您可能希望将两个列表都转换为参数，那么 {{1}两个表 (GTT) 对于关系数据库引擎来说是很自然的，两个嵌套的自然扫描会导致 O(n^2) 的扩展性很差。

此外，您真的会考虑是否需要异国情调的 joining 数据类型而不是 CHAR。这确实是一个小麻烦，但人们不知何故一次又一次地被它绊倒。

...而这些只是少数。

firebirdfirebird-psqlsqlsqlstored-procedures