”弱水三千“请进来。还是包的调用问题。急急急。。。。。。。。。。。。。
下面这个包里的过程我已经验证过了是正确的。
create or replace package tinger01 as
type myrctype is ref cursor;
procedure selectbudgettitle(p_depart_id in d_budget.depart_id%type,
myrc out myrctype);
end tinger01;
我在ASP中调用时出现问题，下面是我的代码：
conn.open STRDSN
cmd.ActiveConnection = conn
'cmd.commandtype = 1
cmd.commandtext = "{call tinger01.selectbudgettitle(?, {resultset 100,a})}"
cmd.parameters.append cmd.createparameter("p_depart_id",adInteger,adParamInput,10,1)
'cmd.parameters.append cmd.createparameter("myrc",,4)
rec = cmd.execute
在最后一句出错。
问题点数：100、回复次数：2Top
1 楼penitent（只取一瓢）回复于 2002-11-17 21:24:19 得分 100
我找了个环境，测试了一下，可以的。
我看你还是缺乏耐心，其实好好想一想原因应当可以解决的。
这是我的代码。如果还有问题，请消息给我
<%
dim cn,cmd,cmdrc,driver_name,para
driver_name="Provider=MSDAORA.1;Password=pass;User ID=user;Data Source=afis;Persist Security Info=True"
set cn = server.CreateObject("adodb.connection")
cn.open driver_name
set cmd=server.CreateObject("adodb.command")
set cmdrc=server.CreateObject("adodb.recordset")
cmd.CommandType = 1
set para = cmd.Parameters
'这个地方不要出错，一定要写myrc，不能是别的
cmd.CommandText = "{call tinger01.selectbudgettitle(?,{resultset 0, myrc})}"
'这个地方你的也有问题,asp是不认识adInteger,adParamInput的.
para.Append cmd.CreateParameter("p_depart_id",3,1,4,1)
'以下两句应当可以不要
cmdrc.CursorType = 3
cmdrc.LockType = 3
'设置连接
set cmd.ActiveConnection = cn
set cmdrc.Source = cmd
cmdrc.Open
'测试是否成功,我这里返回ok
if cmdrc.EOF then
response.Write "false"
else
response.Write "ok"
end if
%>Top
2 楼penitent（只取一瓢）回复于 2002-11-18 07:45:18 得分 0
本来不想说你的，只是你开了太多的帖子来问这个问题。
我答应周一帮你测试，呵呵。还是等不及，怕我不守信？Top
