access2007 如何在VBA连接自身的数据？

1，需要添加新的引用

2，连接数据库的方式已经不在是：

“provider=microsoft.jet.oledb.4.0data source=。。。。”

新的连接方式为：

“Provider=Microsoft.ACE.OLEDB.12.0Data Source=。。。”

例如：

Dim cn As New ADODB.Connection

Dim strCn As String

Dim strSQL As String

Dim rs As New ADODB.Recordset

Stpath = ThisWorkbook.Path &Application.PathSeparator &"SPSDI.accdb" '设定access文件路径

cn.Provider = "Microsoft.ACE.OLEDB.12.0"

strCn = "Data Source =" &Stpath &"Jet OLEDB:Database Password=" &""

cn.Open (strCn)

strSQL = "SELECT * FROM table"

rs.Open strSQL, cn, adOpenStatic

提示，连接字符串为：

Provider=Microsoft.ACE.OLEDB.12.0Data Source=C:\myFolder\myAccessFile.accdbJet OLEDB:Database Password=MyDbPassword

先放个ADOConnection1 然后双击它或修改ConnectionString属性

ole db提供商要选择microsft office 12.0 ……（挺长省略） 的，然后点下一步，在数据源处填入你的Access文件的路径及名字，测试一下就能连接成了

如果你Delphi的ole db没有提供商的microsft office 12.0 …… 说明你机器没有正常安装Access2007，你只好下个办法找个正常的安装版安装

记住Access2007及以后的版本都用microsft office 12.0 ……这个驱动

---