Bonjour,
Je suis perdu car je ne connais pas ces fonctions ! si quelqu'un peut me donner un tuyau !!
En fait je veux insérer des enregistrements dans ma table MySql. La connexion fonctionne, je peux lire dans la table mais comment insérer ?
Merci pour l'aide.
Sub test_mysql()
Dim connexion As String
Dim strSQL As String
Dim strChamp, strValeur As String
Dim nrow As Integer
Dim i As Integer
' Déclatration varibles
Dim fam As String
Dim desig As String
Dim descrip As String
Dim refe As String
Dim picto As String
Dim pv As Double
Dim ppub As Double
Dim sto As Integer
Dim p8 As String
Dim cfam As String
Dim imag As String
Sheets("Base Web").Select
Set conn = CreateObject("ADODB.Connection")
Set rec = CreateObject("ADODB.Recordset")
connexion = "DRIVER={MySQL ODBC 8.0 ANSI Driver};"
connexion = connexion + "DATABASE=maBase;"
connexion = connexion + "SERVER=192.168.1.xx:3307;"
connexion = connexion + "UID=xxx;"
connexion = connexion + "PWD=xxx;"
connexion = connexion + "OPTION=16386"
conn.Open connexion
SQLstring = "SELECT * FROM maTable"
' envoi du SQL vers la connexion
rec.Open SQLstring, conn
Set champ = rec.Fields
ncol = champ.Count ' nombre de champs de la réponse
nrow = Sheets("Base Web").UsedRange.Rows.Count
For i = 2 To nrow
strChamp = "id_Famille,id_Desig,id_Descrip,id_Ref,id_Desig,id_Picto,id_PV,id_Ppub,id_Stock,id_P8,id_CFam,id_Imge"
strValeur = "fam,desig,descrip,refe,picto,pv,ppub,sto,p8,cfam,imag"
strSQL = "Insert into maTable (id_Famille,id_Desig,id_Descrip,id_Ref,id_Desig,id_Picto,id_PV,id_Ppub,id_Stock,id_P8,id_CFam,id_Imge) values (fam,desig,descrip,refe,picto,pv,ppub,sto,p8,cfam,imag)"
MySQL.Query (strSQL)
Next i
rec.Close
Set rec = Nothing
conn.Close
Set conn = Nothing
End Sub