Question

您好我正在尝试使用MS Access中的ExportXML方法导出使用表单的用户输入的查询。

我收到错误消息：运行时错误＆＃39; 31532＆＃39; Microsoft Access无法导出数据

这是我使用的代码。

Private Sub Command9_Click()
Application.ExportXML ObjectType:=acExportQuery, DataSource:="eparcelorder", _
DataTarget:="C:\XML\" + tmpWorkOrderNo.Caption + ".xml", _
WhereCondition:="dbo_eParcel.workorderno = '" & Forms!frmMainForm![tmpWorkOrderNo].   [Caption] & "'"
End Sub

MS Access 2010中是否存在任何限制，以阻止在用户输入或使用条件时导出数据？

提前感谢您的帮助！我已经在这方面工作了一个星期，这是一个非常简单的功能

Answer 1

我使用附件在大约五分钟内生成一个300万行嵌套xml。

有两个关键项目，

1）一个简单的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＆＃34; Export_ListingData已完成＆＃34; 退出功能 ErrorHandle： MsgBox Err.Number＆amp; ＆＃34;：＆＃34; ＆安培; Err.Description 恢复Exit_Here 结束功能

2）使用从主键到FOREIGN键的连接来链接关系管理器中的表。

如果没有关系，代码将生成顺序xml文件（如果有）主键之间的关系将导致31532错误，数据导出将失败。

亲切的问候

史蒂夫

Microsoft Access（2010）无法使用xml的导出查询导出数据

1 个答案: