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 :

Donner des droits à un user à ma connexion à la bdd


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 Donner des droits à un user à ma connexion à la bdd
    Bonjour,

    J'essai actuellement de donner des droits à un utilisateur lorsque je me connecte a une BDD.

    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
     
     
     'Déclaration des variables communes
        Dim cnx As ADODB.Connection
        Set cnx = New ADODB.Connection
     
        'Instanciation des variables de connexion
        Dim host As String
        host = "dbacce"
     
        Dim rst As ADODB.Recordset
        Set rst = New ADODB.Recordset
     
     
        Dim dsn As String
     
        dsn = "TOTO"
     
        Dim user As String
        'user = "Redacteur"
     
     
        Dim password As String
     
        'password = 'admin'
     
        Dim bdd As String
        bdd = "admin"
     
     
        'Début de la connection
        'Définition de la chaîne de connexion
        cnx.ConnectionString = "DSN=" & dsn & ";UID=" & user & ";PWD=" & password & ";"
     
     
     
        On Error GoTo ErrorHandler
            'ouverture de la base de donnée
            cnx.Open
     
            rst.Open "SELECT, INSERT, UPDATE, DELETE ON TABLE COMMENTAIRE TO REDACTEUR", cnx
     
     
            cnx.Close
         Exit Function
     
    ErrorHandler:
            'Le code qui s'execute si il y a une erreur
            'Par exemple:
            Dim MonResultat
            MonResultat = MsgBox("Erreur n° " & Err.Number & vbCrLf & "Description : " & Err.Description, vbCritical + vbOKOnly, "Erreur d'execution")
     
        'MsgBox cnx.State
     
     
     
    End Function
    Cette fonction ne passe pas le message d'erreur est "Expression Absente"
    Je ne parviens pas a trouver de tuto afin de pouvoir avancer
    I need some help

  2. #2
    Expert confirmé
    Homme Profil pro
    retraité
    Inscrit en
    Juin 2012
    Messages
    3 440
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : retraité
    Secteur : Associations - ONG

    Informations forums :
    Inscription : Juin 2012
    Messages : 3 440
    Par défaut
    Bonjour,

    Forum Excel ou forum Access ?

    Je préfère vraiment ne pas utiliser l'instruction On Error Goto ErrorHandler car cela m'empêche de voir sur quelle ligne l'erreur se produit. Sur cette base, ma proposition:

    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
     'Déclaration des variables communes
        Dim cnx As ADODB.Connection
        Set cnx = New ADODB.Connection
        'Instanciation des variables de connexion
        Dim host As String
        host = "dbacce"
        Dim rst As ADODB.Recordset
        Set rst = New ADODB.Recordset
        Dim dsn As String
        dsn = "TOTO"
        Dim user As String
        'user = "Redacteur"
        Dim password As String
        'password = 'admin'
        Dim bdd As String
        bdd = "admin"
        'Début de la connexion
        '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
        rst.Open "SELECT, INSERT, UPDATE, DELETE ON TABLE COMMENTAIRE TO REDACTEUR", cnx
        cnx.Close
    End Function
    et une erreur se produit certainement sur la ligne 22. Pourrait éventuellement fonctionner:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
        rst.Open "SELECT * FROM NomTable", cnx
    Bonne continuation.

  3. #3
    Invité
    Invité(e)
    Par défaut
    Bonjour,

    regarde cette discutions si ça peut t'aider!

    https://www.developpez.net/forums/d1.../#post10836833

Discussions similaires

  1. donner des droits a tout users sur la commande /etc/init.d/sendmail start
    Par moussadjijunior dans le forum Administration système
    Réponses: 2
    Dernier message: 03/06/2011, 13h21
  2. [AIX] Donner des droits "s" à un fichier
    Par Bahan dans le forum AIX
    Réponses: 4
    Dernier message: 06/07/2006, 11h37
  3. [Répertoire] Donner des droits à un dossier
    Par peck dans le forum Langage
    Réponses: 4
    Dernier message: 19/03/2006, 16h32
  4. Gestion des droits : 1 user par utilisateur ?
    Par Bruno75 dans le forum MS SQL Server
    Réponses: 1
    Dernier message: 07/11/2005, 14h39

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