我找了个环境,测试了一下,可以的。
我看你还是缺乏耐心,其实好好想一想原因应当可以解决的。
这是我的代码。如果还有问题,请消息给我
<%
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
%>
我看你还是缺乏耐心,其实好好想一想原因应当可以解决的。
这是我的代码。如果还有问题,请消息给我
<%
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
%>
解决方案 »
- 求助PL /SQl中数据生成器时间根式怎么修改
- 如何让在没有查询内容返回的情况下也显示一行数据
- m_pConnection->Execute((_bstr_t)sql,&vtMissing,adCmdText);报运行错误,如何解决
- 求助group by a having count()问题
- 一个存储过程,没有报错,但是循环的时候只是按照顺序更新了一小半数据,急救!
- oracle 存储过程 怎么少用 if then
- 怎样抽取某一字段你想要的内容出来呢?
- 不能存进数据库
- 提取数据?(在线等!!!)
- 为什么我的数据链路老是未活动啊!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
- 请求 高手帮助 Oracle启不来了。
- 通过ODBC连接Oracle为什么好么慢啊!大家帮我出谋划策啊!!!
我答应周一帮你测试,呵呵。还是等不及,怕我不守信?