Question

我正在处理 Delphi 应用程序处理存储过程。我为insert语句创建了存储过程，它适用于我的应用程序。现在，我想为select语句创建相同的内容。

CREATE TYPE list_all_firstname AS ( first_name character varying);  

CREATE FUNCTION select_sp()   
RETURNS SETOF list_all_firstname AS  
$$  
DECLARE  
rec record;  
BEGIN  
  FOR rec IN (SELECT first_name FROM person) LOOP  
  RETURN NEXT rec;  
END LOOP;  
END;  
$$ LANGUAGE plpgsql;

电话是：

SELECT * FROM select_sp();

直到这一切都在postgres中很好。我想在我的delphi应用程序中访问这个存储过程。我的代码是：

 with StoredProc2 do begin
     StoredProcName :='select_sp';
     ExecProc;
     Edit5.Text:=ParamByName('list_all_firstname').AsString ;
    end;

但我得到的错误是“找不到对象”。如何在delphi中访问存储过程的返回值？

Answer 1

我得到了答案。。无法找到对象是BDE错误... 接下来就是访问值，不需要使用存储过程组件。我们可以使用如下的TQuery ......：

  Query1.SQL.Clear;
  Query1.SQL.Add('SELECT * FROM select_sp()');
  Query1.Active := True;

  for i:=0 to Query1.RowsAffected-1 do
          begin
             sval:=Query1.FieldByName('first_name').AsString;
             ShowMessage(sval);
             Query1.Next;
          end;

Delphi Postgres存储过程

1 个答案: