VBA连接sql server数据库基本操作

原创于 2019-11-10 11:55:04 发布 · 3.7k 阅读

13 ·

CC 4.0 BY-SA版权

文章标签：

#VBA

VBA 专栏收录该内容

2 篇文章

订阅专栏

本文介绍使用VBA连接SQL Server数据库的方法，并演示如何通过定义数据链接对象和记录集对象，实现从特定数据库中读取指定数据。代码示例展示了完整的数据库连接、SQL查询执行及结果获取过程。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

不多说，直接看代码

'连接数据库
'定义数据链接对象 ，保存连接数据库信息
Set cnn = CreateObject("ADODB.Connection")
'定义记录集对象，保存数据表
Set rs = CreateObject("ADODB.Recordset")
'定义数据库链接字符串
‘ Data Source：数据库服务器IP地址
‘ Initial Catalog：数据库名称
‘ User ID：数据库登录用户名
‘ Password：数据库登录密码
strcn = "Provider=sqloledb;Data Source=127.0.0.1;Initial Catalog=AIS20140120174606;User ID=sa;Password=123;Persist Security Info=False;"
cnn.Open strcn
’读取sql server数据
sql_str = "select FItemID from t_ICItem where FNumber='" & FNumber & "'"
rs.Open sql_str, cnn
FItemID = rs(0)
FNumber = rs(1)
‘注意rs.Open和rs.Close要成对出现
rs.Close
cnn.Close
'程序结束或抛出异常时注意置cnn、rs为空
Set cnn = Nothing
Set rs = Nothing