Partager via

Fabrication d’ensembles d’enregistrements hiérarchiques

  • Article

L'exemple suivant montre comment créer un jeu d'enregistrements hiérarchique sans source de données sous-jacente, en utilisant la grammaire de mise en forme des données pour définir des colonnes pour les jeux d'enregistrements de niveau parent, enfant et petit-enfant .

Pour fabriquer un jeu d’enregistrements hiérarchique, vous devez spécifier le Service de mise en forme des données Microsoft pour OLE DB (FOURNISSEUR de services ADO) (MSDataShape), et vous pouvez spécifier une valeur de fournisseur de données 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'ensemble d'enregistrements a été fabriqué, il peut être rempli, manipulé ou conservé dans un fichier.

Voir aussi

Accès aux lignes dans un jeu d’enregistrements hiérarchique
grammaire de forme formelle
fournisseurs requis pour la mise en forme des données
clause SHAPE APPEND
Commandes de forme en général