VBA et MySQL - Macro pour inserer des données dans MySQL

Version imprimable

5 pièce(s) jointe(s)

Slt,

Je suis coincé en essayant d'insérer des données se trouvant sur ma feuille Excel, vers une base de données MySQL, via une macro.
J’ai trouvé un tuto sur le net qui fonctionne parfaitement en lui-même, mais quand j’essaie de l’adapter à mes besoins, avec mes données, ça bug.

Ci-dessous, les codes que j’ai utilisé, les erreurs générées, et mes données Excel (factices).

Dans la feuille:

Code:

1
2
3
4
5
6
7
8
9
Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Derligne As Integer
    Derligne = Range("A65000").End(xlUp).Row
    If Not Intersect(Target, Range("A2:D" & Derligne)) Is Nothing Then
        Call UpdateData(Target.Row, Target.Column)
    End If
End Sub

Dans le Module:

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
28
29
30
31
32
33
34
Option Explicit
 
Public oConnect As ADODB.Connection
 
Private Sub ConnectionDB()
Dim S As String
    Set oConnect = New ADODB.Connection
    S = "DRIVER={MySQL ODBC 5.1 Driver};" & _
        "SERVER=" & Sheets("config").Range("B1").Text & ";" & _
        "DATABASE=" & Sheets("config").Range("B2").Text & ";" & _
        "USER=" & Sheets("config").Range("B3").Text & ";" & _
        "PASSWORD=" & Sheets("config").Range("B4").Text & ";" & _
        "Option=3"
    oConnect.Open S
End Sub
 
Sub MySQLInsertData()
Dim Rs As ADODB.Recordset
Dim Derligne As Integer, i As Integer
Dim Requete As String
 
    Set Rs = New ADODB.Recordset
    Call ConnectionDB
    With Sheets(1)
        Derligne = .Range("A65000").End(xlUp).Row
        For i = 2 To Derligne
            Requete = "INSERT INTO employes_tbl(ID_EMP, NOM, PRENOM, ADRESSE, VILLE, PAYS, TEL, EMAIL) VALUES(" & .Cells(i, 1) & ", '" & .Cells(i, 2) & "', '" & .Cells(i, 3) & "', " & .Cells(i, 4) & "', " & _
            .Cells(i, 5) & "', " & .Cells(i, 6) & "', " & .Cells(i, 7) & ", '" & .Cells(i, 8) & ")'"
            Rs.Open Requete, oConnect, adOpenDynamic, adLockOptimistic
        Next i
    End With
    oConnect.Close
    Set Rs = Nothing
End Sub

La feuille des données de connexion:
Pièce jointe 451491

La feuille des données à insérer:
Pièce jointe 451503

Les messages d'erreur:
Pièce jointe 451496
Pièce jointe 451500

Merci d'avance pour vos contribution.

20/02/2019, 02h41
RastaBomboclat

1 pièce(s) jointe(s)

Je viens avec le fichier excel du travaille que je fais, pour ce qui voudront le voir.

Merci d'avance.

Bonjour,

Code:

1
2
3
4
5
6
7
8
9
Requete = "INSERT INTO employes_tbl(ID_EMP, NOM, PRENOM, ADRESSE, VILLE, PAYS, TEL, EMAIL) VALUES "
SqlValue=""
For i = 2 To Derligne
        if SqlValue <>"" then SqlValue=SqlValue & ","
         SqlValue=SqlValue & "   (" & .Cells(i, 1) & ", '" & .Cells(i, 2) & "', '" & .Cells(i, 3) & "', '" & .Cells(i, 4) & "'," & _
            .Cells(i, 5) & "', " & .Cells(i, 6) & "', " & .Cells(i, 7) & ", '" & .Cells(i, 8) & "')"
            'Rs.Open Requete, oConnect, adOpenDynamic, adLockOptimistic
        Next i
oConnect.execute Requete & SqlValue

Attention à la syntaxe.

"values (12345,'Dysorthographie','Robert','9 rue','Paris',FR',6938456,'Dysorthographie@developpez.com'),(12346,'Etc...',"

20/02/2019, 08h39
RastaBomboclat

Merci,

Je vais la tester et reviens pour dire comment ça marche.
20/02/2019, 08h52
RastaBomboclat

2 pièce(s) jointe(s)

Bonjour Dysorthographie ,

Après teste, je reçois le message d'erreur suivant:

Pièce jointe 451546

Pièce jointe 451547
20/02/2019, 09h28
mercatog

Bonjour

As-tu vérifié juste avant la ligne erreur le contenu de Requete & SqlValue à l'aide de Debug.Print par exemple?
20/02/2019, 09h36
RastaBomboclat

Citation:

Envoyé par mercatog

Bonjour

As-tu vérifié juste avant la ligne erreur le contenu de Requete & SqlValue à l'aide de Debug.Print par exemple?

Oui, je l’ai fait, merci.

Cela m’a permis de voir les éventuelles erreur et variantes non déclarées, vu que je travaille en "Option Explicit". Tu verras que j’ai en commentaire mon code avant de copier celui de Dysorthographie. J’ai déclaré en Variant le "SqlValue" pour être sûr qu’il passe et on cherchera plus tard son type exacte.
Si tu as décelé quelque chose, pourrais-tu s’il te plait me le montrer ?

Apparemment le champs Téléphone n'est pas numérique mais du texte. Doit être entouré par des '

Aussi il faudra voir l'éventualité qu'une information de type texte qui peut contenir une apostrophe.
Code:

1 2 SqlValue = SqlValue & "(" & .Cells(i, 1) & ",'" & .Cells(i, 2) & "','" & .Cells(i, 3) & "','" & .Cells(i, 4) & "','" & _ .Cells(i, 5) & "','" & .Cells(i, 6) & "','" & .Cells(i, 7) & "','" & .Cells(i, 8) & "')"

20/02/2019, 10h22
RastaBomboclat

Merci à tous les deux, Dysorthographie et Mercatog.

Jusque là je peux dire que mon problème est :resolu:.
Je reviens en cas de besoin:D
20/02/2019, 13h38
Invité

oui attention aux apostrophes!

txt=replace(L'apostrophe","'","''")
20/02/2019, 15h01
RastaBomboclat

Citation:

Envoyé par dysorthographie

oui attention aux apostrophes!

txt=replace(L'apostrophe","'","''")

Bien noté Dysorthographie.
Je vais m'y exercer;)