계층적 레코드 집합 만들기

다음 예제에서는 데이터 셰이핑 문법을 사용하여 부모, 자식 및 손자 레코드 집합열을 정의하여 기본 데이터 원본 없이 계층적 레코드 집합을 만드는 방법을 보여 줍니다.

계층적 레코드 집합만들려면 OLE DB용 Microsoft Data Shaping Service(ADO 서비스 공급자) (MSDataShape) 지정해야 하며, Connection 개체의 Open 메서드의 연결 문자열 매개 변수에서 NONE의 데이터 공급자 값을 지정할 수 있습니다. 자세한 내용은 데이터 셰이핑에 필요한 공급자 참조 사항을 참조하세요.

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  

Recordset이 생성되자마자 파일에 데이터를 채우거나, 조작하거나, 저장할 수 있습니다.

참고 항목

계층적 레코드 집합의 행 액세스
형식적 도형 문법
데이터 셰이핑을 위한 필요한 공급자
Shape APPEND 절
일반 셰이프 명령