Wykonywanie kwerendy SQL (Dostawca SQLXMLOLEDB)

Ten przykład ilustruje użycie następujących właściwości SQLXMLOLEDB specyficznych dla dostawca:

• ClientSideXML

• xml root

W tej przykładowej aplikacji obiektów ADO klient prostych kwerend SQL jest wykonywany na komputerze klienckim.Ponieważ ClientSideXML Właściwość jest ustawiona na wartość true, instrukcja SELECT bez klauzula FOR XML jest wysyłany do serwera. Serwer wykonuje kwerendę i zwraca klientowi zestawu zestaw wierszy.Klient następnie stosuje transformacja FOR XML do zestawu zestaw wierszy i tworzy dokument XML.

The xml root właściwość provides the single top-poziom root element for the XML document that is generated.

Uwaga

W kodzie musisz podać nazwę wystąpienie programu Microsoft SQL Server w ciąg połączenia. Ponadto w tym przykładzie określa używanie SQL Server Macierzysta klient (SQLNCLI10) dla dostawca danych, który wymaga oprogramowanie klient sieciowego dodatkowe mają być zainstalowane. Aby uzyskać więcej informacji zobaczWymagania systemowe dla programu SQL Server 2008 Native klient.

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=SQLNCLI10;data source=SqlServerName;initial catalog=AdventureWorks;Integrated Security=SSPI ;"
oTestCommand.ActiveConnection = oTestConnection
oTestCommand.Properties("ClientSideXML") = True
oTestCommand.CommandText = "SELECT TOP 10 FirstName, LastName FROM Person.Contact FOR XML AUTO"
oTestStream.Open
oTestCommand.Properties("Output Stream").Value = oTestStream
oTestCommand.Properties("xml root") = "root"
oTestCommand.Execute , , adExecuteStream

oTestStream.Position = 0
oTestStream.Charset = "utf-8"
Debug.Print oTestStream.ReadText(adReadAll)
End Sub
Sub Form_Load()
 main
End Sub