다음을 통해 공유

XSL 변환 적용(SQLXMLOLEDB 공급자)

이 샘플 ADO 애플리케이션에서는 SQL 쿼리가 실행되고 XSL 변환이 결과에 적용됩니다. ClientSideXML 속성을 True로 설정하면 클라이언트 쪽에서 행 집합의 처리가 적용됩니다. SQL 쿼리는 템플릿에 지정되고 템플릿을 실행할 때 이 방언을 지정해야 하므로 명령 언어는 {5d531cb2-e6ed-11d2-b252-00c04f681b71}로 설정됩니다. xsl 속성은 변환을 적용하는 데 사용할 XSL 파일을 지정합니다. 기본 경로 속성의 값은 XSL 파일을 검색하는 데 사용됩니다. xsl 속성 값에 경로를 지정하는 경우 경로는 기본 경로 속성에 지정된 경로를 기준으로 합니다.

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

  • ClientSideXML

  • xsl

이 클라이언트 쪽 ADO 샘플 애플리케이션에서는 SQL 쿼리로 구성된 XML 템플릿이 서버에서 실행됩니다.

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

xsl 속성은 애플리케이션에 지정됩니다. 따라서 XSL 변환은 클라이언트에서 생성된 XML 문서에 적용되고 결과는 2열 테이블입니다.

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

비고

코드에서 연결 문자열에 Microsoft SQL Server 인스턴스의 이름을 제공해야 합니다. 또한 이 예제에서는 추가 네트워크 클라이언트 소프트웨어를 설치해야 하는 데이터 공급자에 SQL Server 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;"  
Set oTestCommand.ActiveConnection = oTestConnection  
oTestCommand.Properties("ClientSideXML") = True  
oTestCommand.CommandText = _  
        "<ROOT xmlns:sql='urn:schemas-microsoft-com:xml-sql' >" & _  
       " <sql:query> " & _  
        "   SELECT TOP 25 FirstName, LastName FROM Person.Contact FOR XML AUTO " & _  
        "   </sql:query> " & _  
        " </ROOT> "  
oTestStream.Open  
' You need the dialect if you are executing a template.  
oTestCommand.Dialect = "{5d531cb2-e6ed-11d2-b252-00c04f681b71}"  
oTestCommand.Properties("Output Stream").Value = oTestStream  
oTestCommand.Properties("Base Path").Value = "c:\Schemas\SQLXML4\ExecuteTemplateWithXSL\"  
oTestCommand.Properties("xsl").Value = "myxsl.xsl"  
oTestCommand.Execute , , adExecuteStream  
  
oTestStream.Position = 0  
oTestStream.Charset = "utf-8"  
Debug.Print oTestStream.ReadText(adReadAll)  
End Sub  
Sub Form_Load()  
 main  
End Sub

XSL 템플릿은 다음과 같습니다. 이 XSL 템플릿을 적용한 결과는 2열 테이블입니다.

<?xml version='1.0' encoding='UTF-8'?>            
 <xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version="1.0">   
  
    <xsl:template match = 'Person.Contact'>  
       <TR>  
         <TD><xsl:value-of select = '@FirstName' /></TD>  
         <TD><B><xsl:value-of select = '@LastName' /></B></TD>  
       </TR>  
    </xsl:template>  
    <xsl:template match = '/'>  
      <HTML>  
        <HEAD>  
           <STYLE>th { background-color: #CCCCCC }</STYLE>  
        </HEAD>  
        <BODY>  
         <TABLE border='1' style='width:300;'>  
           <TR><TH colspan='2'>Contacts</TH></TR>  
           <TR>  
              <TH >First name</TH>  
              <TH>Last name</TH>  
           </TR>  
           <xsl:apply-templates select = 'ROOT' />  
         </TABLE>  
        </BODY>  
      </HTML>  
    </xsl:template>  
</xsl:stylesheet>
  • Last updated on