La collection ADO Properties contient tous les objets Property d'une instance d'objet.
Properties.Propriété | Méthode
Les objets ADO, Connection, Command, Recordset, Record, et Field possèdent une collection Properties constituée d'objets Property,. Chacun de ces-derniers correspond à une caractéristique de l'objet ADO, spécifique au fournisseur.
ADO fonctionnant avec différents types de sources de données, la collection Properties devient dynamique, puisque chacun de ses objets Property sont susceptibles de varier selon le fournisseur OLE DB sollicité.
Les propriétés dynamiques sont disponibles à partir de l'une ou l'autre des expressions suivantes :
Objet.Properties(Index)
Objet.Properties("Nom")| Propriété |
|---|
| Description |
| Properties.Count |
| indique le nombre d'objets Property d'une collection. |
| Properties.Item(Index) |
| retourne un élément de la collection. |
| Méthode |
|---|
| Description |
| Properties.Refresh |
| met à jour les objets Property dans la collection afin de reflèter les objets disponibles à partir du fournisseur et propre à ce-dernier. |
<html>
<body>
<%
Dim obj_Connection
Dim obj_Recordset
Dim ch_Source
Dim ch_SQL
set obj_Connection=server.CreateObject("ADODB.connection")
ch_Source = "Provider=Microsoft.Jet.OLEDB.4.0"
ch_Source = ch_Source & "; Data Source=C:\Base_donnee\Personnel.mdb"
obj_Connection.connectionstring = ch_Source
obj_Connection.Open
set obj_Recordset = server.CreateObject("ADODB.recordset")
ch_SQL = "SELECT Nom, Prenom FROM Fiche;"
obj_Recordset.Open ch_SQL,obj_Connection
Response.Write "<h3>Personnels :</h3>"
Do until obj_Recordset.EOF
Response.Write "<b>" & obj_Recordset("Nom") & "</b> " _
& obj_Recordset("Prenom") & "<br>"
obj_Recordset.MoveNext
Loop
Response.Write "<h3>Propriétés de l'objet Connection :</h3>" _
& "<table border=1>" _
& "<tr><th>N°</th>" _
& "<th>Type</th>" _
& "<th>Attribut</th>" _
& "<th>Nom</th>" _
& "<th>Valeur</th></tr>"
dim i
i = 0
for each obj_Property in obj_Connection.Properties
i = i + 1
Response.Write "<tr><td>" & i & "</td>"
Response.Write "<td>" & obj_Property.type & "</td>"
Response.Write "<td>" & obj_Property.attributes & "</td>"
Response.Write "<td>" & obj_Property.name & "</td>"
Response.Write "<td>" & obj_Property.value & "</td></tr>"
Next
Response.Write "</table>"
%>
</body>
</html> |