ERRO DE CONEXÃO AO MYSQL

 Tópico anterior Próximo tópico Novo tópico

ERRO DE CONEXÃO AO MYSQL

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#488836 - 14/05/2019 08:30:14

GNCNET
ITABERABA
Cadast. em:Maio/2009


Última edição em 14/05/2019 09:17:28 por GNCNET

 Anexos estao visíveis somente para usuários registrados

Estou com um projeto de acesso ao Mysql funcionando normalmente.
Entretanto ao inseri-lo no sistema que utilizamos ocorre o erro "invalid use of new keyword".
Por favor, podem me ajudar ?

Obrigado mais uma vez.



'Módulo
Public Conexao As ADODB.Connection

Public MyRs As ADODB.Recordset
Public IdVar As String


Public Function Conecta(ByVal Valor As Boolean)
On Error GoTo trataerro

Dim servidor As String
Dim basededados As String
Dim porta As String
Dim usuario As String
Dim senha As String

    If Valor = True Then
        Set Conexao = New Connection
        servidor = "" & "xxxxxxx "
        basededados = "" & "xxxxx"
        porta = "3306" '& MDIForm1.Txt_porta
        usuario = "" & "xxxx" '& MDIForm1.Txt_nome_usuario
        senha = "xxxxxx" '& MDIForm1.Txt_password
        CON_STR = "DRIVER={MySQL ODBC 5.1 DRIVER};" _
                & "Server=" & servidor & ";" _
                & "Port=" & porta & ";" _
                & "Database=" & basededados & ";" _
                & "UID=" & usuario & ";" _
                & "PWD=" & senha & ";" _
                & "OPTION=" & 1 + 2 + 8 + 32 + 2048 + 16384
        With Conexao
            .CursorLocation = adUseClient
            .ConnectionString = CON_STR
            .Open CON_STR

        End With
        
       Frm_Conexao_Mysql.Lbl_mnu_conectar.Caption = "Desconectar"
        
    Else
        Conecta True
        Conexao.Close
        Set Conexao = Nothing
        Frm_Conexao_Mysql.Lbl_mnu_conectar.Caption = "Conectar"
    End If
    
trataerro:
If Err.Number = -2147467259 Then
MsgBox "Dados não conferem, por favor verifique suas informações!"
End If

End Function



'FORM

Private Sub Lbl_mnu_conectar_Click()
'Call ConectarMYSQL


Me.MousePointer = vbHourglass

If Me.Lbl_mnu_conectar.Caption = "Conectar" Then
    Conecta True
Else
    Call Desconectar
End If

Me.MousePointer = vbDefault

End Sub




Resposta escolhida #488839 - 14/05/2019 13:06:12

JABA
CABO FRIO
Cadast. em:Agosto/2005


Tente instanciar assim pra ver se corrige:

Set Conexao = New ADODB.Connection

_______________________________________________________________________________________________

Se a alma ou espírito são imateriais, como eles fazem para se localizarem quando o corpo está em movimento?



#488844 - 14/05/2019 15:13:39

GNCNET
ITABERABA
Cadast. em:Maio/2009


Jaba, obrigado. Resolveu!



 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por GNCNET em 14/05/2019 15:13:52