Connection problemen VBA naar MySQL op een 64bits machine

[harolda1980]

[h=2]Connection problemen met MySQL op een 64 bits machine[/h] Bij het maken van de verbinding met een mysql database krijg ik op geen mogelijkheid verbinding.
Kan iemand mij vertellen wat er verkeerd gaat of wat ik moet aanpassen.

hier onder de code die verbinding maakt en altijd keurig draaide op een 32bits machine

Private Sub Connection()
    Dim Strsql As String
    Dim strDir As String
    Dim i As Long
        If Connopen = False Then
            On Error GoTo err2
            Set CNNAPP = New ADODB.Connection
            CNNAPP.Open "DRIVER={MySQL ODBC 5.1 Driver}" & ";SERVER=" & MySQL_server_name & ";DATABASE=" & MySQL_database_nameA & ";UID=" & MySQL_User_IDA & ";PWD=" & MySQL_PasswordA & ";OPTION=16427" ' Option 16427 = Convert LongLong to Int: This just helps makes sure that large numeric results get properly interpreted
            If (CNNAPP.State = adStateClosed) Then
                'lbstate.Caption = "  Gesloten VM01REP..."
                MsgBox "Let op: er is geen verbinding met de datebase, ga terug en haal het receptuur opnieuw op!" & vbNewLine & vbNewLine & "Foutmelding 1 - geen verbinding <cnn>", vbCritical, "Receptuur informatie"
            ElseIf (CNNAPP.State = adStateOpen) Then
                'lbstate.Caption = "  Geopend VM01REP..."
            End If
            On Error GoTo 0
            On Error GoTo err1

            Set CNNINK = New ADODB.Connection
            CNNINK.Open "DRIVER={MySQL ODBC 5.1 Driver}" & ";SERVER=" & MySQL_server_name & ";DATABASE=" & MySQL_database_nameI & ";UID=" & MySQL_User_IDI & ";PWD=" & MySQL_PasswordI & ";OPTION=16427" ' Option 16427 = Convert LongLong to Int: This just helps makes sure that large numeric results get properly interpreted
            If (CNNINK.State = adStateClosed) Then
                'lbstatus.Caption = "  Gesloten INK DB..."
                MsgBox "Let op: er is geen verbinding met de datebase, ga terug en haal het receptuur opnieuw op!" & vbNewLine & vbNewLine & "Foutmelding 1 - geen verbinding <cnn>", vbCritical, "Receptuur informatie"
            ElseIf (CNNINK.State = adStateOpen) Then
                'lbstatus.Caption = "  Geopend INK DB..."
            End If
            Connopen = True
            Exit Sub
err1:
        'lbstatus.Caption = "  Gesloten INK DB..."
        MsgBox "Let op: er is geen verbinding met de datebase, ga terug en haal het receptuur opnieuw op!" & vbNewLine & vbNewLine & "Foutmelding 1 - geen verbinding <cnn>", vbCritical, "Receptuur informatie"
err2:
        'lbstate.Caption = "  Gesloten VM01REP..."
        MsgBox "Let op: er is geen verbinding met de datebase, ga terug en haal het receptuur opnieuw op!" & vbNewLine & vbNewLine & "Foutmelding 1 - geen verbinding <cnn>", vbCritical, "Receptuur informatie"

        End If
  
End Sub

 

[frankwannet]

Hieronder mag men verder gaan.Crossposten is niet toegestaan
http://www.helpmij.nl/forum/showthr...n-met-MySQL-op-een-64-bits-machine?highlight=

Deze sluit ik.