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

Question

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

Answer 1

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