xuất nhiều bảng truy cập vào một XML duy nhất

Question

Tôi có nhiều bảng Microsoft Access mà tôi muốn xuất thành một tệp XML duy nhất. Làm cách nào để thao tác thứ tự và thứ bậc của các bảng vào cấu trúc XML mà tôi muốn? Về bản chất, tôi muốn có thể đảo ngược quá trình nhập XML, điều này tự động chia nhỏ dữ liệu thành nhiều bảng. Tôi có thể sử dụng VBA, SQL, và bất kỳ chức năng xuất khẩu được xây dựng trong lúc xử lý của tôi.

Answer 1

đây là giải pháp thông qua VBA:
http://msdn.microsoft.com/en-us/library/ff193212.aspx

tạo ra một từ và đặt một nút trên nó. nhấn chuột phải vào nút và chọn "xây dựng sự kiện" và quá khứ đoạn mã sau:

Dim objOtherTbls As AdditionalData 


Set objOtherTbls = Application.CreateAdditionalData 

'Identify the tables or querys to export 
objOtherTbls.Add "internet" 
objOtherTbls.Add "mokaleme" 

'Here is where the export takes place 
Application.ExportXML ObjectType:=acExportTable, _ 
DataSource:="internet", _ 
DataTarget:="C:\myxml.xml", _ 
AdditionalData:=objOtherTbls 

MsgBox "Export operation completed successfully." 

bạn phải gõ tên của bảng của bạn ở đây và giữa trích dẫn:

objOtherTbls.Add "internet" 
    objOtherTbls.Add "mokaleme" 

    DataSource:="internet" 

Answer 2

tôi sử dụng gắn liền với tạo ra 3 triệu dòng xml lồng nhau trong khoảng năm phút.

Có hai hạng mục quan trọng,

1) một mảnh đơn giản của 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) Liên kết các bảng trong quản lý mối quan hệ sử dụng tham gia từ tiểu học đến phím NƯỚC NGOÀI.

Nếu không có mối quan hệ, mã sẽ tạo tệp xml tuần tự, nếu có mối quan hệ giữa các khóa chính, bạn sẽ nhận được lỗi 31532 và xuất dữ liệu sẽ không thành công.