How to convert xml to an access database

[WUV999U]

Hi

I am fairly new to VBA and want to know how I can convert or I mean
parse the XML file and convert to an access database.

Please help. I greatly appreciate your time and help.
I would be glad to have ur answers ASAP.

Thanks a lot

[billmiami2]

Add a reference to Microsoft XML v 3.0 (MSXML3.DLL) to your project.
This will give you access to the XML Document object model (DOM). Load
the XML Document and loop through the nodes in it. Write a record for
each node as appropriate. A sample (unchecked and without error
trapping) is below.

Bill E.
Hollywood, FL

'--------xml document-------------
<?xml version="1.0" encoding="utf-8"?>
<newsgroup name="rec.kites " lastnr="146104" >
<article>
<nr>142980</nr>

<aid>&lt;rN**** *************** ****@news-text.cableinet. net&gt;</aid>
<references></references>
<from>"Bandul u" &lt;ba*****@REM OVETHISdarkdigi tal.org&gt;</from>
<date>4/19/2003 10:45:43 AM</date>
<subject>Re: Line Laundry in UK</subject>
</article>
<article>
<nr>142977</nr>
<aid>&lt;b7**** ********@ID-17525.news.dfnc is.de&gt;</aid>

<references>&lt ;MP************ ************@ne ws.cis.dfn.de&g t;</references>
<from>"David Brown :o\)" &lt;ne**@parkco urt.co.uk&gt;</from>
<date>4/18/2003 11:49:29 PM</date>
<subject>Re: At last, a decent pic!</subject>
</article>
</newsgroup>
'----------------------------------
Sub ReadXMLDocument ()
Dim strPath as String
Dim oXMLDocument As New MSXML2.DOMDocum ent
Dim oDocElement As MSXML2.IXMLDOME lement
Dim oNode As IXMLDOMNode

strPath="Enter the path to the Xml Document"

oXMLDocument.Lo ad strPath
Set oDocElement = oXMLDocument.do cumentElement

'Loop through the top level nodes in the XML document
'Add a record for each one
For Each oNode In oDocElement.chi ldNodes
AddArticle oNode.childNode s(0).Text, oNode.childNode s(1).Text,
oNode.childNode s(2).Text, oNode.childNode s(3).Text,
oNode.childNode s(4).Text, oNode.childNode s(5).Text
Next

Set oNode = Nothing
Set oDocElement = Nothing
Set oXMLDocument = Nothing
End Sub

Function AddArticle(strN r As String, strAID As String, strRef As
String, strFrom As String, strDate As String, strSubject As String)
'Add a record to the articles table tblArticles
Dim strSQL As String

strSQL="INSERT INTO tblArticles (Nr, Aid, References, From, Date,
Subject) "
strSQL=strSQL & "VALUES ('" & strNr & "', '" & strAID & "', '" &
strRef & "', '" & strFrom & "', #" & strDate & "#, '" & strSubject &
"')"
DoCmd.SetWarnin gs False
DoCmd.RunSQL (strSQL)
DoCmd.SetWarnin gs True
End Function