Wykonywanie kwerend SQL (Dostawca SQLXMLOLEDB)
Ten przykład ilustruje użycie następujących właściwości specyficzne dla dostawcy SQLXMLOLEDB:
ClientSideXML
xml root
W tej przykładowej aplikacji ADO klient prostych kwerend SQL jest wykonywany na komputerze klienckim.Ponieważ ClientSideXML właściwość jest zestaw ma wartość True, instrukcja SELECT bez XML dla klauzula jest wysyłany do serwera.Serwer wykonuje kwerendę i zwraca zestaw wierszy do klient.Następnie klient dotyczy transformacja XML dla zestawu zestaw wierszy i daje dokumentu XML.
xml root Właściwość zawiera element główny pojedynczego najwyższego poziom dla dokumentu XML, który jest generowany.
Ostrzeżenie
W kodzie, należy podać nazwę wystąpienie programu Microsoft SQL Server w połączeniu z ciąg.W tym przykładzie określa także, korzystanie z SQL Server Native klient (SQLNCLI10) dla dostawca danych, który wymaga dodatkowych sieci klient oprogramowania instalowanego.Aby uzyskać więcej informacji, zobacz Wymagania systemowe dla programu SQL Server 2008 R2 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=SQLNCLI10;data source=SqlServerName;initial catalog=AdventureWorks2008R2;Integrated Security=SSPI ;"
oTestCommand.ActiveConnection = oTestConnection
oTestCommand.Properties("ClientSideXML") = True
oTestCommand.CommandText = "SELECT TOP 10 FirstName, LastName FROM Person.Person 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