执行 SQL 查询(SQLXMLOLEDB 访问接口)
该示例说明以下特定于 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 问题”,并将其取代为新的反馈系统。 有关详细信息,请参阅:提交和查看相关反馈