• 从今天开始学习Python了,昨天晚上我创作了我的第一个python程序.我将记录我的学习之路,将我学习的内容分享在这里,

  • 其实我做网站没有其他特别的意思,就是爱好,也不想写什么东西进去,但就是想留下,不想让网站丢掉,这是什么鬼,从现在开始我就记录一些技术上的东西,方便自己用了来取

  • 由于许多工作原因,没有更多的时间监控网站文件上传这块,网站现在停止论坛功能,给网友和会员带来不便敬请谅解!

  • 网站域名备案成功!

  • 直到现在网站所有数据恢复正常!

  • 网站域名已经更换成现在的,原来的yxlz8.com将停止使用!

  • 网站备案中.....

  • 本站入住阿里云服务器,催动于阿里云oss云储存,打开本站任何一个页面可以感觉到打开的速度!

  • 微信终于可以扫码登陆了点击这里体验

  • 最近有小伙伴说付费音乐无法下载,希望弄一个免费下载付费音乐的工具,经过这段时间的辛苦终于个大家见面了,可以输入歌曲名称或者地址即可在线播放或者下载!直达飞机票

Excel链接Access数据库

EXCEL 海峰博客 2个月前 (08-18) 215次浏览 已收录 0个评论 扫描二维码

最近一段时间由于工作需要,将EXCEL作为一个程序端,记录数据的出和如,利用access数据库和excel打造相当一个程序,下面这段代码就是数据库和excel链接。

在excel的后台引用插件,如下图:

在模块里面输入代码:

    Dim con As Object
    Dim rs As New ADODB.Recordset
    Set con = CreateObject("ADODB.Connection")
   con.Open "provider=microsoft.ace.oledb.12.0;data source=" & ThisWorkbook.Path & "\NPI.accdb"'NPI.accdb就是我们的数据库,这里指的就是当前工作簿的目录下
  sql = "select * from Mywork where 料号=32322661"
  rs.Open sql, con, adOpenKeyset, adLockOptimistic
  '这里将写获取到的代码放置到哪里

请关注下一集 :mrgreen: :mrgreen:


海峰博客 , 版权所有丨如未注明 , 均为原创丨本网站采用BY-NC-SA协议进行授权
转载请注明原文链接:Excel链接Access数据库
喜欢 (6)
[]
分享 (0)

您必须 登录 才能发表评论!