【结帖】存储过程执行出错？？？？急急**

etqxq

用的2260版本哈,存储过程执行出错,以前都是正确的.

出错如图

代码如下:

SP.params.clear;
sp.params.createparam(......)
sp.params[0].asstring
....
sp.execute;

etqxq

存储过程名和参数名全部是大写的哈


存储过程在数据库没有问题????

etqxq

procedure TMainForm.Button1Click(Sender: TObject);
var SP :TStoredProc;
    vOutStr :String;
begin
  vOutStr:='';
  SP:=TStoredProc.Create(Self);
  SP.ConnectionString:='DATABASEURL=Biz:\YWKJ\StoredConn.Database';
  SP.StoredProcName:='MYJXKH_DBFZXYRLJ_PRO';
  StoredProc1.Params.Clear;
  StoredProc1.Params.CreateParam(TFieldType.ftString,'C_BTBSJ',TParamType.ptInput);    //开始时间
  StoredProc1.Params[0].AsString := '2008-1-1';
  StoredProc1.Params.CreateParam(TFieldType.ftString,'C_ETBSJ',TParamType.ptInput);    //结束时间
  StoredProc1.Params[1].AsString := '2008-1-31';
  StoredProc1.Params.CreateParam(TFieldType.ftString,'C_TOTAL',TParamType.ptOutput);   //传出数量
  StoredProc1.Params[2].AsString := vOutStr;
  StoredProc1.Execute;
end;

etqxq

存储过程里面的参数的数据类型为STRING型的

etqxq

CREATE OR REPLACE PROCEDURE "MYJXKH_DBFZXYRLJ_PRO" ----逮捕犯罪人嫌疑人员劳教人员
---Created: 2006-10-22
---Purpose:绵阳绩效考试统计逮捕犯罪人嫌疑人员劳教人员(不含经侦与禁毒案件)
(C_BTBSJ IN  VARCHAR2,  ---查找填报开始时间
C_ETBSJ IN  VARCHAR2,  ---查找填报结束时间
--C_TBDW IN  VARCHAR2,   ---填报单位
C_total OUT VARCHAR2  ---破获总案件数
)
IS
BEGIN
SELECT COUNT(*) INTO C_total FROM  AJXYR_CFB----逮捕犯罪人嫌疑人员劳教人员
       WHERE TO_DATE(substr(TO_CHAR(CFFS,'YYYY-MM-DD'),1,10),'YYYY-MM-DD') >= TO_DATE(C_BTBSJ,'YYYY-MM-DD')
        AND  TO_DATE(SubStr(TO_CHAR(CFFS,'YYYY-MM-DD'),1,10),'YYYY-MM-DD') <= TO_DATE(C_ETBSJ,'YYYY-MM-DD')
        AND  tbdw  in (select zbm from tjbblsb) AND CFFS = '04';
EXCEPTION
     WHEN OTHERS THEN
    C_total :=  0 ;
   
END MYJXKH_DBFZXYRLJ_PRO;

yancm

最后一个参数无论是count还是c_total:=0; 赋值都是整数。但参数是按照字符串存取的。
在返回前转换一下类型。

etqxq

你好!请问找到解决方案了吗?

etqxq

CREATE OR REPLACE PROCEDURE "MYJXKH_DBFZXYRLJ_PRO" ----逮捕犯罪人嫌疑人员劳教人员
---Created: 2006-10-22
---Purpose:绵阳绩效考试统计逮捕犯罪人嫌疑人员劳教人员(不含经侦与禁毒案件)
(C_BTBSJ IN  VARCHAR2,  ---查找填报开始时间
C_ETBSJ IN  VARCHAR2,  ---查找填报结束时间
--C_TBDW IN  VARCHAR2,   ---填报单位
C_total OUT VARCHAR2  ---破获总案件数
)
IS
BEGIN
    C_total :=  '0' ;
   
END MYJXKH_DBFZXYRLJ_PRO;

etqxq

希望今天内解决,因为客户吹得太急了

yancm

procedure TMainForm.Button1Click(Sender: TObject);
var SP :TStoredProc;
    vOutStr :String;
begin
  vOutStr:='';
  SP:=TStoredProc.Create(Self);
  SP.ConnectionString:='DATABASEURL=Biz:\YWKJ\StoredConn.Database';
  SP.StoredProcName:='MYJXKH_DBFZXYRLJ_PRO';
  StoredProc1.Params.Clear;
  StoredProc1.Params.CreateParam(TFieldType.ftString,'C_BTBSJ',TParamType.ptInput);    //开始时间
  StoredProc1.Params[0].AsString := '2008-1-1';
  StoredProc1.Params.CreateParam(TFieldType.ftString,'C_ETBSJ',TParamType.ptInput);    //结束时间
  StoredProc1.Params[1].AsString := '2008-1-31';
  StoredProc1.Params.CreateParam(TFieldType.ftString,'C_TOTAL',TParamType.ptOutput);   //传出数量
  StoredProc1.Params[2].AsString := vOutStr;
  StoredProc1.Execute;
end;

3楼的代码有问题。
第一，您用的到底是sp还是StoredProc1？
第二，不要对输出参数赋值
第三，如果用StroreProc1是在界面上放置的控件，在控件上可以直接添加参数，不需要动态添加。直接按名字访问就可以了。

StoredProc1.Params.ParamByName('C_ETBSJ').AsString