Discussion :

[Brice_68]

Bonjour,

je n'arrive pas à faire la chose suivante:

je voudrais récupérer le résultat d'une requète (select (un champs texte) dans une table) et le stocker dans une variable de type String afin de pouvoir ensuite l'utiliser dans mon code vb.

Quelqu'un aurait-il une piste?

[Oleff]

Bonjour,
Regarde du côté des recordset (objets DAO).

[Brice_68]

Oui justement j'étais en train de voir ça...
J'ai trouvé ça dans un tutorial sur notre site préféré:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 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

Mais je ne comprends pas bien le fonctionnement.
On récupère le champs désiré sous quelle forme?

Le format "DAO.Recordset" peut contenir du texte? du numérique?

Car je dois ensuite faire un traitement sur le champs texte récupéré, et il faudrait que ce soit de type STRING.

[Mig21]

Salut,

uns fois un recordset calculé (la ligne Set rst = db.OpenRecordset (sSQL, dbOpenForwardOnly, dbReadOnly) exécuté), tu peux atteindre le résultat a l'aide de la propriété fields.

exemple :

Code :

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

1
2
3
4
5
6
set oRst = currentdb.openrecordset ("SELECT MonCode, MonLibelle FROM MaTable WHERE MonCode = .....")
 
oRst.MoveFirst
oRst.fields("MonCode") = oRst.fields(0) = valeur de MonCode dans la premiere ligne de oRst
oRst.MoveNext
oRst.fields("MonLibelle") = oRst.fields(1) = valeur de MonLibelle dans la ligne

suivant de oRst

Ainsi de suite. Voir le tuto sur l'utilisation de dao

[Brice_68]

Ah bah voila!
il fallait utiliser "field" C'est la partie qu'il me manquait! Merci beaucoup, je devrais arriver à faire dont j'ai besoin avec ça!


Juste une question en rapport avec ton code la:
A quoi servent les moveFirst et moveNext?

[Mig21]

Pour se déplacer d'un enregistrement à l'autre dans un recordset, il y a une liste de commandes.
MoveFirst => se place sur le premier
MoveLast => dernier
MoveNext => suivant
MovePrev (?) => precedant

Il y a aussi eof pour tester si tu es en fin de recordset et surement l'equivalent pour savoir si tu es au début (avant le 1er)

[Kihmé Xs]

MovePrev (?) => precedant

MovePrevious => precedant