Excel +VBA +ADO+Access (CRUD)数据库操作类

最新推荐文章于 2023-10-21 00:21:18 发布

Yong-Z

最新推荐文章于 2023-10-21 00:21:18 发布

阅读量938

点赞数

分类专栏： VBA 文章标签：数据库程序人生后端 java 编辑器

本文链接：https://blog.csdn.net/a84871478/article/details/104592105

版权

本文介绍如何使用Excel VBA通过ADO（ActiveX Data Objects）库与Access数据库进行交互，实现创建（Create）、读取（Read）、更新（Update）和删除（Delete）数据的完整流程。通过实例代码讲解DBhelper类模块的设计，帮助用户更好地理解和应用VBA进行数据库操作。

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

新建类模块DBhelper

Option Explicit`

Dim cnn As ADODB.Connection
Dim rs As New ADODB.Recordset


Property Get excel_driver()


  If Val(Application.Version) < 12 Then 'Excel版本为2003及2003以下

        excel_driver = "Provider=Microsoft.Jet.Oledb.4.0;Data Source=" & ActiveWorkbook.Path & "\DataBaseSys.accdb; Jet OLEDB:Database Password=zjy;"

   Else
          
        excel_driver = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ActiveWorkbook.Path & "\DataBaseSys.accdb; Jet OLEDB:Database Password=zjy;"
   End If

 End Property

''初始化数据库

Public Function db_con() As Boolean

    On Error GoTo er

    Set cnn = New ADODB.Connection

    cnn.Open excel_driver

    Exit Function

er:

    db_con = False

    MsgBox "数据库连接失败:"