Fabricación de conjuntos de registros jerárquicos

En el ejemplo siguiente se muestra cómo crear un objeto Recordset jerárquico sin un origen de datos subyacente mediante la gramática de forma de datos para definir columnas para objetos Recordset primarios, secundarios y descendientes del secundario.

Para crear un objeto Recordset jerárquico, debe especificar el servicio de modelado de datos de Microsoft para OLE DB (proveedor de servicios de ADO) (MSDataShape) y puede especificar un valor de Proveedor de datos de NONE en el parámetro de cadena de conexión del método Open del objeto Connection. Para obtener más información, vea Proveedores deseados para dar forma a datos.

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  

En cuanto se haya creado el objeto Recordset, se puede rellenar, manipular o almacenar en un archivo.

Consulte también

Acceso a las filas en un conjunto de registros jerárquico
Gramática formal de forma
Proveedores deseados para dar forma a datos
Cláusula APPEND Shape
Comandos Shape en General