Erstellen hierarchischer Datensätze

Das folgende Beispiel zeigt, wie Sie ein hierarchisches Recordset-Objekt ohne zugrunde liegende Datenquelle erstellen, indem die Grammatik für die Datenstrukturierung verwendet wird, um Spalten für übergeordnete, untergeordnete und enkelische Recordsetszu definieren.

Um ein hierarchisches Recordset-zu erstellen, müssen Sie den Microsoft Data Shaping Service for 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 die Datenstrukturierung.

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 aufgefüllt, bearbeitet oder in einer Datei gespeichert werden.

Siehe auch

Zugreifen auf Zeilen in einem hierarchischen Recordset-
Formale Shape-Grammatik
Erforderliche Anbieter für die Datenstrukturierung
Form ANFÜGEN Klausel
Shape-Befehle im Allgemeinen