Get xml Data and use for insert in vb 6.0

Dim xDoc As MSXML2.DOMDocument
Set xDoc = New MSXML2.DOMDocument
Dim strData As String

If xDoc.Load("C:\test.xml") Then
' The document loaded successfully.
' Now do something intersting.
strData = xDoc.xml
MsgBox strData

' Now strData can be used anywhere to insert data in Database
' or to manupulate the xml data
Else
' The document failed to load.
End If
Set xDoc = Nothing

Related Posts by Categories