多次使用SqlDataReader的问题。

Question

我创建了一个函数 myReader() as sqlClient.SqlDataReader.然后再一个循环中调用它。可是当循环次数到1500多时就会报错，说连不上Sql Server。 可是循环次数少的时候就没有问题。
请问是不是应该不用SqlDataReader？
应该用什么呀？

Answer 1

把你的代码帖上来。是不是你的Read没有Close？以至于数据库连接满了。所以就再连不上了。

Answer 2

我遇到过你这样的问题不过是报缓冲池的问题
你检查下代码，调用一个datareader就要在其后datareader.close()!

Answer 3

连接池的问题
DR 用READ的时候记得写CLOSE
初始化DR的时候记得用自动句柄来关闭连接
datareader = command.executeReader(CommandBehavior.CloseConnection)

Answer 4

Public Shared Function myReader(ByVal strSql As String) As Data.SqlClient.SqlDataReader
            Dim db As Database = DatabaseFactory.CreateDatabase()
            Dim sqlCommand As String = strSql
            Dim dbCommand As Data.Common.DbCommand = db.GetSqlStringCommand(sqlCommand)
            Dim dataReader As Data.SqlClient.SqlDataReader = db.ExecuteReader(dbCommand)
            GetSql = dataReader
        End Function程序里每次用myReader1=myReader（""）
myReader1.close()

Answer 5

不知道我这样close对不对。如果用beiouwolf(beiouwolf) 的方法
datareader = command.executeReader(CommandBehavior.CloseConnection)
应该写在那里哪？

Answer 6

最起码应该这样：
Try
   objConn.Open()
   For i As Integer = 0 To 10
       Dim strSql As String = "..." 
       objComm.CommandText = strSql
       Dim dr As SqlDataReader = objComm.ExecuteReader()
       While dr.Read()
          '...
       End While
       dr.Close() '这个是关键！
   Next
Catch ex As Exception
   '...
Finally
   If Not objConn Is Nothing Then
      objConn.Close()
   End If
End Try

Answer 7

datareader = command.executeReader(CommandBehavior.CloseConnection)
应该写在那里哪？应该写在db.ExecuteReader(dbCommand)里

Answer 8

using(连接)
{
代码写在这里，所有的循环用这一个连接
}

Answer 9

Public Shared Function myReader(ByVal strSql As String) As Data.SqlClient.SqlDataReader
            Dim db As Database = DatabaseFactory.CreateDatabase()
            Dim sqlCommand As String = strSql
            Dim dbCommand As Data.Common.DbCommand = db.GetSqlStringCommand(sqlCommand)
            Dim dataReader As Data.SqlClient.SqlDataReader = db.ExecuteReader(dbCommand)
            GetSql = dataReader 
        End Function.这里的GetSql没声明？？改为
myReader = dataReader

Answer 10

不好意思，还是有一些不明白。现在我把代码改成。
        Dim db As Database = DatabaseFactory.CreateDatabase()
        Dim sqlCommand As String
        Dim dbCommand As Data.Common.DbCommand
        Dim dataReader As Data.SqlClient.SqlDataReader            For i = 0 To mm - 1
                sqlCommand = "SELECT ..."
                dbCommand = db.GetSqlStringCommand(sqlCommand)
                dataReader = db.ExecuteReader(dbCommand)
While dataReader.Read
...
                End While
       dataReader.Close()
            Next还是不可以。我也觉得是连接太多的问题。报措是：
An error has occurred while establishing a connection to the server.  When connecting to SQL Server 2005, this failure may be caused by the fact that under the default settings SQL Server does not allow remote connections. (provider: Named Pipes Provider, error: 40 - Could not open a connection to SQL Server)

Answer 11

While dataReader.Read
...
dataReader.Close()
End While

Answer 12

Dim db As Database = DatabaseFactory.CreateDatabase()
        Dim sqlCommand As String
        Dim dbCommand As Data.Common.DbCommand
        Dim dataReader As Data.SqlClient.SqlDataReader            For i = 0 To mm - 1
                try
                sqlCommand = "SELECT ..."
                dbCommand = db.GetSqlStringCommand(sqlCommand)
                dataReader = db.ExecuteReader(dbCommand)
While dataReader.Read
...
                End While
       dataReader.Close()
      catch ex as SqlException finally
 if not dataRreader is  nothing then
dr.close();
  end ifend try
            Next

Answer 13

beiouwolf(beiouwolf)大哥说的不可能吧。
按dbx()大哥说的，我已经用了dataReader.Close()，
finally
 if not dataRreader is  nothing then
dr.close();
  end if
有必要吗？dr.close()，是不是我的dataReader.Close()？

Answer 14

现在我怀疑是不是我用企业库的问题。
Dim db As Database = DatabaseFactory.CreateDatabase()

Answer 15

用句柄自动关了好，看看ADO.NET挺有用的

Answer 16

datareader = command.executeReader(CommandBehavior.CloseConnection)这句我还是不知道怎么用。

Answer 17

帮你顶,因为我也不清楚如果返回一个DataReader类型的函数myDataReader,那如果在页面中也实例化一个DataReader对像dr,如dr=myDataReader,那到底要不要关闭dr?

Answer 18

我又试了一下改成：
        Dim myConnection As New SqlConnection(myConnectStr)
        myConnection.Open()
        Dim myCommand As New SqlCommand
        myCommand.Connection = myConnection
For i = 0 To mm - 1
                myCommand.CommandText = "SELECT ..."
                Dim dataReader As SqlDataReader = myCommand.ExecuteReader（）
While dataReader.Read
...
                End While
       dataReader.Close()
            Next
问题依旧。把Dim dataReader As SqlDataReader = myCommand.ExecuteReader（）改成
Dim dataReader As SqlDataReader = myCommand.ExecuteReader(CommandBehavior.CloseConnection)。在循环到第二次时报错，已经关闭。所以我觉得用dataReader.Close()并没有真正关闭连接。用句柄到是关上了，可是不会再次打开。

Answer 19

按dbx()大哥说的，我已经用了dataReader.Close()，
finally
 if not dataRreader is  nothing then
dr.close();
  end if
有必要吗？dr.close()，是不是我的dataReader.Close()？是你的dataReader.Close(),我写成dr了。不好意思。

Answer 20

finally
 if not dataRreader is  nothing then
dataRreader.close();
  end if
当你出现异常的时候。。finally里面的操作就很有用了

Answer 21

我知道了在dataReader.Close()后面加一个dataReader=nothing。就好了，无论我最初的办法，还是其他办法都可以了。

Answer 22

瀑布汗啊....
没看到我写的吗
你吧CLOSE写在循环外面有什么用啊.....
While dataReader.Read
...
dataReader.Close()
End While

Answer 23

不回吧。写在循环里面是什么意思？dataReader还没读完，每读一行关闭一次？

Answer 24

Dim myConnection As New SqlConnection(myConnectStr)
        myConnection.Open()
        Dim myCommand As New SqlCommand
        myCommand.Connection = myConnection
        For i = 0 To mm - 1
            myCommand.CommandText = "SELECT ..."
            Dim dataReader As SqlDataReader = myCommand.ExecuteReader()
            While dataReader.Read
                ...
            End While
            dataReader.Close()
        Next
我觉得这样写没有问题了。最多再优化一下，在循环里只使用一个DataReader对象：        Dim myConnection As New SqlConnection(myConnectStr)
        myConnection.Open()
        Dim myCommand As New SqlCommand
        myCommand.Connection = myConnection
        Dim dataReader As SqlDataReader = Nothing   ' 在循环外声明
        For i = 0 To mm - 1
            myCommand.CommandText = "SELECT ..."
            dataReader = myCommand.ExecuteReader()
            While dataReader.Read()
                ...
            End While
            dataReader.Close()
        Next最后一定要关闭 Connection 对象，如果这样还不好使，那么关掉数据库连接池试试。

Answer 25

用datatable吧，如果用datareader就会涉及到数据库游标的问题，VS2003中是不支持一个datareader没关闭就再用一个datareader的，vs2005中支持多游标。其实一个datareader就是一个数据库游标。

Answer 26

使用SqlDataReader前要把连接打开,使用完后要关闭

Answer 27

哪个循环中有.open就在哪个循环中加上.close!

Answer 28

Public Shared Function myReader(ByVal strSql As String) As Data.SqlClient.SqlDataReader
            Dim db As Database = DatabaseFactory.CreateDatabase()
            Dim sqlCommand As String = strSql
            Dim dbCommand As Data.Common.DbCommand = db.GetSqlStringCommand(sqlCommand)
            Dim dataReader As Data.SqlClient.SqlDataReader = db.ExecuteReader(CommandBehavior.CloseConnection)
            myReader = dataReader
        End Function程序里每次用myReader1=myReader（""）
myReader1.close()

Answer 29

The following example creates a SqlConnection, a SqlCommand, and a SqlDataReader. The example reads through the data, writing it out to the console window. The code then closes the SqlDataReader. The SqlConnection is closed automatically at the end of the using code block.Visual Basic  Copy Code 
Private Sub ReadOrderData(ByVal connectionString As String)
    Dim queryString As String = _
        "SELECT OrderID, CustomerID FROM dbo.Orders;"    Using connection As New SqlConnection(connectionString)
        Dim command As New SqlCommand(queryString, connection)
        connection.Open()        Dim reader As SqlDataReader = command.ExecuteReader()        ' Call Read before accessing data.
        While reader.Read()
            Console.WriteLine(String.Format("{0}, {1}", _
                reader(0), reader(1)))
        End While        ' Call Close when done reading.
        reader.Close()
    End Using
End Sub这是msdn中的例子代码，照这么看，reader.Close()是不一定会关闭连接的。（我印象中是保持read打开前的状态） “The SqlConnection is closed automatically at the end of the using code block.”

Answer 30

You must explicitly call the Close method when you are through using the SqlDataReader to use the associated SqlConnection for any other purpose.The Close method fills in the values for output parameters, return values and RecordsAffected, increasing the time that it takes to close a SqlDataReader that was used to process a large or complex query. When the return values and the number of records affected by a query are not significant, the time that it takes to close the SqlDataReader can be reduced by calling the Cancel method of the associated SqlCommand object before calling the Close method.照这个描述，Close并不保证一定会关闭连接。

Answer 31

是的,我以前也用这个DataReader,老是抱连接池错误.后来全部改成DataTable了.以后尽量不用.

Answer 32

连接池的问题
DR 用READ的时候记得写CLOSE
初始化DR的时候记得用自动句柄来关闭连接
datareader = command.executeReader(CommandBehavior.CloseConnection)
對頭