Fabrication de recordsets hiérarchiques

S’applique à : Access 2013, Office 2013

L'exemple ci-après indique comment créer un jeu d'enregistrements hiérarchique sans source de données sous-jacente en utilisant la syntaxe de mise en forme des données pour définir les colonnes des objets Recordset parents, enfants ou petits-enfants.

Pour fabriquer un recordset hiérarchique, vous devez spécifier le service de mise en forme des données Microsoft pour OLE DB (MSDataShape), et vous pouvez spécifier une valeur de fournisseur de données NONE dans le paramètre 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

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