La collection ADO Fields contient tous les objets Field correspondant chacun à une colonne d'un jeu d'enregistrements (Recordset) ou d'un seul enregistrement (Record).
Set objet_Fields = objet_Recordset.Fields
L'extraction des valeurs de champs peut s'effectuer de différentes façons. Cependant, si la position des champs est connue dans la table de données, l'accès par un index reste la méthode la plus performante.
objet_Field = obj_Recordset.Fields.Item("Nom_Champ") objet_Field = obj_Recordset.Fields("Nom_Champ") objet_Field = obj_Recordset("Nom_Champ") objet_Field = obj_Recordset.Fields.Item(Index) objet_Field = obj_Recordset.Fields(Index) objet_Field = obj_Recordset(Index)
Dans le cas de données structurées comme des bases de données SQL, la colletion Fields contient des enregistrements (objets Field) correspondant à des colonnes de données et contiennent des informations relatives aux colonnes telles que leur type de données, leur taille, leur nom, etc..
Dans le cas de données semi-structurées comme un système de fichiers, la collection Fields correspond à l'ensemble des propriétés de l'objet. Ainsi, chaque propriété à l'image ddu nom, de la taille, des attributs etc. constitue un enregistrement spécifique dans la collection.
Les PropriétésPropriété |
---|
Description |
Fields.Count |
indique le nombre d'objets Field d'une collection. |
Fields.Item(Index) |
retourne un élément de la collection. |
Méthode |
---|
Description |
Fields.Append Nom_Field, Type, Taille_Champs, FieldAttributeEnum, Valeur |
ajoute un objet à une collection. |
Fields.CancelUpdate |
annule toutes les modifications apportées à l'enregistrement en cours ou à un nouvel enregistrement avant d'appeler la méthode Update |
Fields.Delete Field |
supprime un objet de la collection. |
Fields.Refresh |
met à jour les objets d'une collection afin de reflèter les objets disponibles à partir du fournisseur et spécifique à ce-dernier. |
Fields.Resync ResyncEnum |
actualise les données de l'objet Recordset en cours à partir de la base de données sous-jacente. |
Fields.Update Fields, Valeurs |
sauvegarde les modifications apportées à l'enregistrement en cours d'un objet Recordset. |
<html> <body> <% Set obj_Recordset = Server.CreateObject("ADODB.Recordset") obj_Recordset.Open "Select * from Fiche","DSN=personnel" With Obj_Recordset Compteur = .Fields.Count - 1 %> <table border="1" cellpadding="3" align="center"> <tr> <td colspan="7">Fiches signalétiques des personnels</td> </tr> <tr> <td>N°</td> <td>Nom</td> <td>Prénom</td> <td>Age</td> <td>Qualité</td> <td>eMail</td> <td>Adresse</td> </tr> <% Dim i Do While Not .EOF %> <tr> <% For i = 0 To Compteur %> <td><%=.Fields.Item(i)%></td> <% Next %> </tr> <% .MoveNext Loop .Close End With Set obj_Recordset = Nothing %> </tr> </table> </body> </html> |