Office中国论坛/Access中国论坛

标题: XML导入ACCESS导入错误弹窗 [打印本页]

作者: jiutianxingchen 时间: 2018-9-6 16:42
标题: XML导入ACCESS导入错误弹窗
本帖最后由 jiutianxingchen 于 2018-9-6 17:53 编辑

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

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

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

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

作者: sxgaobo 时间: 2019-5-5 17:21
请教！导入.xml文件时必须有.xsd文件吗?

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)