Discussion :

[Remus91]

Bonjour
N’arrivant pas à trouver réponse à ma question je me retourne vers vous.

J’ai fait une requête SQL :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SELECT [demande_de_service].[envoi_ds] FROM demande_de_service;

Table : demande_de_service
Champ : envoi_ds.

J’aimerais récupérer toute les valeurs de c’est champ et les stocker dans une variable string, j’ai du mal à trouver la syntaxe pour appliquer ma requête dans mon code, pourriez vous m’aider ?
J’ai pensé à cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim date_envoi_ds as string
Date_envoi_ds = SELECT [demande_de_service].[envoi_ds] FROM demande_de_service;

Merci d'avance
Rémy

[jimay]

Salut

Pour récupérer les valeurs d'une requete Select je te conseille d'utiliser les Recordset

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim rs as recordset
 
'On créé un recordset qui va contenir le résultat de ta requete
'On peu le voir comme un tableau dont les colonnes sont les champs de ta requete
'Et les lignes correspondent au nombre de résultat
set rs = currentdb.openRecordset("SELECT Nom, Prenom FROM TaTable Where ...")

et ensuite tu peux traiter les données

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
'Si le nombre de résultat est différent de 0 Alors
if rs.recordcount <> 0 then
    'Tant qu'on a pas parcouru tous les enregisrements
    While not rs.EOF
        'On affiche dans un msgBox la valeur du champ 1 et du champ 2
        'les deux façons d'accéder aux valeurs sont 
        'rs.fields("LeNomDuChamp")
        'ou
        'rs.fields(LeNuméroDuChampDansLaRequete)
 
        'Ici ça affiche les valeurs de 'Nom' et 'Prenom'
        msgbox rs.fields("Nom") & rs.fields(1)
 
        'On passe au résultat suivant de la requete
        rs.moveNext
    Wend
else
    ' Aucun enregistrement trouvé
Endif

voilou

[Remus91]

Merci de porter attention à ma demande Jimay.

D'apres ce que tu ma dit cela donne ceçi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set rs = CurrentDb.OpenRecordset("SELECT envoi_ds FROM demande_de_service")

Access me mais Incompatibilité de type.
Je me demande si ce n'est pas parce que mon champ est un champ date.

Ensuite le reste de ton code j'ai pas tout compris... c'est pour afficher tout les enregistrements dans plusieurs msgbox ?

[Tofalu]

Bonjour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim rs As DAO.Recordset

en ajoutant la référence DAO au projet comme mentionné dans la FAQ

[jimay]

Re,

J'ai commenté un peu mon précédent message.

Mais je t'invite à rechercher dans la FaQ du site pour trouver toutes sortes d'informations sur les recordsets (moi même je ne m'y connais que très peu..)

++

[Remus91]

Je vous remerci vous deux pour votre aide et je vous souhaite bon courage pour la suite.

Bonne journée
Cordialement,
Rémy