ACCESS(VBA)上的一个小项目 —— 1、连接ACCESS数据库

有人问我能不能做一个程序的时候，我第一反应都说“能”。

　　--这次在ACCESS中，借助TreeView和ListView做了一个数据联动的模型。

 

遇到的第一个问题就是连接ACCESS数据库。

---

 1）从网上找了一段代码

Private Sub connectDB()

    Dim cn As ADODB.Connection
    Dim mydata As String
    
    mydata = ThisWorkbook.Path & "\demo.accdb"
    Set cn = New ADODB.Connection
    cn.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & mydata
     If cn.State = adStateOpen Then
        MsgBox "连接成功"
        cn.Close
    End If
    
    Set cn = Nothing
End Sub

2）运行时提示问题1-1：

          

　　度的一下后，在工具->引用中，选取Microsoft ActiveX Data Objects 6.1，解决问题1-1。

          

3）继续运行，提示问题1-2：

　　     

　　研究得知，ThisWorkbook对象为EXCEL工作薄对象，ACCESS数据库的对象应该是：CurrentDb，将此句改为 mydata = CurrentDb.Name 。

4）继续运行，提示问题1-3：

　　　　

　　研究得知，解决问题1-1时，所引用的插件Microsoft ActiveX Data Objects 6.1是最新版的，应改为"Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & mydata。

5）继续运行，提示问题1-4：

　　　　

　　研究得知，重新启动ACCESS解决此问题，至此，终于连上数据库了。

改后代码如下：

Private Sub connectDB()

    Dim cn As ADODB.Connection
    Dim mydata As String
    
    mydata = CurrentDb.Name
    Set cn = New ADODB.Connection
    cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & mydata
     If conn.State = adStateOpen Then
        MsgBox "连接成功"
        conn.Close
    End If
    
    Set conn = Nothing
End Sub

---