VB MysqlRésolu

Question

Bonjour

Je souhaiterais par le biai d'une macro dans excel inserer les valeurs de certaines cellules dans une table mysql, mais les variables ne sont pas reconnues, voici un exemple de code :
Sub Bouton1_QuandClic()
Vbatiment = Range("Batiment").Value
Vsection = Range("Section").Value
Vsite = Range("Site").Value


    Sheets("Feuil1").Select
    With Selection.QueryTable
        .Connection = _
        "ODBC;DATABASE=mabase;DSN=myodbc;OPTION=0;PORT=0;UID=root"
        .CommandText = Array( _
        "INSERT INTO batiment (batiment, section,  site) VALUES ('Vbatiment', 'Vsection', 'Vsite')" _
        )
        .Refresh BackgroundQuery:=False
    End With
End Sub

au secours merci

econs · Accepted Answer

Salut,


Ca
devrait aller mieux en remplacant les données par leur valeur, et non
par leur nom, car elles ne sont pas interprétées dans la cahine de
caractères :




"INSERT INTO batiment (batiment, section,  site) VALUES ('" & CStr(Vbatiment) & "', '" & CStr(Vsection) "', '" & CStr(Vsite) & "')"

Ainsi, tu enverras à ta BDD des choses du style :

"INSERT INTO batiment (batiment, section,  site) VALUES ('3', '4', '5')"

et non pas :


"INSERT INTO batiment (batiment, section,  site) VALUES ('Vbatiment', 'Vsection', 'Vsite')"







Manu


--------------------------------------------------------------------------------------------
Avant de poster un message, n'oubliez pas de consulter le reglement.

mulausic · Answer

Merci Manu

Mulausic

VB Mysql

2 réponses

Votre réponse

Discussions similaires