情迷彼得堡第一部国语:ADODB.Recordset 错误 '800a0e78'

来源：百度文库编辑：高校问答时间：2024/05/05 04:57:34

<%@LANGUAGE="VBSCRIPT" %>
<html>
<head><title>查询成绩信息表</title></head>
<body>
<center>
<h2>按课程分组读取成绩记录</h2><hr>
<%

set objconn=server.CreateObject("adodb.connection")
driver="driver={Microsoft access driver (*.mdb)};"
dbpath="dbq="&server.MapPath("score.mdb")
objconn.open driver&dbpath

Set objRS=Server.CreateObject("ADODB.Recordset")
objrs.activeconnection=objConn
objrs.Source="SELECT * from sreport"&_
"where stid like '010011%'"&_
"order by coid,stid"
courseid =""
do while not objrs.eof
if objrs("coid") <> courseid then
if courseid <> "" then response.Write("</table>")
%>
<p>课程编号[<%=objrs("coid")%>]</td></tr>
<table border="1">
<tr>
<th>学号</th>
<th>成绩</th>
<th>备注</th>
</tr>
<%
courseid = objrs("coid")
end if
%>
<tr>
<td><%=objrs("stid")%></td>
<td><%=objrs("mark")%></td>
<td><%=objrs("note")%></td>
</tr>
<%
loop
objrs.close
set objrs=nothing
objconn.close
set objconn=nothing
%>
</table>
</center>
</body>
</html>

运行结果是
ADODB.Recordset 错误 '800a0e78'

对象关闭时，不允许操作。

/kk.asp，行 21

Set objRS=Server.CreateObject("ADODB.Recordset")
objrs.activeconnection=objConn
objrs.Source="SELECT * from sreport"&_
"where stid like '010011%'"&_
"order by coid,stid"
courseid =""
objrs.CursorType = 1
objrs.LockType = 1
objrs.open

ADODB.Recordset 错误 (0x800A0BB9) ADODB.Recordset (0x800A0E79)错误 ADODB.Recordset 错误 '800a0e7d' 错误类型：ADODB.Recordset (0x800A0E7D) ADODB.Recordset 错误 '800a0cc1' ADODB.Recordset 错误 '800a0cc1' ADODB.Recordset 错误 '800a0bb9' ADODB.Recordset 错误 '800a0bb9' ADODB.Recordset 错误 '800a0cb3' ADODB.Recordset 错误 '800a0bb9'