EXCEL VBA, Requettes SQL vers BD Résolu/Fermé

Question

Bonjour, 

Ce que je voudrai faire :
Je souhaite lancer des requettes SQL sur mon serveur depuis VBA
 
Mon code:
  Sub exporter()    'connectin à la bd    Module2.connection     Dim LeSQL As String    LeSQL = "UPDATE conjecture SET txCroisPlasma = 20 WHERE annee = 2017"    DoCmd.OpenQuery LeSQLEnd Sub

 Ma question:
Ça ne fonctionne pas évidement, mais ma logique est-elle bonne?
 
Longue vie et prospérité financière à celui qui me répondra :)

Configuration: Windows 7 / Firefox 36.0

Thorak83 · Answer

Bonjour,

Vous devez activer la librairie ADO dans l'éditeur Visual Basic.
Faire ALT + F11
Menu Outils/Référence et choisir "Microsoft ActiveX Data Objet x.x Library"

Dim CnxSql As ADODB.Connection
Dim LeSQL As String
CnxSql.ConnectionString = "Provider=SQLOLEDB;Server=SNOM_DU_SERVEUR;Database=NOM_BASE_DE_DONNEE;Trusted_Connection=yes;"
CnxSql.CursorLocation = adUseServer
LeSQL = "UPDATE conjecture SET txCroisPlasma = 20 WHERE annee = 2017"
CnxSql.Execute LeSQL

Concernant la chaine de connection (ConnectionString), renseignez vous, selon le type de base de données, le type de connexion ..
Voir la doc concernant ADO et VBA ici
https://drq.developpez.com/vb/tutoriels/ADO/

Cordialement

shared · Answer

Bonsoir, 

j'avais déja inclu les bibliothèques, c'est la commande execute qu'il me manquait, cela fonctionne nikel. Voici la copie de mon code:


Dim indice As IntegerDim LeSQL As String    Set cnx = New ADODB.connection    cnx.ConnectionString = "Driver={MySQL ODBC 5.3 Unicode Driver};Server=localhost;Database=leader;User=root;Password=;"    cnx.Open         LeSQL = "UPDATE conjecture SET année = 20"     cnx.Execute LeSQL

EXCEL VBA, Requettes SQL vers BD

2 réponses

Discussions similaires