论坛 › ExcelVBA开发 › 利用VBA连接SQLSERVER 数据库

快表帝国客服 发表于 2014-1-26 11:49:19

利用VBA连接SQLSERVER 数据库

Dim conn As Connection
Dim rs As Recordset

Set conn = New Connection
conn.Open "PROVIDER=SQLOLEDB;DATA SOURCE=(local);User ID=sa;Password=数据库密码;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

hessen 发表于 2014-2-12 10:10:08

VBA菜单工具下引用Microsoft ActivaX Data Objects 2.8 Library
如下图：

chenyin0824 发表于 2016-3-21 20:56:49

已经阅读，谢谢！

chenyin0824 发表于 2018-2-7 14:51:14

学习中。。。。。。。。。。。。。。。。。

查看完整版本: 利用VBA连接SQLSERVER 数据库