调用存储过程失败,请各位看看。
<%
dim sql , rs ,ConnStr
ConnStr = "Provider=Sqloledb;User ID=sa; Password=sa;Initial Catalog =test;Data Source=wzp;"
Set my_Conn = Server.CreateObject("ADODB.Connection")
my_Conn.Open ConnStr
set rs=server.createobject("adodb.recordset")
sql=" exec Open_AddressBookEmailTOXML 'wzp' " '-------这里用这个存储过程来招行就报错,错误信息:ADODB.Recordset 错误 '800a0e78' 对象关闭时,不允许操作。
sql="select * from address_book where name='wzp'" '---------如果这里用这个SQL就可以执行,
set rs=my_Conn.execute(sql)
if not rs.eof then
do while not rs.eof '循环体
Response.Write("<UserName>"+rs("name")+"</UserName>")
Response.Write("<BR>")
rs.movenext
loop
end if
rs.close
set rs=nothing
response.end()
%>
这里如果用SQL是正常的,如果不用存储就不行了,这里的SQL和存储过程的效果是一样的。请大家帮忙看看,谁发一段可以正常执行并返回一个数据集的代码给我参考一下。问题解决即结贴。
谢谢。