【结贴】调用存储过程出错**

zfang

楼主，别这么用了。
try
    StoredProc1.ConnectionString := 'DATABASEURL=Biz:\OAXT\OACCGCBSJK.Database';
    //StoredProc1.ConnectionString := 'DATABASEURL= Biz:\SYSTEM\SYSTEM.DATABASE';
    StoredProc1.StoredProcName := 'OA_DATA_ACTION.CREATE_BLANKCHK';
    StoredProc1.Params.ParamByName('@as_chktype').AsString := '';
你这么用看看

lotus

最初由 zfang 发布
[B]楼主，别这么用了。
try
    StoredProc1.ConnectionString := 'DATABASEURL=Biz:OAXTOACCGCBSJK.Database';
    //StoredProc1.ConnectionString := 'DATABASEURL= B..

以下省略...... [/B]

还是有问题啊，如下图

shangxy

请楼主把存储过程是怎么定义的贴出来看一下。

lotus

10楼那样，以前都是这么用的。
X3版本要怎么变呢

lotus

oracle  存储过程  后台调试没有问题：
create or replace package body OA_DATA_ACTION is

  

  --发票生成 生成空发票信息
  --as_bureau 所属供电所
  --as_chktype 发票类型
  --ai_beginno 开始发票号 字符串类型数字
  --as_recman 领取人
  --as_operman 操作人
  --as_errormsg 错误信息
  procedure CREATE_BLANKCHK(as_chktype  in string,
                            as_beginno  in string,
                            as_chknum   in string,
                            as_recman   in string,
                            as_errormsg out string) is
    ls_seq     OA_DJ.Djlsh%type;
    li_chknum  number(12);
    li_cur     number(12);
    ls_checkno OA_DJ.DJBH%type;
  begin
    li_chknum := to_number(as_chknum);
    li_cur    := 0;
    loop
      ls_checkno := to_char(to_number(as_beginno) + li_cur);
      li_cur     := li_cur + 1;
      exit when li_cur > li_chknum;
   
      ls_seq := li_cur;
   
      begin
        insert into Oa_Dj
          (DJBH,
           DJLX,
           LABH,
           QYDAH,
           CLBH,
           CLSJC,
           SFZH,
           RYSJC,
           WZSJ,
           WZDD,
           WZXW,
           KZKCZL,
           KZKCH,
           JSDCQX,
           JCR1,
           JCR2,
           JCR3,
           BZ,
           SCR,
           SCSJ,
           LYR,
           LYSJ,
           DJR,
           DJSJ,
           DQZT,
           DJLSH)
        values
          (ls_checkno,
           as_chktype,
           '',
           '',
           '',
           '',
           '',
           '',
           '',
           '',
           '',
           '',
           '',
           '',
           '',
           '',
           '',
           '',
           as_recman,
           sysdate,
           '',
           '',
           '',
           '',
           '1',--库存状态
           ls_seq);
      exception
        when others then
          rollback;
          as_errormsg := sqlerrm || '生成空白票据信息时出现错误';
          exit;
      end;
   
    end loop;
  
    commit;
  end CREATE_BLANKCHK;

end OA_DATA_ACTION;

shangxy

在StoredProc1控件中定义一下as_chktype这个参数然后按照11楼的方法在执行一下

lotus

最初由 shangxy 发布
[B]在StoredProc1控件中定义一下as_chktype这个参数然后按照11楼的方法在执行一下 [/B]

我没有用到"StoredProc1控件" 啊，我是直接引用资源集的啊。
  as_errormsg:= CCGCZYJ.TCCGCZYJ.CREATE_BLANKCHK(as_chktype,ai_beginno,ai_chknum,as_recman,as_errormsg,self);   
以前都是这么用的。现在难道不能这么用了？

lotus

请问可以留个qq联系不？ 我这里急着要用到这个调用方法！

shangxy

楼主先把你定义的存储过程贴出来，我在我这里测试一下。

你先在窗体上面放一个控件，然后按照上面的方法测试一下能不能成功。

lotus

都贴出来了啊。前台后台的