[编辑] 我相信这是因为该文件约为1.5gb,Access放弃了该幽灵并掉了下来,但是重新打开该文件进行了清理并对其进行了整理。它没有达到行数限制,所以我想答案是经常关闭/打开文件以将其自身清除吗?保持开放状态,以防有更好的答案 [/ edit]
我继承了一些已经运行了几年的代码:)
基本上,它将打开一个访问数据库,循环多个xml文件,并使用importXML方法将数据追加到多个表中。
经过大约一半(有数千个xml文件)后,它只是停止了,该错误非常笼统,并说它无法导入文件并无法查阅它创建的访问数据库错误表。
错误表为空。
如果我打开Access并手动导入遇到问题的文件,或者再次启动该程序,它将正常工作。
是否可以从Access对象中获取有关错误的更多信息,或者是否有人知道是否存在任何已知问题或变通办法,例如内存问题等。
谢谢。
Dim oAccess As New Microsoft.Office.Interop.Access.Application
oAccess.OpenCurrentDatabase(dbfile, True)
Try
For Each xmlfile In MyXmlFiles
oAccess.ImportXML(xmlfile, Microsoft.Office.Interop.Access.AcImportXMLOption.acAppendData)
Dim xmlFileInfo7 As New System.IO.FileInfo(xmlfile)
xmlFileInfo7.Delete()
Next
Catch e As Exception
MsgBox("Error at, " & xmlfile & vbCr & e.Message)
End Try