Question

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

Answer 1

1，需要添加新的引用 

 

2，连接数据库的方式已经不在是：
“provider=microsoft.jet.oledb.4.0;data source=。。。。”
新的连接方式为：
“Provider=Microsoft.ACE.OLEDB.12.0;Data 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

Answer 2

不知道你想怎么连接
N=workbooks("excel.xlsx").worksheets("sheet1").cells(x,y)
就代表把excel.xlsx 这个excel文件的 sheet1工作表的 第x行 第Y列赋值给N

Answer 3

dim rst as dao.recordset
set rst=currentdb.openrecordset("表1")