Выполнение запросов XPath (поставщик SQLXMLOLEDB)

В этом примере показано использование следующих свойств поставщика SQLXMLOLEDB:

• ClientSideXML

• Base Path

• Mapping Schema

В этом примере приложения ADO запрос XPath (root) указывается в схеме сопоставления XSD (MySchema.xml). Схема содержит <элемент Contacts> с атрибутами ContactID, FirstName и LastName . В схеме выполняется сопоставление по умолчанию: имя элемента сопоставляется с таблицей с тем же именем, а атрибуты простого типа сопоставляют столбцы с одинаковыми именами.

<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. Свойство Base Path предоставляет путь к схеме сопоставления.

Свойство ClientSideXML имеет значение True. Поэтому XML-документ создается на клиенте.

В приложении запрос XPath указывается напрямую. Поэтому необходимо включить диалект XPath {ec2a4293-e898-11d2-b1b7-00c04f680c56}.

Замечание

В коде необходимо указать имя экземпляра SQL Server в строке подключения. Кроме того, в этом примере указывается использование собственного клиента SQL Server (SQLNCLI11) для поставщика данных, для которого требуется установить дополнительное сетевое клиентское программное обеспечение. Дополнительные сведения см. в разделе "Требования к системе" для собственного клиента SQL Server.

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