XML 与 ADO Recordset 译文

zhuyiwen · 发表于 2013-9-28 11:29:49

如何从 XML 中获取 ADO 记录集(How To Obtain an ADO Recordset from XML)
朱亦文译 (2013-09-28)
原文地址：
http://support.microsoft.com/kb/263247/en-us
http://support.microsoft.com/kb/263247/zh-cn?spid=683&sid=273

概要
如果有一个 XML 字符串或文档，通过使用集成在 Microsoft ADO 2.5 Stream 对象中新的 ADO XML 功能，可以用它来打开一个 ActiveX 数据对象(ADO)的记录集。
本文介绍在 ADO 2.5 记录集中载入以下数据所需的机制：

包含 XML 的字符串。
XML DOM 文档实例。

注：提供的 XML 数据要是 ADO 记录集可以接受的格式。

使用下面的代码，以 XML 字符串为数据打开一个记录集：
(请确保项目中引用了 Microsoft ActiveX Data Access Components 2.5 Library，以便可以使用 ADO)

示例代码：

Public Function RecordsetFromXMLString(sXML As String) As Recordset
Dim oStream As ADODB.Stream
Set oStream = New ADODB.Stream
oStream.Open
oStream.WriteText sXML '将 XML 字符串定入 ADO Stream
oStream.Position = 0 '设置流的开始位置
Dim oRecordset As ADODB.Recordset
Set oRecordset = New ADODB.Recordset
oRecordset.Open oStream '以流打开一个 Recordset
oStream.Close
Set oStream = Nothing
Set RecordsetFromXMLString = oRecordset 'Return the recordset
Set oRecordset = Nothing
End Function

复制代码

请注意，上面的字符串参数 sXML 要是正确的 XML 字符串。

下面的代码，以 DOM 对象为记录集的来源。注：Stream 对象则不是必需的：

示例代码：

Public Function RecordsetFromXMLDocument(XMLDOMDocument As DOMDocument) As Recordset
Dim oRecordset As ADODB.Recordset
Set oRecordset = New ADODB.Recordset
oRecordset.Open XMLDOMDocument '通过 DOM Document 实例作为数据源参数
Set RecordsetFromXMLDocument = oRecordset '返回该 recordset
Set oRecordset = Nothing
End Function

复制代码

按以上任一方法打开记录集后，可以将记录集用作任何其他已断开连接的记录集。
请注意，当前的位置、AbsolutePage 和其他导航属性不会存储在 XML 文档中。因此，新打开的记录集总是定位在第一行。

来自群组: ACC应用开发心得交流

zhuyiwen · 发表于 2013-9-28 11:30:21

如何使用 XML OLE DB 简单提供程序访问分层 XML 数据
(How To Access Hierarchical XML Data with the XML OLE DB Simple Provider)
朱亦文译(2013-09-28)
原谅地址：
http://support.microsoft.com/kb/271772/en-us
http://support.microsoft.com/kb/271772/zh-cn?spid=683&sid=273

概要
OLE DB 简单提供程序的 XML (XML OSP) 可以用于加载一个在 XML 文档中的分层数据到一个只读的 ADO 记录集中，可以使用 ADO Recordset 对象的标准方法来读取或访问这些数据。XML OSP 提供了一种处理 XML 文档中所包含的数据的不同的方法。

本文章分步指导来创建 Visual Basic 6.0 示例演示如何使用 XML OSP 访问 XML 文档中包含的分层数据。
1. 用Microsoft 记事本创建一个空文件。将以下 XML 复制并粘贴到文件中并将其保存为 portfolio.xml:

<portfolio>
<stock>
<symbol>MSFT</symbol>
<price>$66.00</price>
<info>
<companyname>Microsoft Corporation</companyname>
<website><a href="http://www.microsoft.com" target="_blank">http://www.microsoft.com</a></website>
</info>
</stock>
<stock>
<symbol>AAPL</symbol>
<price>$110.00</price>
<info>
<companyname>Apple Computer, Inc.</companyname>
<website><a href="http://www.apple.com" target="_blank">http://www.apple.com</a></website>
</info>
</stock>
<stock>
<symbol>DELL</symbol>
<price>$50.00</price>
<info>
<companyname>Dell Corporation</companyname>
<website><a href="http://www.dell.com" target="_blank">http://www.dell.com</a></website>
</info>
</stock>
<stock>
<symbol>INTC</symbol>
<price>$136.00</price>
<info>
<companyname>Intel Corporation</companyname>
<website><a href="http://www.intel.com" target="_blank">http://www.intel.com</a></website>
</info>
</stock>
</portfolio>

复制代码

2. 在 Visual Basic 中打开一个标准 EXE 项目。默认情况下，将创建 Form1。
3. 在项目添加 Microsoft ActiveX Data Objects 2.6 library 引用。
4. 向 Form1 中添加一个命令按钮 Command1。
5. 复制和粘贴以下代码到窗体模块中，在 adoRS.Open 语句中指定 portfolio.xml 的路径：

Private Sub Command1_Click()
Dim adoRS As ADODB.Recordset
Set adoRS = New ADODB.Recordset
' Set up the Connection
adoRS.ActiveConnection = "Provider=MSDAOSP; Data Source=MSXML2.DSOControl.2.6;"
' Open the XML source
adoRS.Open "<path to portfolio.xml>"
On Error GoTo RecError
printtbl adoRS, 0
GoTo Bye
RecError:
Debug.Print Err.Number & ": " & Err.Description
If adoRS.State = adStateOpen Then
For Each Col In adoRS.Fields
Debug.Print Col.Name & ": " & Col.Status ' Error Status
Next Col
End If
Bye:
If adoRS.State = adStateOpen Then
adoRS.Close
End If
Set adoRS = Nothing
End Sub
' Function to recursively retrieve the data
Sub printtbl(rs, indent)
On Error Resume Next
Dim rsChild As ADODB.Recordset
Dim Col As ADODB.Field
While rs.EOF <> True
For Each Col In rs.Fields
If Col.Name <> "$Text" Then ' $Text to be ignored
If Col.Type <> adChapter Then
' Output the non-chaptered column
Debug.Print Space(indent) & Col.Name & ": " & Col.Value,
Else
Debug.Print
' Retrieve the Child recordset
Set rsChild = Col.Value
rsChild.MoveFirst
If Err Then MsgBox Error
printtbl rsChild, indent + 4
rsChild.Close
Set rsChild = Nothing
End If
End If
Next
Debug.Print
rs.MoveNext
Wend
End Sub

复制代码

6. 保存该项目并运行。单击 Form1 上的命令按钮，运行 Visual Basic ActiveX Data Object (ADO) 代码使用 XML OSP 加载 portfolio.xml 中的数据到 ADO 记录集对象。该代码然后调用 printtbl 子过程，并将已加载的 ADO 记录集作为输入参数传递给该过程。printtbl 子过程中的代码循环遍历记录集，并在调试窗口(立即窗口)中打印其内容。如果在 Visual Basic 集成的开发环境 (IDE) 中调试窗口(立即窗口)不可见，按 CTRL G 键可打开调试窗口(立即窗口)。

todaynew · 发表于 2013-9-28 12:00:42

用Linq to XML会简单很多

zhuyiwen · 发表于 2013-9-28 12:02:36

todaynew 发表于 2013-9-28 12:00
用Linq to XML会简单很多

用.Net，当然好。但前提是使用 VBA。

admin · 发表于 2013-9-28 14:38:59

顶一下，谢谢分享！！

tmtony · 发表于 2013-9-28 23:55:46

学习一下

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

[ADO/DAO] XML 与 ADO Recordset 译文

本帖被以下淘专辑推荐:

群介绍
主题无相 (随机显示版	同地区群块其他地区)