hentning fra xml ?

1874 og 1685 er nøgeler i min tabel

Hi yuksel
XML documents arent usually what Access developers get involved with.
I would suggets that you look at the import wizard, this should be able to import XML documents into a table.
Then you should be able to loop through each of the records in the table and import the other XML documents into another tables

You can also read XML documents if you have a reference to Microsoft XML.
Here is a VERY SIMPLE example.

Function ReadXMLDoc()
Dim doc As MSXML2.DOMDocument
Dim nodes As IXMLDOMNodeList
Dim i As Integer


On Error GoTo Proc_ERR

    Set doc = CreateObject("msxml2.DOMDocument")
    doc.async = False
   
    doc.Load "C:\scanplanTest.xml"
   
    Set nodes = doc.selectNodes("//invoice")
   
    Debug.Print nodes.length 'Number of nodes, with base = 0
   
    For i = 0 To nodes.length - 1
   
        Debug.Print nodes(i).Attributes.getNamedItem("date").Text
        Debug.Print nodes(i).childNodes(0).Text
        Debug.Print nodes(i).childNodes(1).Text
        Debug.Print nodes(i).childNodes(2).Text
        Debug.Print nodes(i).childNodes(3).Text
        Debug.Print nodes(i).childNodes(4).Text
       
    Next i
   
    Exit Function
   
End Function

hi yuksel, can you give some feedaback, its easier to help!

jeg kan ikke finde import wizard i access ?

ved du hvor den er ?

faktisk har tingene ændret sig lidt, nu skal jeg søge efter 2 forskellige main.xml filer samtidiget,og der skal komme en pop-up og jeg skal derfra vælge en af dem, også skal den indlæse 3 felter fra den, og de felter skal tildeles nogle variabler, disse variabler skal munde ud i navne på 3 nye xml filer, og der er så disse 3 ny xml filer som skal gemmes i en tabel eller flere.

file+get external data+import menu!

jamen der, får jeg ikke noget knap eller vb kode hvor brugeren altid kan trykke og importere. den smider det bare ind i en tabel. også stopper den vist der

I think the reason why the XMl is automatically put into one or more tables is because XML files can be so complex that they can in fact contain data to more than one table.

I think your best method is to use something like the XMl example I gae to import it yourself

terry denne melder fejl.


Private Sub Kommandoknap0_Click()
Dim doc As MSXML2.DOMDocument
Dim nodes As IXMLDOMNodeList
Dim i As Integer
Dim a

    Set doc = CreateObject("msxml2.DOMDocument")
    doc.async = False
   
    doc.Load "E:\test\main.xml"
   
    Set nodes = doc.selectNodes("//order")
   
    Debug.Print nodes.length 'Number of nodes, with base = 0
   
    For i = 0 To nodes.length - 1
   

      a = list(i).bilnr(0).Text
      MsgBox a
    Next i
   
    Exit Function
   
End Function



kan du se hvad jeg har gjort galt !

min xml ser sådan ud:
<ordre>
<list>
<bilnr>1<\bilnr>
<\list>
<list>
<bilnr>2<\bilnr>
<\list>
<\order>

what error do you get?

You need a reference to Microsoft XML
(tools+references menu in code view)

den melder at den ikke kender sub og funct... list(i)

a = list(i).bilnr(0).Text

take a CLOSE at your XML document

<ordre>
.
</order>

this is just example it not the real, the real is working fine in internetexplore

I'll put something together and get back to you

ok :)

Function ReadXMLDoc()
Dim doc As MSXML2.DOMDocument
Dim nodes As IXMLDOMNodeList
Dim i As Integer


On Error GoTo Proc_ERR

    Set doc = CreateObject("msxml2.DOMDocument")
    doc.async = False
   
 
    doc.Load "E:\test\main.xml"

   
    Set nodes = doc.selectNodes("//list")
   
    Debug.Print nodes.length 'Number of nodes, with base = 0
   
    For i = 0 To nodes.length - 1

      MsgBox nodes(i).childNodes(0).Text

    Next i
   
     
    Exit Function
   

Proc_ERR:

    MsgBox "Error " & Err.Number & " - " & Err.Description
   
    Resume Next
   
   

End Function

jeg prøver den lige

skal jeg ændre childNodes til noget andet


MsgBox nodes(i).childNodes(0).Text


min xml ser sådan ud ca.:

- <order>
- <person>
- <ide>
  <id>15855</id>
  </ide>
- </person>
- <person>
- <ide>
  <id>1185</id>
  </ide>
- </person>

- </order>

Set nodes = doc.selectNodes("//list")
den skal da også ændres

jeg har prøvet sådan her men det virker bare ikke ?

Set nodes = doc.selectNodes("//order/person/ide")
MsgBox nodes(i).id(0).Text

Set nodes = doc.selectNodes("//person")
MsgBox nodes(i).childNodes(0).Text

Den hopper over denne linje selvom xml filen har ting der inde
MsgBox nodes(i).id(0).Text

den hopper over denne linje
MsgBox nodes(i).childNodes(0).Text

Use MY CODE not your own!

MsgBox nodes(i).childNodes(0).Text

if you cant get it to work can you send your dB and XML file to
eksperten@NOSPAMsanthell.dk
remove NOSPAM

I will look later!

ok

have you sent your dB?

.

jeg har lavet det med et andet metode, men tak for hjælpen

selv tak
can we hear how you have done it?

mvh
Terry