Connexion ADO à base de données : Propriétés d'un recordset

[mike76]

Lorsque vous travaillez avec ADO parfois il peut être intéressant de récupérer les propriétés d'un recordset ainsi que leurs valeurs :

Code : Tout sélectionner

Set adoRs = createobject("ADODB.Recordset")

...

Dim str As String
   
With adoRs
   For i = 0 To (.Properties.Count - 1)
           str =str  & " / " &  .Properties(i).Name & ", " & .Properties(i).Value
   Next i
End With

messagebox str

Si vous ne connaissez par l'ADO consultez ce lien très intéressant :
http://vb.developpez.com/bidou/recordset-ado/