IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

[VBA] Accéder à une Database SQL


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Homme Profil pro
    Développeur Web
    Inscrit en
    Avril 2021
    Messages
    12
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 30
    Localisation : France, Seine Saint Denis (Île de France)

    Informations professionnelles :
    Activité : Développeur Web

    Informations forums :
    Inscription : Avril 2021
    Messages : 12
    Par défaut [VBA] Accéder à une Database SQL
    Je ne m'y connais pas des masses en VBA mais je souhaite me transférer des données à un serveur web type MySQL ('mais pour commencer à un serveur local') via un code VBA sur Excel mais cela ne fonctionne pas et m'affiche toujours le même problème: "Erreur d'exécution '-214767259(80004005)' - [Microsoft][Gestionnaire de pilot ODBC]Source de donnée introuvable et nom spécifié "
    La ligne surligné est :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     
    Call OpenConnection.Open(connectionString)
    J'ai déjà installer express et MySQL manager, ouvrer de nombreuse librairie.

    Voici mon code:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
     
    Function Connection()
       Dim source As String, location As String, user As String, password As String, mysql_driver As String, database As String
     
        source = "MySQL"
        location = "localhost"
        user = "root"
        password = ""
        database = "monsite"
        mysql_driver = "MySQL ODBC 5.2 ANSI Driver"
     
        'Build the connection string
        Dim connectionString As String
     
        connectionString = "Driver={" & mysql_driver & "};Server=" & location & ";Database=" & database & ";UID=" & user & ";PWD=" & password & ""
     
        'Create and open a new connection to the selected source
        Set OpenConnection = New ADODB.Connection
        OpenConnection.CursorLocation = adUseClient
        Call OpenConnection.Open(connectionString)
    End Function
     
     
     
     
    Sub Macro1()
    connection
    End Sub

  2. #2
    Membre chevronné
    Homme Profil pro
    Responsable d'un système d'information métier
    Inscrit en
    Janvier 2007
    Messages
    228
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 60
    Localisation : France, Doubs (Franche Comté)

    Informations professionnelles :
    Activité : Responsable d'un système d'information métier
    Secteur : Industrie

    Informations forums :
    Inscription : Janvier 2007
    Messages : 228
    Par défaut
    Bonjour,

    la connexion ODBC est bien établie au niveau des paramètres du poste ?

    Nom : Capture.JPG
Affichages : 130
Taille : 107,7 Ko

  3. #3
    Membre averti
    Homme Profil pro
    Développeur Web
    Inscrit en
    Avril 2021
    Messages
    12
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 30
    Localisation : France, Seine Saint Denis (Île de France)

    Informations professionnelles :
    Activité : Développeur Web

    Informations forums :
    Inscription : Avril 2021
    Messages : 12
    Par défaut
    Alors je viens de télécharger le logiciel mais voila les paramètres afficher et cela ne change rien.
    Nom : exemple.png
Affichages : 125
Taille : 52,3 Ko
    C'est possible d'accéder à une base de donnée SQL via vba mais je ne vois pas comment qql à des exemples de code ?

  4. #4
    Membre chevronné
    Homme Profil pro
    Responsable d'un système d'information métier
    Inscrit en
    Janvier 2007
    Messages
    228
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 60
    Localisation : France, Doubs (Franche Comté)

    Informations professionnelles :
    Activité : Responsable d'un système d'information métier
    Secteur : Industrie

    Informations forums :
    Inscription : Janvier 2007
    Messages : 228
    Par défaut
    re,

    il faut AJOUTER une connexion a ton serveur, base de données .... à condition d'avoir les droits évidemment.

    dans mon exemple, X3-PROD01 est une BDD SQL que j'exploite avec Excel, et VBA ...

  5. #5
    Membre averti
    Homme Profil pro
    Développeur Web
    Inscrit en
    Avril 2021
    Messages
    12
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 30
    Localisation : France, Seine Saint Denis (Île de France)

    Informations professionnelles :
    Activité : Développeur Web

    Informations forums :
    Inscription : Avril 2021
    Messages : 12
    Par défaut
    Alors j'ai Ajouter ce que j'ai trouvé sachant que mon server local est actif, voici ce que j'ai:
    Nom : exemple.png
Affichages : 134
Taille : 26,4 Ko
    après voici ma bibliothèque VBA:
    Nom : exemple1.png
Affichages : 113
Taille : 88,3 Ko

Discussions similaires

  1. Réponses: 10
    Dernier message: 19/02/2009, 11h45
  2. PL/SQL - Comment accéder à une base SQL Server ?
    Par moisex dans le forum PL/SQL
    Réponses: 2
    Dernier message: 05/06/2007, 09h36
  3. Accéder à une bd SQl Server via Windev sur le net ?
    Par Root_JDK dans le forum WinDev
    Réponses: 2
    Dernier message: 17/01/2007, 11h04
  4. Accéder à une bd SQl Server depuis le net ?
    Par Root_JDK dans le forum MS SQL Server
    Réponses: 6
    Dernier message: 17/01/2007, 10h30
  5. Accéder à une bdd SQL server via un pc distant
    Par shako95 dans le forum MS SQL Server
    Réponses: 3
    Dernier message: 06/12/2005, 22h38

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo