La récupération de données à partir d'une Base de données se fait grâce à l'objet Recordset et à la collection Fields qui contient les données et autres informations concernant chaque champ de l'enregistrement courant.

Pour retrouver le contenu d'un champ de la collection on utilisera la formule suivante :

Rs.Fields("Nom du champ").Value

Quelques unes des fonctions importantes de l'objet Recordset pour la récupération de données sont :

d'explorer un jeu d'enregistrements par l'intermédiaire des méthodes MoveNext, MovePrevious, MoveLast, MoveFirst, Move,
d'effectuer des recherches par Seek ou Find,
de tester la position du pointeur d'enregistrement avec les propriétés BOF (Before Of File), EOF (End Of File) ou AbsolutePosition.

Exemple pour se déplacer dans un Recordset :

Commande	Description
Rs.Move 7	Avance de 7 enregistrements
Rs.Move –4	Recule de 4 enregistrements
Rs.MoveFirst	Placement sur le premier enregistrement
Rs.MoveLast	Placement sur le dernier enregistrement
Rs.MovePrevious	Placement sur l'enregistrement précédent
Rs.MoveNext	Placement sur l'enregistrement suivant

ATTENTION : Même si cela peut paraître bizarre, le pointeur dans un Recordset peut très bien être placé sur un enregistrement non existant… En effet, il peut indiquer une position antécédente au premier enregistrement ou postérieure au dernier, il peut également indiquer un enregistrement effacé entre temps par un autre utilisateur.

Exemple complet

1- Connexion et création du Recordset à partir d'une requête SQL :

<% Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Login"
Sql = " SELECT tblAdmin.Login, tblAdmin.MDP FROM tblAdmin WHERE ((tblAdmin.Login)='Nicolas')"
set Rs= server.CreateObject("ADODB.Recordset")
Rs.open sql, conn, 3, 3, 1

2- Récupération du nombre d'enregistrement dans le Recodset :

Nb=Rs.recordcount

3- Test si aucun enregistrement n'a été trouvé:

IF Nb=0 Then %>
Aucun enregistrement ne correspond à vos critères de recherche
<% End IF

4- Gestion des erreurs :

On error resume next

5- On place le curseur sur le premier enregistrement :

Rs.movefirst

6- On récupère et affiche les données grâce à une boucle et à la collection fields :

DO while Not Rs.EOF %>
Login : <%=Server.HTMLEncode(rs.Fields("Login").Value)%><BR>
Mot de Passe : <%= Server.HTMLEncode(rs.Fields("MDP").Value)%><BR>
Droit : <%= Server.HTMLEncode(rs.Fields("Droit").Value)%> <BR>
<% Rs.movenext
LOOP

7- On ferme le Recordset et la Connexion

Rs.Close
Set Rs=Nothing
Conn.Close
Set Conn=Nothing %>

Nous vous informons que ce cours constitue une œuvre protégée en France par le Code de la Propriété Intellectuelle, et à l’étranger par les conventions internationales en vigueur sur le droit d’auteur. La violation de l’un des droits d’auteur de l’œuvre est un délit de contrefaçon. Il est donc interdit, à titre privé ou public, de reproduire, copier, vendre, revendre ou exploiter, que ce soit dans un but commercial ou purement gratuit, ce cours, sauf accord exprès et préalable de son auteur.