Fabricando conjuntos de registros hierárquicos

O exemplo a seguir mostra como fabricar um Recordset hierárquico sem uma fonte de dados subjacente usando a gramática de formatação de dados para definir colunas para o pai, filho e neto Recordsets.

Para fabricar um hierárquicoRecordset, você deve especificar o Microsoft Data Shaping Service for OLE DB (Provedor de Serviços do ADO) (MSDataShape) e especificar um valor de Provedor de Dados none no parâmetro de cadeia de conexão do método Open do objeto conexão. Para obter mais informações, consulte provedores necessários paraestruturação de dados.

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  

Assim que o Recordset for criado, ele poderá ser preenchido, manipulado ou salvo em um arquivo.

Consulte Também

acessando linhas em um conjunto de registros hierárquico
Gramática de Formas Formais
Provedores Requeridos para Formatação de Dados
Cláusula APPEND da Forma
Comandos de Forma em Geral