这样的错误该则呢办

摆渡船 2007-04-20 09:44:26

小弟我最近才学asp，却因为连接数据库出了点问题。
异常如下：
ADODB.Recordset '800a0e7d'

连接无法用于执行此操作。在此上下文中它可能已被关闭或无效。

\wwwroot\index.asp, line 15

我用的是access数据库，其连接情况如下：
set Conn=Server.CreateObject("ADODB.Connection")
Conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;"& _
"Data Source="& Server.MapPath("classmate.mdb")
Set RS=Server.CreateObject("ADODB.Recordset")
sql="select * from classmate"
RS.Open.sql,conn,1,1
请问这是怎么回事？
我的首页程序如下：
<%@ Language=VBScript %>
<html>
<head><title>同学录</title></head>
<body background=tp.jpg>
<p align=center>< font face=华文彩云 size=6>同学录</font><br>
<a href="add.htm">添加</a>
<a href="del.asp">删除</a>
<a href="modifydisplay.asp">修改</a>
<%
set Conn=Server.CreateObject("ADODB.Connection")
Conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;"& _
"Data Source="& Server.MapPath("classmate.mdb")
Set RS=Server.CreateObject("ADODB.Recordset")
sql="select * from classmate"
RS.Open.sql,conn,1,1
if rs.EOF or rs.BOF then
Response.Write"<hr>数据库中暂无资料！"
else
do while not rs.EOF or rs.BOF
%>
<table border=1 align=center bordercolor=#0099cc cellspacing=0 cellpadding=4>
<tr><td width=220 align=center>< font face=隶书 size=4>
<strong><% =rs("姓名") %></strong></td>
<td align=center width=40><% =rs("性别")%></td>
<td width=260>生日:<% =rs("出生日期")%></td>
<tr><td colspan=2>所在单位:<% =rs("单位") %></td>
<td>联系电话:<% =rs("电话")%></td>
<tr><td colspan=2>手机号:<% =rs("手机")%></td>
<td>电子信箱:<% =rs("E-mail")%></td>
<tr><td colspan=3>家庭住址:<% =rs("住址")%></td></tr>
<%
rs.movenext
loop
end if
set RS=nothing
set Conn=nothing
%>
</table>
</body>
</html>
望高手能够答复
谢谢

...全文

254 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

摆渡船 2007-04-21

打赏
举报

我试下
呵呵

xie_yanke 2007-04-21

打赏
举报

do while not (rs.EOF or rs.BOF)

摆渡船 2007-04-21

打赏
举报

ADODB.Recordset '800a0e7d'

连接无法用于执行此操作。在此上下文中它可能已被关闭或无效。

\wwwroot\index.asp, line 15

--------------------------------------------------------------------------------
Host by NetBox Version 2.8 Build 4128
还是出现了这样的错误！！
有这样连接的吗？
set Conn=Server.CreateObject("ADODB.Connection")
Conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;"& _
"Data Source="& Server.MapPath("classmate.mdb")
Set RS=Server.CreateObject("ADODB.Recordset")
这里有没有错误了
谢谢

silinee 2007-04-20