小四月生父 许宗衡:Microsoft VBScript 运行时错误 (0x800A01A8) 缺少对象

来源：百度文库 编辑：杭州交通信息网 时间：2024/04/28 06:33:40
<% dim DB
DB="example1.mdb"
set conn=server.createobject("adodb.connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath(DB)

exec="select * from Guestbook"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1

rs.close
set rs=nothing
conn.close
set conn=nothing
%>

<table width="639" height="178" border="1">
<tr>
<td height="30">姓名</td>
<td>电话</td>
<td>信息</td>
<td>时间</td>
</tr>
<%do while not rs.eof%>
<tr>
<td><%response.write rs("name")%></td>
<td><%response.write rs("tel")%></td>
<td><%=rs("message")%></td>
<td><%=rs("time")%></td>
</tr>
<%rs.movenext
loop%>
</table>

提示的是这行有问题 <%do while not rs.eof%>

缺少对象 这到底是怎么回事?

rs.open exec,conn,1,1
上面这句话打开了数据库，可是下面这一段又关闭了，当然缺少对象啦。
把下面的这一段 放到最后去。就是LOOP的后面
rs.close
set rs=nothing
conn.close
set conn=nothing

很显然你是没等查询完数据你就把刚刚建立的对象就给关闭了，rs.close
set rs=nothing
conn.close
set conn=nothing
这几个语句应该是放在数据查询完之后才可以的。

------------------------------
欢迎大家到qq群21024531，
主题是asp，大家快来哦。

Microsoft VBScript Microsoft VBScript 编译器错误 Microsoft VBScript 编译器错误 Microsoft VBScript 编译器错误 Microsoft VBScript 编译器错误 microsoft vbscript 编译器错误 Microsoft VBScript 运行时错误 Microsoft VBScript 运行时错误 Microsoft VBScript 运行时错误 Microsoft VBScript 运行时错误 (0x800A000D)