Fabricación de conjuntos de registros jerárquicos

En el ejemplo siguiente se muestra cómo fabricar un Recordset jerárquico sin un origen de datos subyacente mediante la gramática de modelado de datos para definir columnas para los conjuntos de registros primarios, secundarios y subordinados .

Para fabricar una recordset jerárquica, debe especificar el servicio de modelado de datos de Microsoft para OLE DB (proveedor de servicios 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 deConnection. Para obtener más información, consulte Proveedores Requeridos para la Estructuración de 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  

Tan pronto como se haya fabricado el Recordset, se puede rellenar, manipular o conservar en un archivo.

Consulte también

acceder a filas en un conjunto de registros jerárquico
gramática de formas formales
Proveedores Requeridos para la Configuración de Datos
Cláusula APPEND de Forma
Comandos de forma en general