Herstellen hierarchischer Recordsets

Das nachfolgende Beispiel zeigt, wie Sie ein hierarchisches Recordset ohne eine zugrundeliegende Datenquelle erstellen, indem Sie die Grammatik zur Datenformung verwenden, um Spalten für übergeordnete, untergeordnete und unter-untergeordnete Recordsets zu definieren.

Um ein hierarchisches Recordset zu erstellen, müssen Sie den Microsoft Data Shaping Service für OLE DB (ADO Service Provider) ( MSDataShape) angeben, und Sie können einen Data Provider-Wert von NONE im Verbindungszeichenfolgenparameter der Open-Methode des Connection-Objekts angeben. Weitere Informationen finden Sie unter Erforderliche Anbieter für das Data Shaping.

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  

Sobald das Recordset erstellt wurde, kann es befüllt, bearbeitet oder in einer Datei gespeichert werden.

Weitere Informationen

Zugreifen auf Zeilen in einem hierarchischen Recordset
Formale Grammatik für Strukturen
Erforderliche Anbieter für die Datenstrukturierung
SHAPE APPEND-Klausel
Shape-Befehle im Allgemeinen