【搞定】平台调用存储过程出错**

pure1437

平台（x3 2800）创建了一个StoredProc1控件，设置好数据库连接并选择存储过程，代码如下：
StoredProc1.Execute;
  a := StoredProc1.Params.ParamByName('prm_1').AsString;
  dialogs.ShowMessage(a);

存储过程（oracle817）
create or replace procedure prc_GetSysDate(prm_1 OUT VARCHAR2) is
BEGIN
      SELECT AAE100
        INTO prm_1
        FROM AA02
        WHERE AAE001=2001;
END prc_GetSysDate;

StoredProc1.Execute;这句出错，错误代码如图，请问如何解决，谢谢！

lixy

您等一下，我们在搭oracle环境测试一下

pure1437

好的，麻烦您了

lixy

Enterprise Edition Release 8.1.7.0.0 - Production  版本
我的存储过程是：
create or replace procedure lxy_proc (v1 out number )
as
begin      
      
       v1:=44;
end;

lixy

x3调用代码：
procedure TMainForm.Button1Click(Sender: TObject);
begin
   StoredProc1.Execute;
   button1.Caption:=StoredProc1.Params.ParamByName('v1').AsString;
end;

lixy

调用成功，无任何问题。下午我再实验在包里面的存储过程

pure1437

create or replace procedure lxy_proc (v1 out number )
as
begin      
      
       v1:=44;
end;
---------------------------------------------------------------------
以上确实不会报错，可是我用select语句从表中取值赋给参数就会报一楼的错，请你测试一下好吗？

create or replace procedure prc_GetSysDate(prm_1 OUT VARCHAR2) is
BEGIN
      SELECT AAE100
        INTO prm_1
        FROM AA02
        WHERE AAE001=2001;
END prc_GetSysDate;

pure1437

在库里执行该存储过程可以取到prm_1的值。

lixy

我的存储过程
create or replace procedure prc_GetSysDate(prm_1 OUT VARCHAR2) is
BEGIN
      SELECT f1
        INTO prm_1
        FROM lxy_table
        where id=1 ;
END prc_GetSysDate;

代码：
begin
   StoredProc1.Execute;
   button1.Caption:=StoredProc1.Params.ParamByName('prm_1').AsString;
end;
测试没有问题！

lixy

抓图2