exportar tablas de acceso múltiple a XML único

Question

Tengo varias tablas de Microsoft Access que quiero exportar a un solo archivo XML. ¿Cómo manipulo el orden y la jerarquía de las tablas en la estructura XML que quiero? Básicamente, quiero poder invertir el proceso XML de importación, que divide automáticamente los datos en varias tablas. Puedo usar VBA, SQL y cualquier función de exportación incorporada a mi disposición.

Answer 1

aquí es la solución a través de VBA:
http://msdn.microsoft.com/en-us/library/ff193212.aspx

crear una desde y poner un botón en él. clic derecho en el botón y seleccione "crear evento" y más allá de la siguiente código:

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." 

que tiene que escribir el nombre de las tablas aquí y entre las cotizaciones:

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

    DataSource:="internet" 

Answer 2

utilizo el apego a producir un xml anidado de 3 millones de líneas en aproximadamente cinco minutos.

Hay dos elementos clave,

1) un simple trozo de 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) La vinculación de las tablas en el uso de gerente de relaciones se une de primaria a las claves externas.

Si no hay relaciones, el código producirá un archivo secuencial xml, si hay relaciones entre las claves principales, obtendrá un error 31532 y la exportación de datos fallará.