執行 SQL 查詢 (SQLXMLOLEDB 提供者)
適用於:SQL ServerAzure SQL Database
此範例示範如何使用下列 SQLXMLOLEDB 提供者專屬的屬性:
ClientSideXML
xml root
在此用戶端的 ADO 範例應用程式中,會在用戶端上執行簡單的 SQL 查詢。 由於 ClientSideXML 屬性設定為 True,因此不含 FOR XML 子句的 SELECT 語句會傳送至伺服器。 伺服器會執行查詢,並將資料列集傳回給用戶端。 用戶端接著會將 FOR XML 轉換套用至資料列集,並產生 XML 文件。
xml 根屬性會為產生的 XML 檔提供單一最上層根項目。
注意
在程式碼中,您必須在連接字串中提供 Microsoft SQL Server實例的名稱。 此外,此範例會指定針對資料提供者使用 SQL Server Native Client (SQLNCLI11) ,這需要安裝額外的網路用戶端軟體。 如需詳細資訊,請參閱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 ;"
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
意見反應
https://aka.ms/ContentUserFeedback。
即將登場:在 2024 年,我們將逐步淘汰 GitHub 問題作為內容的意見反應機制,並將它取代為新的意見反應系統。 如需詳細資訊,請參閱:提交並檢視相關的意見反應