SQL 쿼리를 포함하는 템플릿 실행(SQLXMLOLEDB 공급자)

  • 아티클

적용 대상: SQL Server Azure SQL 데이터베이스

이 예제에서는 SQLXMLOLEDB 공급자별 속성 ClientSideXML의 사용을 보여 줍니다. 이 클라이언트 쪽 ADO 예제 애플리케이션에서는 SQL 쿼리로 구성된 XML 템플릿을 서버에서 실행합니다.

ClientSideXML 속성이 True로 설정되어 있으므로 FOR XML 절이 없는 SELECT 문이 서버로 전송됩니다. 서버는 쿼리를 실행하고 클라이언트로 행 집합을 반환합니다. 그러면 클라이언트에서는 행 집합에 FOR XML 변환을 적용하여 XML 문서를 생성합니다.

XML 템플릿은 생성된 XML 문서에 대한 단일 최상위 루트 요소(<ROOT>)를 제공하므로 xml 루트 속성이 제공되지 않습니다.

XML 템플릿을 실행하려면 언어 {5d531cb2-e6ed-11d2-b252-00c04f681b71}을 지정해야 합니다.

참고

코드에서 연결 문자열에 SQL Server instance 이름을 제공해야 합니다. 또한 이 예제에서는 추가 네트워크 클라이언트 소프트웨어를 설치해야 하는 데이터 공급자에 대한 SQL Server Native Client(SQLNCLI11)의 사용을 지정합니다. 자세한 내용은 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;"  
  
  Set oTestCommand.ActiveConnection = oTestConnection  
  oTestCommand.Properties("ClientSideXML") = True  
  oTestCommand.CommandText = "<ROOT xmlns:sql='urn:schemas-microsoft-com:xml-sql'> " & _  
        " <sql:query> " & _  
        "   SELECT TOP 10 FirstName, LastName FROM Person.Contact FOR XML AUTO " & _  
        "   </sql:query> " & _  
        " </ROOT> "  
  oTestStream.Open  
  ' You need the dialect if you are executing   
  ' XML templates (not for SQL queries).  
  oTestCommand.Dialect = "{5d531cb2-e6ed-11d2-b252-00c04f681b71}"  
  oTestCommand.Properties("Output Stream").Value = oTestStream  
  oTestCommand.Execute , , adExecuteStream  
  
  oTestStream.Position = 0  
  oTestStream.Charset = "utf-8"  
  Debug.Print oTestStream.ReadText(adReadAll)  
End Sub  
  
Sub Form_Load()  
  Main  
End Sub