如何将Recordset对象传入/传出函数,

shuangren 2004-12-05 04:49:33
如果
...全文
68 点赞 收藏 9
写回复
9 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
阿泰 2004-12-05
ASP中的函数参数和返回值都是Variant的
记住这点就可以了
回复
shuangren 2004-12-05
解决了,我是这样调用函数的
Set Rs = Server.CreateObject("Adodb.Recordset")
Rs = GetRecord ()
结果总是报错:对象不支持此属性或方法
直接写成
Set Rs = GetRecord ()
问题解决,这是怎么回事呢?
回复
阿泰 2004-12-05
写了个例子,相信你会看明白 :)
<%
function GetX(rs)
rs.Movefirst
do while not rs.eof
Response.Write rs("ID") & "<BR>"
rs.movenext
loop
end function

'返回
function ReturnX()
dim rs
Set rs=server.CreateObject("Adodb.Recordset")
'模拟一个记录集,你可以在此处实际操作数据库
'-------------------------------
rs.Fields.Append "ID",129,4
rs.open
rs.Addnew
rs("ID")="001"
rs.update
rs.Addnew
rs("ID")="002"
rs.update
'-------------------------------
'返回值
Set ReturnX=rs
end function

Dim rs1
'设
Set rs1=ReturnX
'取
Call GetX(rs1)
%>
回复
shuangren 2004-12-05
是这样,我想写个操作数据库的接口,接口放在单独页面中,需要时包含进主页面,以供调用
回复
阿泰 2004-12-05
你在那里定义的啊???
回复
shuangren 2004-12-05
babyt(阿泰)
不行啊,不能用dim这样定义rs,报告错误:缺少对象
我又试着
Set rs = Server.CreateObject("ADODB.RECORDSET")
引用函数时报告错误:对象不支持此属性或方法
回复
阿泰 2004-12-05
'输入
function GetX(rs)
do while not rs.eof
end function

'返回
function ReturnX()
dim rs
rs.open ...
Set ReturnX=rs
end function

回复
shuangren 2004-12-05
就是如何把Rescordset对象当做参数传入函数或者当做函数的返回值
回复
sdts 2004-12-05
不明白
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2004-12-05 04:49
社区公告
暂无公告