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 :

Fonction connexion KO


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Homme Profil pro
    Développeur JAVA & PHP
    Inscrit en
    Mai 2013
    Messages
    86
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Val de Marne (Île de France)

    Informations professionnelles :
    Activité : Développeur JAVA & PHP
    Secteur : Distribution

    Informations forums :
    Inscription : Mai 2013
    Messages : 86
    Par défaut Fonction connexion KO
    Bonjour

    Je tente de me faire une fonction connexion malheureusement lors de l'exécution du script j'ai l'erreur qui suit :

    => Variable objet ou varaible de bloc With non définie.

    Je ne parviens pas a comprendre et à corriger l'erreur

    I need some help

    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
     
    Function bdConnect() As Variant
     
     
         'Déclaration des variables communes
        Dim vCnx As ADODB.Connection
        vCnx = New ADODB.Connection
     
        Dim vDsn As String
        vDsn = "DW"
     
        Dim vUser As String
        vUser = "Joss"
     
        Dim vPassword As String
        vPassword = "Aze456&jU"
     
        'Début de la connection
        'Définition de la chaîne de connexion
        vCnx.ConnectionString = "DSN=" & vDsn & ";UID=" & vUser & ";PWD=" & vPassword & ";"
     
        On Error GoTo ErrorHandler
            'ouverture de la base de donnée
            bdConnect = vCnx
     
         Exit Function
     
    ErrorHandler:
            'Le code qui s'execute si il y a une erreur
            'Par exemple:
            bdConnect = MsgBox("Erreur n° " & Err.Number & vbCrLf & "Description : " & Err.Description, vbCritical + vbOKOnly, "Erreur d'execution")
     
    End Function

  2. #2
    Membre chevronné
    Profil pro
    Inscrit en
    Avril 2009
    Messages
    242
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Avril 2009
    Messages : 242
    Par défaut
    Bonjour,

    En ligne 7, il s'agit de définir une variable objet, il faut donc utiliser l'instruction Set
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Set vCnx = New ADODB.Connection
    Ne pas hésiter à consulter la fonction recherche du site pour obtenir des exemples et tutos, ou consulter la FAQ.

  3. #3
    Membre confirmé
    Homme Profil pro
    Développeur JAVA & PHP
    Inscrit en
    Mai 2013
    Messages
    86
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Val de Marne (Île de France)

    Informations professionnelles :
    Activité : Développeur JAVA & PHP
    Secteur : Distribution

    Informations forums :
    Inscription : Mai 2013
    Messages : 86
    Par défaut
    Citation Envoyé par zenpbb Voir le message
    Bonjour,

    En ligne 7, il s'agit de définir une variable objet, il faut donc utiliser l'instruction Set
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Set vCnx = New ADODB.Connection
    Ne pas hésiter à consulter la fonction recherche du site pour obtenir des exemples et tutos, ou consulter la FAQ.

    Merci

    L'erreur est corrigé cependant j'ai toujours une erreur qui apparaît " Fonction ou variable attendue " lorsque j'affecte ma valeur de retour vCnx à ma fonction.

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

Discussions similaires

  1. [AC-2010] Fonction connexion à une base mysql via vba
    Par diombo dans le forum VBA Access
    Réponses: 4
    Dernier message: 05/06/2014, 06h22
  2. [WM15] Fonction connexion server
    Par Emmaco dans le forum Windev Mobile
    Réponses: 0
    Dernier message: 02/06/2010, 14h05
  3. table ou fonction de connexion
    Par champijulie dans le forum PostgreSQL
    Réponses: 3
    Dernier message: 17/06/2005, 09h52
  4. [C#] [MSDE] Connexion qui se ferme après appel de fonction
    Par trotters213 dans le forum Windows Forms
    Réponses: 11
    Dernier message: 23/03/2005, 16h30
  5. pro c appelle fonction connexion
    Par friends dans le forum Oracle
    Réponses: 3
    Dernier message: 10/05/2004, 17h07

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