设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 1674|回复: 4

[窗体] XML导入ACCESS导入错误弹窗

[复制链接]

点击这里给我发消息

发表于 2018-9-6 16:42:08 | 显示全部楼层 |阅读模式
本帖最后由 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

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x

点击这里给我发消息

 楼主| 发表于 2018-9-6 17:26:18 | 显示全部楼层
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

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

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
发表于 2018-9-15 00:06:50 | 显示全部楼层
你设置了主键,所以第二次以后导入时将显示为失败(因为不能重复导入)。
批量导入需要使用FSO或者FD库。我这里就不写了,具体可以参考拙作:
http://www.office-cn.net/thread-96551-1-1.html
虽然之前是用Excel写的,但大同小异,稍稍改下即可使用(记得引用Office库)。
这个写法也可以参考:
http://www.accessoft.com/article-show.asp?id=16534
发表于 2018-9-16 09:51:07 | 显示全部楼层
其实导入xml数据,还有另外的办法。只不过因为技术比较古老,在这里就不再推荐。
具体:
       引用 msxml2.dsocontrol30  (它在 msxml3.0里,这是系统自带的。如果 有安装 msxml4.0,也可以引用msxml2.dsocontrol40).
然后就可以 象查询  txt、csv一样查询 xml文件。详见ado2.7帮助文档
发表于 2019-5-5 17:21:26 | 显示全部楼层
请教!导入.xml文件时必须有.xsd文件吗?
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2020-11-27 11:07 , Processed in 0.085563 second(s), 30 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表