求一个通过导入Excel来给原有Access数据表追加数据的VB源码!!!

linzaixuan003 2009-11-26 06:57:28
导入Excel时,在Access数据表中不管是“在原有数据上追加数据”,还是“把原有数据清零后再添加数据”,小弟都很想要啊,前辈们有没有这方面的好东西啊
...全文
261 9 打赏 收藏 转发到动态 举报
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
linzaixuan003 2009-11-26
  • 打赏
  • 举报
回复
[Quote=引用 6 楼 asftrhgjhkjlkttttttt 的回复:]
唉,lz的上一帖已经给过你代码了,就不会变通一下吗
看看下面的代码:
在ExportExcelSheetToAccess事件里改用这句即可
    Call db.Execute("insert into [;database=" & sAccessDBPath & "]." & sAccessTable _
        & " select * from [" & sSheetName & "$]")

[/Quote]
果然可以,大哥你真牛啊
linzaixuan003 2009-11-26
  • 打赏
  • 举报
回复
[Quote=引用 6 楼 asftrhgjhkjlkttttttt 的回复:]
唉,lz的上一帖已经给过你代码了,就不会变通一下吗
看看下面的代码:
在ExportExcelSheetToAccess事件里改用这句即可
    Call db.Execute("insert into [;database=" & sAccessDBPath & "]." & sAccessTable _
        & " select * from [" & sSheetName & "$]")

[/Quote]

哈哈,这位大哥还记得我,关键是不懂变通,小弟初学者,呵呵
孤独剑_LPZ 2009-11-26
  • 打赏
  • 举报
回复
忘了告诉你 conn.Execute "Drop table [Emptable]" 需要注释了
如还有问题在联系
孤独剑_LPZ 2009-11-26
  • 打赏
  • 举报
回复
唉,lz的上一帖已经给过你代码了,就不会变通一下吗
看看下面的代码:
在ExportExcelSheetToAccess事件里改用这句即可
Call db.Execute("insert into [;database=" & sAccessDBPath & "]." & sAccessTable _
& " select * from [" & sSheetName & "$]")
linzaixuan003 2009-11-26
  • 打赏
  • 举报
回复
[Quote=引用 4 楼 liuxiaoyi666 的回复:]
链接上一大堆的源代码呢,你照着抄好了...
[/Quote]
先谢谢您
您有没有现成的VB源文件呢,就是小弟能用VB打开然后自己可以去研究,您给的那些代码太抽象,小弟看得一头雾水,我把那代码放在VB里改了一下,结果是多处错误,很晕
  • 打赏
  • 举报
回复
链接上一大堆的源代码呢,你照着抄好了...
linzaixuan003 2009-11-26
  • 打赏
  • 举报
回复
比如说,程序界面上有个“导入”按钮,后台有个Access数据库,里面有个表叫“a表”

我能不能点击“导入”按钮,然后在硬盘上选择一个Excel文件,就可以把这个Excel文件里的记录全部导入到Access数据库里的“a表”中

导入方式可能有两种:
一种是先将“a表”中的记录清空后,再把Excel中的记录写到“a表”中
另一种是“a表”中的原有记录还在,然后把Excel中的记录追加进“a表”

只要能得到源码,导入方式是哪一种,小弟无所谓呀
  • 打赏
  • 举报
回复
http://topic.csdn.net/t/20050528/10/4041671.html
  • 打赏
  • 举报
回复
详细点,可以吗?

1,066

社区成员

发帖
与我相关
我的任务
社区描述
VB 资源
社区管理员
  • 资源
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧