XPath 쿼리 실행(SQLXMLOLEDB 공급자)

이 예제에서는 다음 SQLXMLOLEDB 공급자별 속성을 사용하는 방법을 보여 줍니다.

• ClientSideXML

• Base Path

• Mapping Schema

이 샘플 ADO 애플리케이션에서는 XSD 매핑 스키마(MySchema.xml)에 대해 XPath 쿼리(루트)가 지정됩니다. 스키마에는 <ContactID, FirstName 및 LastName 특성이 있는 Contacts> 요소가 있습니다. 스키마에서 기본 매핑이 수행됩니다. 요소 이름은 이름이 같은 테이블에 매핑되고 단순 형식의 특성은 이름이 같은 열에 매핑됩니다.

<xsd:schema xmlns:xsd='http://www.w3.org/2001/XMLSchema'  
   xmlns:sql='urn:schemas-microsoft-com:mapping-schema'>  
 <xsd:element name= 'root' sql:is-constant='1'>   
    <xsd:complexType>  
       <xsd:sequence>  
         <xsd:element ref = 'Contacts'/>  
       </xsd:sequence>  
    </xsd:complexType>  
  </xsd:element>  
  <xsd:element name='Contacts' sql:relation='Person.Contact'>   
     <xsd:complexType>  
          <xsd:attribute name='ContactID' type='xsd:integer' />  
          <xsd:attribute name='FirstName' type='xsd:string'/>   
          <xsd:attribute name='LastName' type='xsd:string' />   
     </xsd:complexType>  
   </xsd:element>  
</xsd:schema>  

매핑 스키마 속성은 XPath 쿼리가 실행되는 매핑 스키마를 제공합니다. 매핑 스키마는 XSD 또는 XDR 스키마일 수 있습니다. 기본 경로 속성은 매핑 스키마에 대한 파일 경로를 제공합니다.

ClientSideXML 속성이 True로 설정됩니다. 따라서 XML 문서는 클라이언트에서 생성됩니다.

애플리케이션에서 XPath 쿼리는 직접 지정됩니다. 따라서 XPath 언어 {ec2a4293-e898-11d2-b1b7-00c04f680c56}이 포함되어야 합니다.

비고

코드에서 연결 문자열에 SQL Server 인스턴스의 이름을 제공해야 합니다. 또한 이 예제에서는 추가 네트워크 클라이언트 소프트웨어를 설치해야 하는 데이터 공급자에 대한 SQL Server SQLNCLI11(Native Client)의 사용을 지정합니다. 자세한 내용은 SQL Server Native Client에 대한 시스템 요구 사항을 참조하세요.

Option Explicit  
Sub main()  
Dim oTestStream As New ADODB.Stream  
Dim oTestConnection As New ADODB.Connection  
Dim oTestCommand As New ADODB.Command  
  
oTestConnection.Open "provider=SQLXMLOLEDB.4.0;data provider=SQLNCLI11;data source=SqlServerName;initial catalog=AdventureWorks;Integrated Security= SSPI;"  
  
oTestCommand.ActiveConnection = oTestConnection  
oTestCommand.Properties("ClientSideXML") = True  
  
oTestCommand.CommandText = "root"  
oTestStream.Open  
oTestCommand.Dialect = "{ec2a4293-e898-11d2-b1b7-00c04f680c56}"  
oTestCommand.Properties("Output Stream").Value = oTestStream  
oTestCommand.Properties("Base Path").Value = "c:\Schemas\SQLXML4\XPathDirect\"  
oTestCommand.Properties("Mapping Schema").Value = "mySchema.xml"  
oTestCommand.Properties("Output Encoding") = "utf-8"  
oTestCommand.Execute , , adExecuteStream  
oTestStream.Position = 0  
oTestStream.Charset = "utf-8"  
Debug.Print oTestStream.ReadText(adReadAll)  
  
End Sub  
Sub Form_Load()  
 main  
End Sub