Fabrication de recordsets hiérarchiques

L’exemple suivant montre comment fabriquer un recordset hiérarchique sans source de données sous-jacente à l’aide de la grammaire de mise en forme des données pour définir des colonnes pour les Recordsets parents, enfants et petits-enfants.

Pour fabriquer un Recordset hiérarchique, vous devez spécifier le Microsoft Data Shaping Service pour OLE DB (fournisseur de services ADO) (MSDataShape), et vous pouvez spécifier une valeur de fournisseur de données de NONE dans le paramètre de chaîne de connexion de la méthode Open de l’objet Connection. Pour plus d’informations, consultez Fournisseurs requis pour la mise en forme des données.

Dim cn As New ADODB.Connection  
Dim rsCustomers As New ADODB.Recordset  
  
cn.Open "Provider=MSDataShape;Data Provider=NONE;"  
  
strShape = _  
"SHAPE APPEND NEW adInteger AS CustID," & _  
            " NEW adChar(25) AS FirstName," & _  
            " NEW adChar(25) AS LastName," & _  
            " NEW adChar(12) AS SSN," & _  
            " NEW adChar(50) AS Address," & _  
         " ((SHAPE APPEND NEW adChar(80) AS VIN_NO," & _  
                        " NEW adInteger AS CustID," & _  
                        " NEW adChar(20) AS BodyColor, " & _  
                     " ((SHAPE APPEND NEW adChar(80) AS VIN_NO," & _  
                                    " NEW adChar(20) AS Make, " & _  
                                    " NEW adChar(20) AS Model," & _  
                                    " NEW adChar(4) AS Year) " & _  
                        " AS VINS RELATE VIN_NO TO VIN_NO))" & _  
            " AS Vehicles RELATE CustID TO CustID) "  
  
rsCustomers.Open strShape, cn, adOpenStatic, adLockOptimistic, -1  

Dès que l’objet Recordset a été fabriqué, il peut être rempli, manipulé ou conservé dans un fichier.

Voir aussi

Accès aux lignes dans un recordset hiérarchique
Grammaire formelle de la commande SHAPE
Fournisseurs nécessaires pour la mise en forme des données
Clause APPEND de la commande SHAPE
Généralités sur les commandes SHAPE