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 :

Problème de connexion


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 Problème de connexion
    Bonjour,

    Lors de l'exécution de mon script une erreur que je ne parviens pas à corrigé appariait :

    Impossible d'utiliser cette connexion pour effectuer cette opération. elle est fermée ou non valide dans ce contexte

    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
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    Set cnx = New ADODB.Connection
     
        'Instanciation des variables de connexion
        host = ""
        dsn = ""
        user = ""
        password = ""
        bdd = ""
     
     
        'Début de la connection
        'Définition de la chaîne de connexion
        cnx.ConnectionString = "DSN=" & dsn & ";UID=" & user & ";PWD=" & password & ";"
     
        'ouverture de la base de donnée
        cnx.Open
        'MsgBox cnx.State
     
        'pouvoir facilement paramétrer les requêtes mêmes les SELECT
        Set cmd = New ADODB.Command
     
        'rajouter un objet Parameter à l'objet Command
        Dim param1 As ADODB.Parameter
        Set param1 = New ADODB.Parameter
     
        Dim param2 As ADODB.Parameter
        Set param2 = New ADODB.Parameter
     
     
        'jeu d'enregistrements retournés lors de l'exécution d'un SELECT
        'Set result = New ADODB.Recordset
     
        'Préparation de l'objet Command
        cmd.CommandText = "INSERT INTO USERS (NOM,PRENOM,L,DATE_ACCESS) VALUES (?,'TEST','TEST',NOW())"
        cmd.Prepared = True
        'cmd.CommandText = "SELECT * FROM T_USERS WHERE NOM = ?;"
        'Préparation du paramètre
        param1.Name = "nom" 'Nom du champ correspondant
        param1.Type = adVarChar 'Type du champ
        param1.Direction = adParamInput 'Type de paramètre : Entrée, Sortie, Entrée/Sortie
        param1.Size = 10 'Taille maximale du champ
        param1.Value = nom 'Valeur du paramètre
     
     
        cmd.Parameters.Append param1
     
     
        'Préparation du paramètre
        param2.Name = "l" 'Nom du champ correspondant
        param2.Type = adVarChar 'Type du champ
        param2.Direction = adParamInput 'Type de paramètre : Entrée, Sortie, Entrée/Sortie
        param2.Size = 10 'Taille maximale du champ
        param2.Value = l 'Valeur du paramètre
        cmd.Parameters.Append param2
     
     
        'Exécution de la requête
        cmd.Execute
    J'ai beau retourner mon code dans tout les sens je ne parviens pas à corriger cette erreur.

  2. #2
    Expert éminent Avatar de Menhir
    Homme Profil pro
    Ingénieur
    Inscrit en
    Juin 2007
    Messages
    16 037
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : Ingénieur
    Secteur : Industrie

    Informations forums :
    Inscription : Juin 2007
    Messages : 16 037
    Par défaut
    Tu peux essayer de t'inspirer de ça : http://silkyroad.developpez.com/VBA/ClasseursFermes/

  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 Menhir Voir le message
    Tu peux essayer de t'inspirer de ça : http://silkyroad.developpez.com/VBA/ClasseursFermes/
    Bonjour
    Je suis connecté car mon script se déroule convenablement jusqu'à la ligne cmd.Execute.
    S'il y avait eu problème de connexion je le script ne se serait pas executé.

    Je continue de chercher, merci de ton aide

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

Discussions similaires

  1. [Première installation] Problème de connexion
    Par sekiryou dans le forum Installation
    Réponses: 2
    Dernier message: 02/03/2004, 19h18
  2. [ Oracle 9ias / 10g] problème de connexion
    Par Boosters dans le forum JDeveloper
    Réponses: 2
    Dernier message: 20/01/2004, 17h23
  3. Problème de connexion au serveur MYSQL
    Par ETOKA dans le forum Outils
    Réponses: 2
    Dernier message: 27/11/2003, 09h28
  4. Réponses: 11
    Dernier message: 13/10/2003, 14h48
  5. problème de connexion 2 PC
    Par guitalca dans le forum Développement
    Réponses: 3
    Dernier message: 22/09/2003, 14h04

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