Probleme de connexion VBA-Excel avec MySQL(Workbench)

**benamecanique** · 02/05/2019, 16h34

Bonjour,

Je souhaite établir la connexion entre un fichier Excel et une base de donnée faite sur le workbench de MySQL.
voila le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Option Explicit
 
Public Cnx As Object, Rst As Object
 
 
Sub Lire()
Dim Req As String, T As Variant
 
    On Error GoTo errhdlr
    Connect_MySql
    Req = "SELECT * FROM table01"
    Rst.Open Req, Cnx
    If Not (Rst.EOF And Rst.BOF) Then
        Rst.MoveFirst
        T = Rst.GetRows
        With Sheets("Feuil1")
            .UsedRange.ClearContents
            .Range("A1").Resize(UBound(T, 2) + 1, UBound(T, 1) + 1) = Application.Transpose(T)
        End With
    End If
    Close_Cnx
    Exit Sub
 
errhdlr:
    Close_Cnx
    MsgBox "Lire - Erreur " & Err.Number & vbCrLf & Err.Description
End Sub
 
 
Sub Connect_MySql(Optional x As Byte)
Dim Db As String
 
    Set Cnx = CreateObject("ADODB.Connection")
    Cnx.Provider = "MSDASQL"
    Db = "DRIVER={MySQL ODBC 5.1 Driver};" & _
         "SERVER= 127.0.0.1;" & _
         "DATABASE= base;" & _
         "USER= root;" & _
         "PASSWORD= m02pas;" & _
         "Option=3"
    Cnx.Open Db
    Set Rst = CreateObject("ADODB.Recordset")
End Sub
 
 
Sub Close_Cnx(Optional x As Byte)
    On Error Resume Next
    If x > 0 Then Rst.Close
    Cnx.Close
    Set Cnx = Nothing
    Set Rst = Nothing
End Sub