exporting multiple access tables to single XML

后端 未结 2 1320
谎友^
谎友^ 2021-01-18 08:17

I have multiple Microsoft Access tables that I want exported into a single XML file. How do I manipulate the order and hierarchy of the tables into the XML structure that I

2条回答
  •  谎友^
    谎友^ (楼主)
    2021-01-18 08:37

    I use the attached to produce a 3 million line nested xml in about five minutes.

    There are two key items,

    1) a simple piece of VB,

    Public Function Export_ListingData()
    
        Dim objOtherTbls As AdditionalData
    
        On Error GoTo ErrorHandle
        Set objOtherTbls = Application.CreateAdditionalData
        objOtherTbls.Add "ro_address"
        objOtherTbls.Add "ro_buildingDetails"
        objOtherTbls.Add "ro_businessDetails"
        objOtherTbls.Add "ro_businessExtras"
        objOtherTbls.Add "ro_businessExtrasAccounts"
        objOtherTbls.Add "ro_businessExtrasAccom"
        objOtherTbls.Add "ro_businessExtrasAccom2"
    
        Application.ExportXML ObjectType:=acExportTable, _
                    DataSource:="ro_business", _
                    DataTarget:="C:\Users\Steve\Documents\Conversions\ListData.xml", _
                    AdditionalData:=objOtherTbls
    Exit_Here:
            MsgBox "Export_ListingData completed"
            Exit Function
    ErrorHandle:
            MsgBox Err.Number & ": " & Err.Description
            Resume Exit_Here
    End Function
    

    2) Linking the tables in relationship manager using joins from primary to FOREIGN keys.

    If there are no relationships the code will produce a sequential xml file, if there are relationships between primary keys you will get a 31532 error and the data export will fail.

提交回复
热议问题