Excel vers Mysql

Version imprimable

1 pièce(s) jointe(s)

Excel vers Mysql

Bonjour,

Je rencontre un problème lorsque je veux insérer un nouvel enregistrement depuis un fichier Excel vers une base de données MySQL.
Nous avons développé des applications en interne qui utilise une base MySQL. Mais, il reste encore des reliquats de notre ancien système. Je souhaite donc pouvoir remonter certaines informations vers notre base.

J'ai juste fait un fichier Excel test. Voici mon code :
Code:

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 Private Sub ConnectDB() Dim PConn As String Dim oConnect As ADODB.Connection Set oConnect = New ADODB.Connection PConn = "DRIVER={MySQL ODBC 5.1 Driver};" & _ "SERVER=192.168.10.XX" & ";" & _ "PORT=3306" & ";" & _ "DATABASE=xxxxxx" & ";" & _ "USER=xxxxxx" & ";" & _ "PASSWORD=xxxxxxxxxx" & ";" & _ "Option=3" oConnect.Open PConn End Sub _________________________________________________________________ Private Sub InsertData() Dim rs As ADODB.Recordset Set rs = New ADODB.Recordset ConnectDB strSQL = "INSERT INTO testvba (MC) VALUES ('OK')" rs.Open strSQL, PConn, adOpenDynamic, adLockOptimistic End Sub
Pièce jointe 505546

J'ai cette erreur que je ne comprends pas bien. Et c'est cette ligne rs.Open strSQL, PConn, , adOpenDynamic, adLockOptimistic qui est surlignée au débogage.

J'ai pensé que cela pouvait venir de la syntaxe, j'en ai testé différentes mais toujours le même problème.

Dans l'attente de vos conseils.

Cordialement,

Fred

25/09/2019, 17h07
lucasgaetan

Bonjour Fred,

As-tu essayé de passer ta variable "PConn" en public ou en argument?

Dans la procédure "InsertData" tu appelles la procédure ConnectDB mais sans faire de lien avec ta variable "PConn"

Slts

Bossoir

Que ce qui ne fonctionne pas la connexion ou la requête ?
Il faudrait déclarer oConnect en dehors de la fonction et l'utiliser pour ta requête.

Code:

oConnect.exécuté SQL

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private function ConnectDB() As ADODB.Connection
    Set ConnectDB = New ADODB.Connection
    PConn = "DRIVER={MySQL ODBC 5.1 Driver};" & _
            "SERVER=192.168.10.XX" & ";" & _
            "PORT=3306" & ";" & _
            "DATABASE=xxxxxx" & ";" & _
            "USER=xxxxxx" & ";" & _
            "PASSWORD=xxxxxxxxxx" & ";" & _
            "Option=3"
 
ConnectDB.Open PConn
 
End Sub
'_________________________________________________________________
Private Sub InsertData()
    Wîth ConnectDB
            strSQL = "INSERT INTO testvba (MC) VALUES ('OK'),('KO'),('Etc')"
           .execute strSqmQL
          .Close
   End with
End Sub

26/09/2019, 08h56
Fred_rt

Excel vers MySQL

Salut,

Merci à vous.

C'était en effet élémentaire. Une fois Pconn déclaré public, cela fonctionne parfaitement.

Fred