MYSQL CONNECTIONS SLEEP

Citação:

AO FECHAR ELE DEIXA A CONEXÃO EM MODO SLEEP...NO POOL DE CONEXOES

Citação:

:
AO FECHAR ELE DEIXA A CONEXÃO EM MODO SLEEP...NO POOL DE CONEXOES
Estranho, esta dando dispose ao fechar ?

...
conn.Close();
conn,Dispose();
MySqlConnection.ClearAllPools();
...

Citação:

:
Não é só o MySQL que possui esse inconveniente. Outros mecanismos mantém o pool após o client solicitar o encerramento da conexão. O objeto MySqlConnection possui um método compartilhado que será útil para o seu caso. Trata-se do ClearAllPools. Após fechar a conexão e destruir a instância, chame esse método e veja se resolve, ok?

Seria algo como:

...
conn.Close();
conn,Dispose();
MySqlConnection.ClearAllPools();
...

Citação:

:
Resolvido então?

Pelo que sei, o Connector tem esse comportamento como padrão por questão de otimização, para reaproveitar conexões. Porque é muito custoso iniciar uma nova conexão...
Mas até onde sei, colocando um Timeout resolve o problema.

Abraços!

 Public myCON As MySql.Data.MySqlClient.MySqlConnection
    Public myCMD As MySql.Data.MySqlClient.MySqlCommand
    Public myDRR As MySql.Data.MySqlClient.MySqlDataReader

    [ô][ô]Strings de Conexão MySQL
    Public MySQLHost As String = [Ô]MEU SERVER[Ô]
    Public MySQLUsuario As String = [Ô]MEU USUARIO[Ô]
    Public MySQLSenha As String = [Ô]MINHA SENHA[Ô]
    Public MySQLDataBase As String = [Ô]MEU BANCO[Ô]
    Public MySQLPool As Boolean = False

#Region [Ô]CONECTAR E DESCONECTAR[Ô]

    Public Sub Conectar() [ô]Conecta no MySQL
        Try
            myCON = New MySql.Data.MySqlClient.MySqlConnection([Ô]Server=[Ô] & MySQLHost _
                                                               & [Ô];Port=[Ô] & MySQLPorta _
                                                               & [Ô];User id=[Ô] & MySQLUsuario _
                                                               & [Ô];Password=[Ô] & MySQLSenha _
                                                               & [Ô];Database=[Ô] & MySQLDataBase _
                                                               & [Ô];Pooling=[Ô] & False)
            myCON.Open()
        Catch ex As Exception

        End Try
    End Sub

    Public Sub Desconectar() [ô]Desconecta do MySQL
        myCON.Close()
        myCON.Dispose()
        myCON.ClearAllPoolsAsync()
    End Sub

#End Region

    Dim DadosUsuario As New DadosUsuario
    Dim DadosPaciente As New DadosPaciente
    Dim DadosEncaminhamento As New Encaminhamentos
    Dim Atualizacao As New Atualizacao

    <WebMethod()> _
    Public Function EfetuarLogin(ByVal usuario As String, ByVal senha As String) As DadosUsuario
        Try
            Conectar()
            Dim query As String
            query = ([Ô]Select * From tb_login Where usuario=[ô][Ô] & usuario & [Ô][ô] and senha=[ô][Ô] & senha & [Ô][ô][Ô])
            myCMD = New MySqlCommand(query, myCON)
            myDRR = myCMD.ExecuteReader()
            If myDRR.HasRows = True Then
                While myDRR.Read()
                    DadosUsuario.iduser = myDRR.Item([Ô]id[Ô])
                    DadosUsuario.nomeuser = myDRR.Item([Ô]nome[Ô])
                    DadosUsuario.unidadeuser = myDRR.Item([Ô]unidade[Ô])
                    DadosUsuario.unidadedestinouser = myDRR.Item([Ô]unidade_destino[Ô])
                    DadosUsuario.encontrouuser = True
                    BuscaDataServidor()
                End While
            ElseIf myDRR.HasRows = False Then
                DadosUsuario.encontrouuser = False
            End If
        Finally
            Desconectar()
        End Try
       Return DadosUsuario
    End Function