我有一个用 ASP.Net 2.0 Web 窗体编写的旧 Web 应用程序。我使用企业库中的数据访问块，最近更新到 5.0 版。应用程序是分层的，即 UI 层、服务层、数据层。它还使用 SQL Server 2008 进行数据存储。
我最近注意到当我运行应用程序并浏览到特定页面时出现以下错误。
超时已过。在从池中获取连接之前超时时间已过。这可能是因为所有池连接都在使用中并且达到了最大池大小。
这往往发生在从数据库进行大量单独读取的页面上，一页上可能多达 20 次。
下面显示了我的数据访问类的片段。
Public Class DataAccess
' create a private instance of the database factory
Private db As Database = DatabaseFactory.CreateDatabase()
Public Function ExecuteNonQuery(ByVal params() As SqlParameter, ByVal strSproc As String) As Integer
Dim intReturnValue As Integer = 0
Dim i As Integer
Dim cmd As DbCommand
cmd = db.GetStoredProcCommand(strSproc)
cmd.CommandTimeout = 120
For i = 0 To params.Length - 1
db.AddInParameter(cmd, params(i).ParameterName.ToString, params(i).DbType, params(i).Value)
Next
db.AddParameter(cmd, "return_value", DbType.Int32, ParameterDirection.ReturnValue, "", DataRowVersion.Default, 0)
db.ExecuteNonQuery(cmd)
intReturnValue = Int32.Parse(db.GetParameterValue(cmd, "@return_value"))
Return intReturnValue
End Function
Public Function ExecuteDataReader(ByVal params() As SqlParameter, ByVal SProc As String) As SqlDataReader
Dim i As Integer
Dim dr As SqlDataReader = Nothing
Dim cmd As DbCommand
cmd = db.GetStoredProcCommand(SProc)
cmd.CommandTimeout = 120
For i = 0 To params.Length - 1
db.AddInParameter(cmd, params(i).ParameterName.ToString, params(i).DbType, params(i).Value)
Next
dr = TryCast(DirectCast(db.ExecuteReader(cmd), RefCountingDataReader).InnerReader, SqlDataReader)
Return dr
End Function
在我的整个代码中，一旦我完成了 SqlDataReader，我总是会做这样的事情
If Not (drSource Is Nothing) Then
drSource.Close()
End If
你们有什么可以看到我失踪的吗？看起来我的代码可能会泄漏连接或未正确关闭吗？
我一直认为垃圾收集器摆脱了任何打开的连接。
任何反馈或帮助将不胜感激。
谢谢。