XML导入ACCESS导入错误弹窗

jiutianxingchen

问题1，XML文件导入access数据库代码如下，我想如何实现导入失败时弹出“导入失败！”这几个字呢？也就是如何判断是否导入成功呢？请各位高手茫茫指点一二，在下感激不尽！谢谢~（现在错误弹窗是VBA代码错误弹窗）
问题2，，access批量同时导入多个相同格式的xml文件？

Private Sub Command33_Click()
    Application.ImportXML "D:\Data.xml", acAppendData        '把数据添加到原有的表
    MsgBox "完成！"
End Sub

jiutianxingchen

Private Sub Command0_Click()
On Error GoTo Err_Command0_Click
    Application.ImportXML "D:\Data.xml", acAppendData        '把数据添加到原有的表
        MsgBox "完成！"
Exit_Command0_Click:
    Exit Sub
   
Err_Command0_Click:
        MsgBox "导入失败！"
End Sub

修改代码如上，但是弹窗不弹出了，还是会写入“导入错误”一个表中，如何不让他保存导入错误这个表啊？

roych

你设置了主键，所以第二次以后导入时将显示为失败（因为不能重复导入）。
批量导入需要使用FSO或者FD库。我这里就不写了，具体可以参考拙作：
http://www.office-cn.net/thread-96551-1-1.html
虽然之前是用Excel写的，但大同小异，稍稍改下即可使用（记得引用Office库）。
这个写法也可以参考：
http://www.accessoft.com/article-show.asp?id=16534

ganlinlao

其实导入xml数据，还有另外的办法。只不过因为技术比较古老，在这里就不再推荐。
具体：
       引用 msxml2.dsocontrol30  (它在 msxml3.0里，这是系统自带的。如果 有安装 msxml4.0，也可以引用msxml2.dsocontrol40).
然后就可以 象查询  txt、csv一样查询 xml文件。详见ado2.7帮助文档

sxgaobo

请教！导入.xml文件时必须有.xsd文件吗?