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

VBA Access Discussion :

recupérer le résultat d'un select dans une variable [AC-2000]


Sujet :

VBA Access

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éclairé
    Inscrit en
    Octobre 2006
    Messages
    360
    Détails du profil
    Informations forums :
    Inscription : Octobre 2006
    Messages : 360
    Par défaut recupérer le résultat d'un select dans une variable
    Bonjour tous le monde

    J'ai créé une table parametrage qui contient deux colonnes :
    secteur et pourcentage

    les secteur sont uniques


    Mon select me retourne une seul valeur
    exemple :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    select pourcentage from parametrage where secteur = 'lyon'
    je n'arrive pas a recupérer ce pourcentage dans une variable

    je ne post pas se message sans avoir fait des recherches au préalable, je pense avoir dailleur la solution, utiliser un recordset
    je suis passé par la FAQ du forum mais je ne comprend pas comment faire pour stocker le resultat dans une variable
    ils montrent comment ouvrir et fermet mais rien de plus (ou alors je ne comprend pas) merci de m'aider

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
     
     Sub DAOOpenRecordset ()
        Dim db As DAO.Database, rst As DAO.Recordset, fld As DAO.Field
        Dim sSQL As String
        ' Ouverture de la base de données 
        Set db = DBEngine.OpenDatabase (".\Comptoir.mdb")
        sSQL =  "Select * From CLIENTS Where Région= \'WA\'"
        ' Ouverture du recordset 
        Set rst = db.OpenRecordset (sSQL, dbOpenForwardOnly, dbReadOnly)
        ' Fermeture du Recordset
        rst.Close
    End Sub

  2. #2
    Rédacteur/Modérateur

    Avatar de ClaudeLELOUP
    Homme Profil pro
    Chercheur de loisirs (ayant trouvé tous les jours !)
    Inscrit en
    Novembre 2006
    Messages
    20 596
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 80
    Localisation : Belgique

    Informations professionnelles :
    Activité : Chercheur de loisirs (ayant trouvé tous les jours !)
    Secteur : Finance

    Informations forums :
    Inscription : Novembre 2006
    Messages : 20 596
    Par défaut
    Bonjour,
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    Sub DAOOpenRecordset()
        Dim rst As DAO.Recordset
        Dim sSQL As String, Résultat As String
        sSQL = "Ton sql avec un résultat unique")
           ' Ouverture du recordset
        Set rst = CurrentDb.OpenRecordset(sSQL, dbOpenForwardOnly, dbReadOnly)
        Résultat = rst(0)
        Debug.Print Résultat  'pour visualiser dans la fenêtre d'exécution'
     
        ' Fermeture du Recordset
        rst.Close
    End Sub

  3. #3
    Membre éclairé
    Inscrit en
    Octobre 2006
    Messages
    360
    Détails du profil
    Informations forums :
    Inscription : Octobre 2006
    Messages : 360
    Par défaut
    merci je test dessuite

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

Discussions similaires

  1. Réponses: 8
    Dernier message: 18/04/2008, 17h40
  2. résultat d'un select dans une variable
    Par chloro69 dans le forum Informix
    Réponses: 4
    Dernier message: 14/04/2008, 17h56
  3. Réponses: 11
    Dernier message: 18/07/2006, 13h53
  4. récupérer le résultat d'un SELECT dans une variable ?
    Par budhax dans le forum MS SQL Server
    Réponses: 1
    Dernier message: 06/06/2006, 10h24
  5. [Sybase] résultat d'un select dans une variable
    Par stoz dans le forum Sybase
    Réponses: 2
    Dernier message: 14/09/2004, 14h28

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