Inserer une ligne de donnée dans une table MySQL depuis VBA

Bonjour,

SVP je souhaite inserer des données dans une base MySQL depuis l'editeur VBA d'un logiciel de dessin 3D.

j'ai fait plusieurs recherches sur internet mais rien ne marche pour moi.

je sais que je dois utiliser la connexion ODBC avec et declarer les parametres de ma base de donnée (ID, Password, Adress,....)

mais je ne sais pas comment formuler cela sur VBA.

je suis preneur tout idée ou commentaire.

Merci d'avance.

Bonjours,

Pour ce faire il n'y a rien de bien compliquer, et si tu a un serveur my sql.

Tu crée ton lien odbc et ensuite, il te suffis de faire sa pour te connecter :

'paramètre de connexion 
conMySQL.ConnectionString = "DRIVER={MySQL ODBC 5.1 Driver};" & "SERVER=" & server & ";" & " DATABASE=" & database & ";" & "UID=" & login_user & ";PWD=" & password & "; OPTION=3; PORT=" & port & ";Connect Timeout=20;"

'ouverture de la connexion
conMySQL.Open

ensuite pour faire ta requête sql tu fait:

'création de ta requête
strSQL = "Insert into tatable (colone1,colone2) values (valeur1,valeur2)"
'exécution de celle ci
MySQL.Query (strSQL)
'fermeture de la connexion au serveur (après avoir fait cette étape tu doit te reconnecter à la base pour faire une autre requête)
MySQL.closeCon

Bonjours,

Pour ce faire il n'y a rien de bien compliquer, et si tu a un serveur my sql.

Tu crée ton lien odbc et ensuite, il te suffis de faire sa pour te connecter :

'paramètre de connexion 
conMySQL.ConnectionString = "DRIVER={MySQL ODBC 5.1 Driver};" & "SERVER=" & server & ";" & " DATABASE=" & database & ";" & "UID=" & login_user & ";PWD=" & password & "; OPTION=3; PORT=" & port & ";Connect Timeout=20;"

'ouverture de la connexion
conMySQL.Open

ensuite pour faire ta requête sql tu fait:

'création de ta requête
strSQL = "Insert into tatable (colone1,colone2) values (valeur1,valeur2)"
'exécution de celle ci
MySQL.Query (strSQL)
'fermeture de la connexion au serveur (après avoir fait cette étape tu doit te reconnecter à la base pour faire une autre requête)
MySQL.closeCon

Merci LouisVolat pour ta reponse rapide,

j'ai essayé ton programme malheuresement ca ne marche pas pour moi

Private Sub Ok_Click()

'Dim numero As String
'Dim description_courte As String
'Dim description_longue As String
'Dim revision As String
'Dim cree_le As String
'Dim modifie_le As String
'Dim createur As String
'Dim etat As String
'Dim matiere As String
'Dim peinture As String
'Dim cout_estime As String
'Dim projet As String
'Dim machine As String
'Dim fournisseur As String
'Dim cathegorie As String

'-------------------------------------- Attribution des données Textbox à mes variables
'numero = TextBox_numero
'description_courte = TextBox_description_courte
'description_longue = TextBox_description_longue
'revision = TextBox_revision
'cree_le = TextBox_cree_le
'modifie_le = TextBox_modifie_le
'createur = TextBox_createur
'etat = TextBox_etat
'matiere = TextBox_matiere
'peinture = TextBox_peinture
'cout_estime = TextBox_cout_estime
'projet = TextBox_projet
'machine = TextBox_machine
'fournisseur = TextBox_fournisseur
'cathegorie = TextBox_cathegorie

    server = "127.0.0.1"
    database = "base"
    login_user = "root"
    Password = "m02pas"
    port = 3306

'paramètre de connexion
conMySQL.ConnectionString = "DRIVER={MYSQL ODBC 8.0 Unicode Driver};" & "SERVER=" & server & ";" & " DATABASE=" & database & ";" & "UID=" & login_user & ";PWD=" & Password & "; OPTION=3; PORT=" & port & ";Connect Timeout=20;"

'ouverture de la connexion
conMySQL.Open

    'création de ta requête
strSQL = "Insert into new_table (col1,col2) values (val1,val2)"

'exécution de celle ci
MySQL.Query (strSQL)
'fermeture de la connexion au serveur (après avoir fait cette étape tu doit te reconnecter à la base pour faire une autre requête)
MySQL.closeCon

End Sub

Est ce que tu peux me dire d'ou peut venir l'erreur, sachant que je ne suis pas sur excel.

je suis sur l'editeur VBA d'un logiciel de dessin 3D.

et puis le connecteur ODBC est bien connecté

Merci d'avance.