周一至周五 : 08:30 - 17:30 客服专员电话/微信:17301649370 QQ:2902102332
微信咨询

扫码微信咨询

关注公众号

关注微信公众号

电话: 021 5161 9370
返回顶部
利用VBA连接SQLSERVER 数据库
显示全部楼层 倒序浏览 发表日期 2014-01-26 11:49:19 3746次阅读 3次回复
Dim conn As Connection
Dim rs As Recordset

Set conn = New Connection
conn.Open "ROVIDER=SQLOLEDB;DATA SOURCE=(local);User ID=saassword=数据库密码;DataBase=数据库名称"
Set rs = New Recordset

rs.Open "select * from 表名", conn, 1, 1
For i = 1 To 3 '循环测试数据
     '填入对应区域
rs.MoveNext
Next

rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing

联系QQ:1327452797
VBA菜单工具下引用Microsoft ActivaX Data Objects 2.8 Library
如下图:
2014-02-12_100700.png
电话/微信:18049989370 QQ:857188287
已经阅读,谢谢!

精彩评论3

VBA菜单工具下引用Microsoft ActivaX Data Objects 2.8 Library
如下图:
2014-02-12_100700.png
电话/微信:18049989370 QQ:857188287
已经阅读,谢谢!
学习中。。。。。。。。。。。。。。。。。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则  允许回帖邮件提醒楼主

快表软件是国内较早研究表格类软件开发平台的团队之一,迄今已有十多年的行业经验.致力于为企事业单位提供实用可靠的数字化平台。
  • 微信公众号

  • 微信小商店

  • 微信客服

  • Powered by Discuz! X3.4 | Copyright © 2022-2024, XiRong Soft. | 快表软件
  • 沪ICP备13033196号 | 营业执照 |上海西戎软件科技有限公司|沪公网安备31011502002146号|沪ICP备13033196号 |