Autres requet sql : Alimenter Base de donnée depuis VBA

Benam

XLDnaute Nouveau
Bonjour,

je souhaite inserer une ligne de donnée dans ma base de donnée faite sur MySQL depuis une application VBA.

j'attire votre attention que je n'utilise pas l'excel. je suis sur l'editeur VBA d'un logiciel de dessin 3D.

voilà mon programme actuel :

VB:
Private Sub Ok_Click()

    Dim Server_Name As String
    Dim Database_Name As String
    Dim User_ID As String
    Dim Password As String
    
    Dim SQLStr As String

'-------------------------------------- je ne vois pas comment utiliser les parametres de ma connexion
    Server_Name = "127.0.0.1"
    Database_Name = "base"
    User_ID = "root"
    Password = "m02pas"
 
'-------------------------------------- Données à rajouter dans la base des données
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

'-------------------------------------- requet SQL

SQLStr = "insert into table01 (numero,description_courte,description_longue,revision,cree_le,createur,etat,matiere,peinture,cout_estime,projet,machine,fournisseur,cathegorie) values ('" & numero & "','" & description_courte & "','" & description_longue & "','" & revision & "','" & cree_le & "','" & createur & "','" & etat & "','" & matiere & "','" & peinture & "','" & cout_estime & "','" & projet & "','" & machine & "','" & fournisseur & "','" & cathegorie & "')"
  
'-------------------------------------- A partir de là mon programme ne marche pas
DoCmd.SetWarnings False
DoCmd.RunSQL SQLStr
DoCmd.SetWarnings True

End Sub
Screenshot_1.jpg Screenshot_2.jpg


Merci de me donner votre avis sur le programme.
Merci d'avance.
 

Philippe_JOCHMANS

XLDnaute Junior
Bonjour

Les instructions de type DoCmd sont utilisées sous Access et sont propres à ce logiciel, et donc pas des instructions pures VBA.

Il s'agit de code pour masquer les messages d'avertissements et exécuter ta requête, il faudrait donc que tu trouves l'équivalent dans ta requête.
Sinon je pense que tu peux utiliser un Recordset de type ADO : https://forums.mysql.com/read.php?37,651923,651923

Philippe
 

Discussions similaires

Haut Bas