执行带命名空间的 XPath 查询（SQLXMLOLEDB 访问接口）

XPath 查询可以包含命名空间。如果架构元素为限定命名空间（即，包含目标命名空间），则针对该架构的 XPath 查询必须指定该命名空间。

由于 SQLXML 4.0 中不支持使用通配符 (*)，因此必须使用命名空间前缀来指定 XPath 查询。若要解析此前缀，可使用 namespaces 属性来指定命名空间绑定。

在下例中，XPath 查询通过使用通配符 (*) 和 local-name() 及 namespace-uri() XPath 函数来指定命名空间。此 XPath 查询将返回其本地名称为 Contact 且其命名空间 URI 为 urn:myschema:Contacts 的所有元素。

/*[local-name() = 'Contact' and namespace-uri() = 'urn:myschema:Contacts']

在 SQLXML 4.0 中，必须用命名空间前缀来指定此 XPath 查询。例如，x:Contact，其中 x 为命名空间前缀。请看以下 XSD 架构：

<schema xmlns="http://www.w3.org/2001/XMLSchema"
            xmlns:sql="urn:schemas-microsoft-com:mapping-schema"
            xmlns:con="urn:myschema:Contacts"
            targetNamespace="urn:myschema:Contacts">
<complexType name="ContactType">
  <attribute name="CID" sql:field="ContactID" type="ID"/>
  <attribute name="FName" sql:field="FirstName" type="string"/>
  <attribute name="LName" sql:field="LastName"/> 
</complexType>
<element name="Contact" type="con:ContactType" sql:relation="Person.Contact"/>
</schema>

由于此架构定义了目标命名空间，因此针对此架构的 XPath 查询（如“Employee”）必须包含该命名空间。

以下是一个 Microsoft Visual Basic 应用程序示例，针对前述 XSD 架构执行 XPath 查询 (x:Employee)。使用 namespaces 属性来指定命名空间绑定，以解析此前缀。

注意
在该代码中，必须在连接字符串中提供 SQL Server 实例的名称。此外，本示例还指定使用 SQL Server Native Client (SQLNCLI10) 作为数据访问接口，该访问接口需要安装其他网络客户端软件。有关详细信息，请参阅SQL Server Native Client 的系统要求。

Option Explicit
Private Sub Form_Load()
    Dim con As New ADODB.Connection
    Dim cmd As New ADODB.Command
    Dim stm As New ADODB.Stream
    con.Open "provider=SQLXMLOLEDB.4.0;Data Provider=SQLNCLI10;Data Source=SqlServerName;Initial Catalog=AdventureWorks;Integrated Security=SSPI;"
    Set cmd.ActiveConnection = con
    stm.Open
    cmd.Properties("Output Stream").Value = stm
    cmd.Properties("Output Encoding") = "utf-8"
    cmd.Properties("Mapping schema") = "C:\DirectoryPath\con-ex.xml"
    cmd.Properties("namespaces") = "xmlns:x='urn:myschema:Contacts'"
    '  Debug.Print "Set Command Dialect to DBGUID_XPATH"
    cmd.Dialect = "{ec2a4293-e898-11d2-b1b7-00c04f680c56}"
    cmd.CommandText = "x:Contact"
    cmd.Execute , , adExecuteStream 
    stm.Position = 0
    Debug.Print stm.ReadText(adReadAll)
End Sub

测试此应用程序

<y0:Employee xmlns:y0="urn:myschema:Contacts" 
             LName="Achong" CID="1" FName="Gustavo"/>
<y0:Employee xmlns:y0="urn:myschema:Employees" 
             LName="Abel" CID="2" FName="Catherine"/>