关于数据库连接关闭语句的问题请教!

windfun 2002-03-14 03:07:19

代码如下:
<% @ Import Namespace="System.Data" %>
<% @ Import Namespace="System.Data.OleDb" %>
<Script Runat="Server">
Dim dr As OleDbDataReader
Sub page_load(obj As object,e As eventargs)
Dim myconn As New oledbconnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&server.MapPath("DataBase\db1.mdb")&"")
myconn.open()
Dim mycomm As New oledbcommand("Select * from BookMark",MyConn)
dr = MyComm.ExecuteReader()
End Sub
</script>
<html>
<head>
<title></title>
</head>
<body>
<b>demo</b>
<table border=1>
<tr bgcolor="#aaaadd"><td>网站名</td><td>网址</td><td>介绍</td></tr>
<%
While dr.Read
%>
<tr><td><%=dr("SiteName")%></td><td><%=dr("URL").ToString()%></td><td><%=dr("Comment").ToString()%></td></tr>
<%
End while
dr.Close()
%>
</table>
</body>
</html>

当我在dr = MyComm.ExecuteReader()后面加了myconn.close()的数据库连接关闭语句后出错,提示:"异常详细信息: System.InvalidOperationException: 在阅读器关闭时 Read 的尝试无效。"

如果不加关闭语句的话,数据库连接就不能关闭,影响性能.请问要在那里加myconn.close()语句才可以?

...全文

66 3 打赏收藏转发到动态举报

写回复

用AI写文章

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

windfun 2002-03-14

打赏
举报

加dr.close后面就会出现myconn未声明,只能把代码改成这样才行
<% @ Import Namespace="System.Data" %>
<% @ Import Namespace="System.Data.OleDb" %>
<Script Runat="Server">

Dim dr As OleDbDataReader
Dim myconn As New oledbconnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&server.MapPath("DataBase\db1.mdb")&"")

Sub page_load(obj As object,e As eventargs)
myconn.open()
Dim mycomm As New oledbcommand("Select * from BookMark",MyConn)
dr = MyComm.ExecuteReader()
End Sub

</script>
<html>
<head>
<title></title>
</head>
<body>
<b>demo</b>
<table border=1>
<tr bgcolor="#aaaadd"><td>网站名</td><td>网址</td><td>介绍</td></tr>
<%
While dr.Read
%>
<tr><td><%=dr("SiteName")%></td><td><%=dr("URL").ToString()%></td><td><%=dr("Comment").ToString()%></td></tr>
<%
End while
dr.Close()
myconn.close()
%>
</table>
</body>
</html>

这样就正常了,并且就能关闭连接,但我觉得这样的写法不太好,有没更好的解决方法???

yaolan 2002-03-14