::::::::用VB对XML这样操作，能行吗？请高手指教，在线等候，急 急 急 ！！！！！

[Jeroki]

在界面上点击一按钮，将ACCESS库中的所有表导出为以该表名称命名的XML文件；
同样，再点击一按钮，就从XML文件向ACCESS库导进相应的数据。

[davidwx]

UP

[forjie]

不知道又没有现成的工具。
但是用代码很容易实现。只要引用xml类库，循环就可以了呀。

[nik_Amis]

the code is from IsMe()....
http://www.wangwen.net/


Public Function XMLFromADO(ByVal pprs As adodb.recordset) As String
'将纪录集转换成XML
'使用纪录集内置功能转换

Dim strT As String
Dim pstrem As ADODB.Stream

On Error GoTo Er
strT = ""
Set pstrem = New ADODB.Stream
pprs.Save pstrem, adPersistXML
strT = pstrem.ReadText
Er:
XMLFromADO = strT
Set pprs = Nothing
Set pstrem = Nothing
End Function
Public Function ADORSFromXML(ByVal sXML As String) As adodb.recordset
Dim pstrem As ADODB.Stream
Dim prs As ADODB.Recordset

Set pstrem = New ADODB.Stream
Set prs = New ADODB.Recordset
pstrem.Open
pstrem.WriteText sXML
pstrem.Position = 0
prs.Open pstrem
Set ADORSFromXML = prs
Set prs = Nothing
Set pstrem = Nothing
End Function