DataReader的数据库连线开关问题

在最开始做机房收费时自己写了一个SqlHelper，里面有一个关于DataReader的函数ExecuteReader，因为在看VB.NET时那位资深讲师说资料库连线在不用时一定要关闭，这样可以减少资源占用，提高数据库访问效率，所以在ExecuteReader里面我就把Connection给关掉了，如下所示

public shared function ExecuteReader（ByVal CmdType As CommandType, ByVal Cmdtxt As String） as SqlDataReader Dim cnn As SqlConnection = New SqlConnection(strcnn) Dim cmd As New SqlCommand() Dim Reader As SqlDataReader cmd.CommandType = CmdType cmd.CommandText = Cmdtxt Try If cnn.State = ConnectionState.Closed Then cnn.Open() End If Reader = cmd.ExecuteReader Catch ex As Exception Throw New Exception(ex.Message) Finally cnn.Close() End Try Return Reader end function

结果在使用时发现提示错误：“连接关闭时，不能执行Read方法”

后来我想起来了，那位资深讲师还说过DataReader的游标在服务器端，执行DataReader.Read方法时数据库连接必须是开着的

如果关闭那么就会出现上面的错误。而DataSet的游标在客户端，数据库连线断开时依然可以对DataSet进行增删改查，于是我想到了下面的方法：

在调用ExecuteReader函数的地方建立一个SqlConnection对象，将它作为参数传递给ExecuteReader函数，在用完DataReader时再关闭SqlConnection对象，如下：

Public Shared Function GetReader(ByVal CmdType As CommandType, ByVal Cmdtxt As String, _ ByVal cnn As SqlConnection) As SqlDataReader Dim cmd As New SqlCommand() Dim Reader As SqlDataReader cmd.CommandType = CmdType cmd.CommandText = Cmdtxt cmd.Connection = cnn Try If cnn.State = ConnectionState.Closed Then cnn.Open() End If Reader = cmd.ExecuteReader Catch ex As Exception Throw New Exception(ex.Message) Finally 'cnn.Close() 这个地方将cnn.Close()注释掉了，在调用ExecuteReader函数的地方关闭cnn对象 End Try Return Reader End Function

调用ExecuteReader函数

dim cnn as new sqlconnection（..........） '在调用ExecuteReader的地方建立connection dim reader as sqldatareader reader =ExecuteReader(commandtype.text,strSQL,cnn) if reader.read then ........ end if cnn.close ’在调用ExecuteReader函数的地方关闭cnn对象

这样算是解决了问题，但是凡事在使用ExecuteReader的地方都要建立一个connection对象，没有把connection封装在SQLHelper里面好

后来我上网查了一下找到了解决办法，其实很简单，既然微软提供了DataReader，那么它坑定考虑到了这个问题，肯定也有解决办法，办法就是：

把ExecuteReader函数里面的 cmd.ExecuteReader() 改成

cmd.ExecuteReader(CommandBehavior.CloseConnection)

MSDN里面是这样解释cmd.ExecuteReader(CommandBehavior.CloseConnection)的：

“在执行该命令时，如果关闭关联的DataReader对象，则关联的Connection对象也将关闭。

只要在调用ExecuteReader函数的地方把reader关掉（reader.close），就可以关闭connection

最后的代码：

public shared function ExecuteReader（ByVal CmdType As CommandType, ByVal Cmdtxt As String） as SqlDataReader Dim cnn As SqlConnection = New SqlConnection(strcnn) Dim cmd As New SqlCommand() Dim Reader As SqlDataReader cmd.CommandType = CmdType cmd.CommandText = Cmdtxt Try If cnn.State = ConnectionState.Closed Then cnn.Open() End If Reader = cmd.ExecuteReader(CommandBehavior.CloseConnection) ‘这里是最关键的 Catch ex As Exception Throw New Exception(ex.Message) Finally ’cnn.Close() 这里不用关闭cnn了，因为在调用ExecuteReader的地方只要关闭相应的reader就可以了 End Try Return Reader end function
调用ExecuteReader

reader =ExecuteReader(commandtype.text,strSQL) if reader.read then ........ end if reader.close '在这里关闭了reader，同时就关闭了SQLHelper中的connection

只要在cmd.ExecuteReader()内加一个参数”CommandBehavior.CloseConnection“，就可以解决问题了。这样既可以及时关闭数据库连线（在不破坏SQLHelper封装性的前提下），又可以正常使用reader.read(), 真是好啊！