VB.NET

VB.NET RSS

Error : Timeout expired. ...... max pool size was reached

Please support our VB.NET advertiser: Intel Parallel Studio Home

•

Join Date: Dec 2006

Posts: 8

Reputation: artee is an unknown quantity at this point

Solved Threads: 0

artee

Offline

Newbie Poster

Error : Timeout expired. ...... max pool size was reached

Jan 5th, 2007

I get the following error
"Timeout expired. the timeout period elapsed prior to obtaining a connection from the pool. this may have occurred because all pooled connections were in use and max pool size was reached."

The below code is in the click event of the Upload button. This works fine when it is executed the first time (for loop, loops thru around 100 records). However, when I click the button the second time, it displays the above error after looping around 6 to 8 times.

As far as I know, I am closing the connection.
What am I doing wrong?
Please help
- Artee

 Help with Code Tags 
 vb.net Syntax (Toggle Plain Text) 
Private Sub btnUpload_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpload.Click
Dim con As New ConnectClass
Dim myConnect As String
Dim cmdString As String
Dim i As Integer, j As Integer
Dim ds1 As New DataSet
Dim dv2 As New DataView
ds1.Merge(mCSV.CSVDataSet.Tables(0).Copy)
ds1.Clear()
 
 
dv2 = New DataView(ds1.Tables(0))
For i = 0 To mCSV.CSVDataSet.Tables(0).DefaultView.Count - 1
 
 
cmdString = " Select * from SCHDB.dbo.DistrictAll " & _
" where DCode = '" & dgrdView1.Item(i, 0) & "'" 
 
Dim da As New SqlDataAdapter(cmdString, con.GetDBConnection)
If da.SelectCommand.ExecuteReader.HasRows = False Then
Else
 
Dim drv As DataRowView = dv2.AddNew
For j = 0 To 13
drv(ColNameCheck(j)) = dgrdView1.Item(i, j)
Next
End If
 
da.Dispose()
con.GetDBConnection.Dispose()
 
Next
dgrdUploadedAll.DataSource = dv2
con.GetDBConnection.Close()
End Sub
Private Sub btnUpload_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpload.Click
Dim con As New ConnectClass
Dim myConnect As String
Dim cmdString As String
Dim i As Integer, j As Integer
Dim ds1 As New DataSet
Dim dv2 As New DataView
ds1.Merge(mCSV.CSVDataSet.Tables(0).Copy)
ds1.Clear()
 
 
dv2 = New DataView(ds1.Tables(0))
For i = 0 To mCSV.CSVDataSet.Tables(0).DefaultView.Count - 1
 
 
cmdString = " Select * from SCHDB.dbo.DistrictAll " & _
" where DCode = '" & dgrdView1.Item(i, 0) & "'" 
 
Dim da As New SqlDataAdapter(cmdString, con.GetDBConnection)
If da.SelectCommand.ExecuteReader.HasRows = False Then
Else
 
Dim drv As DataRowView = dv2.AddNew
For j = 0 To 13
drv(ColNameCheck(j)) = dgrdView1.Item(i, j)
Next
End If
 
da.Dispose()
con.GetDBConnection.Dispose()
 
Next
dgrdUploadedAll.DataSource = dv2
con.GetDBConnection.Close()
End Sub