User xxxxx already has more than 'max_user_connections' active connections

[jumafe]

Estimado tengo un codigo que llena una tabla con datos obtenidos de una consulta, por cada registro de esa consulta voy haciendo insert y update, hasta completar la tabla y usarla para generar un reporte. (que es un catalogo de artículos con imagenes)

El codigo me funciona bien localmente en mi PC ya que puedo modificar el max_user_connections, pero alojado en el hosting que no puedo modificar ese valor me da el error "User xxxxx already has more than 'max_user_connections' active connections"

Creo estar abriendo y cerrando las conexiones adecuadamente, pero no se si es lo más optimo, me podrían decir que puedo mejorar.? les paso el codigo..

Muchas gracias

Partial Class Catalogo_Rep
Inherits System.Web.UI.Page

Dim funcion As New funciones
Dim conMyData As MySql.Data.MySqlClient.MySqlConnection

Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load

If Not Me.Page.IsPostBack Then

LlenarTemporal()

BuscarFoto()

End If

End Sub


Protected Sub ReportViewer1_Load(sender As Object, e As EventArgs) Handles

ReportViewer1.Load

If Not Me.Page.IsPostBack Then

Dim ObjectDataSource1 As ObjectDataSource = .....)
Dim rds As Microsoft.Reporting.WebForms.ReportDataSource = ........)

ReportViewer1.LocalReport.DataSources.Clear()

ReportViewer1.LocalReport.DataSources.Add(rds)
ReportViewer1.LocalReport.DisplayName = Request.QueryString("vDesc")
ReportViewer1.LocalReport.ReportPath = "Catalogo.rdlc"

End If

End Sub


Sub LlenarTemporal()

Try

Dim Sql As String = " SELECT .... "

conMyData = funcion.connect()

Dim oComando As New MySqlCommand(Sql, conMyData)

oComando.Parameters.AddWithValue("?IdRubro", Request.QueryString("vRubro"))

Dim myreader As MySqlDataReader = oComando.ExecuteReader()

Dim cont As Integer = 1

Do While myreader.Read()

If cont = 1 Then

InsertarTwcata()

ElseIf cont = 2 Then

UpdateTwCata2(BuscoMaxId(),.....)

ElseIf cont = 3 Then

UpdateTwCata3(BuscoMaxId(),.....)

ElseIf cont = 4 Then

UpdateTwCata4(BuscoMaxId(),.....)

ElseIf cont = 5 Then

UpdateTwCata5(BuscoMaxId().......)

End If

If cont = 5 Then
cont = 1
Else
cont = cont + 1
End If

Loop

conMyData.Dispose()
conMyData.Close()
conMyData = Nothing


Catch ex As Exception

Response.Write(ex.Message)
Response.Write(ex.Source)
Response.Write("Fallo conexion")

Finally
End Try

End Sub

Sub InsertarTwcata(....)

Try

Dim Sql As String = " INSERT ...."

conMyData = funcion.connect()

Dim oComando As New MySqlCommand(Sql, conMyData)

oComando.Parameters.AddWithValue("?vCodigo", vCodigo)

oComando.ExecuteNonQuery()


conMyData.Dispose()
conMyData.Close()
conMyData = Nothing

Catch ex As Exception

Response.Write(ex.Message)
Response.Write(ex.Source)
Response.Write("Fallo conexion")

End Try

End Sub

Sub UpdateTwCata2(........)

Try

Dim Sql As String = " Update twcata ... "

conMyData = funcion.connect()

Dim oComando As New MySqlCommand(Sql, conMyData)

oComando.Parameters.AddWithValue("?vCodigo", vCodigo)

oComando.ExecuteNonQuery()


conMyData.Dispose()
conMyData.Close()
conMyData = Nothing

Catch ex As Exception

Response.Write(ex.Message)
Response.Write(ex.Source)
Response.Write("Fallo conexion")

End Try

End Sub

Sub BuscarFoto()

Dim Sql As String = " Select ..."

conMyData = funcion.connect()

Dim oComando As New MySqlCommand(Sql, conMyData)

Dim myreader As MySqlDataReader = oComando.ExecuteReader()

Do While myreader.Read()

ActualizarImagen(....)

Loop

conMyData = Nothing

End Sub

End Class


Function connect()

Dim conMyData As MySql.Data.MySqlClient.MySqlConnection

conMyData = New MySqlConnection(....)

conMyData.Open()

Return conMyData

conMyData.Close()

End Function