Excel VBA通过ADO连接、操作SQL Server数据库的自定义函数

最新推荐文章于 2023-03-27 15:06:07 发布

sip800yc

最新推荐文章于 2023-03-27 15:06:07 发布

阅读量905

点赞数

分类专栏： Excel VBA SQL 文章标签： vba

本文链接：https://blog.csdn.net/sip800yc/article/details/79824816

版权

本文介绍了如何使用VBA通过ADO（ActiveX Data Objects）建立与SQL Server数据库的连接，并将操作封装为自定义函数。这种方式使得在VBA项目中进行大量数据查询和更新时更加高效和整洁。

摘要由CSDN通过智能技术生成

　　网上大多数有关VBA连接、操作SQL Server数据库的教程，大多是把连接字串、SQL语句、执行过程全写在一个过程中了，当一个VBA项目需要做大量的查询、更新数据时，显然这种方法并不合适，以下代码是把连接、执行过程封装成函数，只要在其他地方用SQL语句作为参数调用查询或者执行的函数就可以了：

Option Explicit

'数据源信息常量
Public Const conn As String = ""
Private IsConnect As Boolean '标记数据库是否连接
Public Const CONNECT_LOOP_MAX = 10 '一次执行connect操作，可以访问数据库的次数
Private Connect_Num As Integer '标记执行Connect()函数后访问数据的次数
Private cnn As Object '连接数据库的 Connection 对象,后期绑定法必须定义为object或者Variant类型
Private rst As Object '用来保存结果集的Recordset对象
Private cmd As Object '执行数据库操作的Command对象

Public Sub Connect() '连接数据库
    IsConnect = False '如果连接标记为假，标明已经断开连接，则直接返回
    If IsConnect = True Then
        Exit Sub
    End If

    Set cnn = CreateObject("Adodb.Connection") '创建Connection对象cnn
    cnn.ConnectionString = GetConn(conn) '获取数据库的连接字串
    'On Error Resume Ne