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 requete pour MYSQL par ODBC


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éclairé
    Homme Profil pro
    Technicien maintenance
    Inscrit en
    Mai 2008
    Messages
    382
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 40
    Localisation : France, Loire (Rhône Alpes)

    Informations professionnelles :
    Activité : Technicien maintenance
    Secteur : Industrie

    Informations forums :
    Inscription : Mai 2008
    Messages : 382
    Par défaut Vba requete pour MYSQL par ODBC
    Bonjour a tous,

    J'ai trouvé une solution pour importer une requete vers mysql grace à developpez.com.

    J'arrive a faire fonctionner ma requete avec mysql de easyphp en local(pour tester).
    Dès que j'essai de faire la meme chose pour un serveur distant, la requete ne s'éxecute pas. Pas d'erreur dans VBA.
    Pourtant lorsque je fais un test dans ODBC, il me confirme la connection au serveur d'ailleurs il trouve toutes les bases de données.

    J'ai vérifié et mis exactement la meme structure et le meme nom de table.

    J'ai changé uniquement le dsn dans vba
    cnn.Open "ODBC;DATABASE=peofofo;DSN=site_peofofo;"
    'cnn.Open "ODBC;DATABASE=test;DSN=easyphp;"

    Mais rien ne se passe sur le serveur distant.
    Est il possible de mettre des erreurs sur la connection ou les requetes
    comme en php or die ('Erreur :'.mysql_error()); mais en vba ?

    Voici ma macro:
    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
    29
    30
    31
    32
    33
    34
    35
    36
    37
    Private Sub CommandButton1_Click()
     
    'Déclaration de variable
    Dim cnn As New ADODB.Connection, rst As New ADODB.Recordset
    Dim MaCommand As ADODB.Command
    Dim Num_OL As Double
    Dim Num_SAP As String
    Dim Text_SQL As String
     
    ' Ouverture de la connexion à la base de donnée
     
    cnn.Open "ODBC;SERVEUR=sql.serveur_peofofo.com;DSN=peofofo;"
    'cnn.Open "ODBC;DATABASE=test;DSN=easyphp;"
        champ_1 = Cells(1, 2).Value
        champ_2 = Cells(1, 3).Value
        champ_3 = Cells(1, 4).Value
        champ_4 = Cells(1, 5).Value
        champ_5 = Cells(1, 6).Value
    If Num_OL = 1 Then
            'Requète pour insérer une ligne de commande
            Text_SQL = "INSERT INTO essai VALUES (null," & champ_1 & " ," & champ_2 & ", " & champ_3 & ", " & champ_4 & " ," & champ_5 & ")"
            Set MaCommand = New ADODB.Command
            MaCommand.ActiveConnection = cnn
            MaCommand.CommandText = Text_SQL
            Set MonRs = MaCommand.Execute(, , adAsyncExecute)
    Else
    T$ = "Attention"      'Titre du message
    M$ = "Probème avec le compte de " & Num_OL     'Message à afficher
    Reponse% = MsgBox(M$, 0 + 48, T$)
     
    End If
     
     
     
    cnn.Close   'Fermeture de la connection à la base de donnée
     
    End Sub

  2. #2
    Inactif  
    Avatar de ouskel'n'or
    Profil pro
    Inscrit en
    Février 2005
    Messages
    12 464
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2005
    Messages : 12 464
    Par défaut
    Bonjour peofofo, bienvenue sur le forum.
    As-tu une erreur ? Eventuellement, sur quelle ligne ?
    Pour la gestion d'erreur, je pense que tu parles d'une vérification de la connexion... (?)
    Juste pour éclairer celui qui pourra te répondre... Visiblement, en ce moment il dort encore. Patience

  3. #3
    Membre éclairé
    Homme Profil pro
    Technicien maintenance
    Inscrit en
    Mai 2008
    Messages
    382
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 40
    Localisation : France, Loire (Rhône Alpes)

    Informations professionnelles :
    Activité : Technicien maintenance
    Secteur : Industrie

    Informations forums :
    Inscription : Mai 2008
    Messages : 382
    Par défaut
    Merci de ta réponse ouskel'n'or
    Je n'est pas d'erreur sur le script.
    Effectivement, je cherche un moyen de connaitre l'erreur de connection.

    Je pense que le problème vient de la connection, il faut peut etre pas mettre simplement le dsn dans la connection ?

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Connexion MYSQL par ODBC
    Par Cantalou dans le forum Administration
    Réponses: 1
    Dernier message: 01/03/2010, 10h54
  2. Import Tables MySQL par ODBC
    Par viougt dans le forum Administration et Installation
    Réponses: 3
    Dernier message: 18/01/2010, 15h29
  3. Réponses: 4
    Dernier message: 15/04/2008, 11h43
  4. [VB.NET][MySQL]ID insertion dans une base MySQL par ODBC
    Par leSeb dans le forum Windows Forms
    Réponses: 2
    Dernier message: 21/03/2006, 10h58
  5. requete pour compter par date
    Par smariteau dans le forum Requêtes
    Réponses: 8
    Dernier message: 10/01/2006, 00h10

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