Utilisation d'un recordset

Bonjour

Suite à une requete SQL

Code:

---

1 2 3 4 5 6 7 8 9 10

Set db = CurrentDb() sSQL = "SELECT Prénom, Ville FROM perso WHERE service ='ad';" Set rst = db.OpenRecordset(sSQL) While Not rst.EOF ??? rst.MoveNext Wend rst.Close

---

je cherche simplement à récupérer les valeurs...
par exemple juste avec un msgbox...
je sens que c'est tout c** mais je trouve pas :mrgreen:

merci d'avance

Code:

---

1 2 3 4 5

rs.fields("Nom du champ à récupérer") 'du genre rs.fields("Nom") rs.fields("Prenom") rs.fields("Age")

---

Voila avec ca tu devrais trouver ton bonheur :lol:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

dim tabPrenom() as string dim tabVille() as string dim indice as long   Set db = CurrentDb() sSQL = "SELECT Prénom, Ville FROM perso WHERE service ='ad';"   Set rst = db.OpenRecordset(sSQL)   indice = 0 While Not rst.EOF redim tabPrenom(indice) tabPrenom(indice) = rst("prenom") redim tabVille(indice) tabVille(indice) = rst("ville")   rst.MoveNext Wend rst.Close

---

ou

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

dim tabPrenomVille(1,0) as string dim indice as long   Set db = CurrentDb() sSQL = "SELECT Prénom, Ville FROM perso WHERE service ='ad';"   Set rst = db.OpenRecordset(sSQL)   indice = 0 While Not rst.EOF redim tabPrenomVille(1,indice) tabPrenomVille(0,indice) = rst("prenom") tabPrenomVille(1,indice) = rst("ville")   rst.MoveNext Wend rst.Close

---

ca doit marcher tu choisis de faire 1 ou 2 tableaux de stockage des donnees recuperees

bon dev'

oups oublie une igne de code
indice = indice + 1
a inserer avant le wend des boucles desole lol

merci de vos réponses

Code:

---

1 2 3 4 5 6

While Not rst.EOF   x = rst.Fields("Prénom") msgbox x rst.MoveNext Wend

---

le pb est que dans ma table perso, certains champs Prénom sont vides
et quand je met ce code, j'ai le droit à un

Citation:

---

Invalid use of Null

---

il te faut forcer la reponse en creant une chaine de texte

rajoute juste une chaine vide

Code:

---

1 2 3 4 5 6 7

While Not rst.EOF   msgbox rst("Prénom") & ""   rst.MoveNext Wend

---

:king: merci ....