Question

vb连接access2007

vb如何连接access2007，我是个菜鸟，因此需要提供详细的源程序。
如果有读写的例子就更加感谢了

Answer 1

比如连接当前文件下的数据库.accdb，表名为“宏站”; 记得先引用。

代码如下：

Sub AC()
Dim cnn As New Connection
Dim rs As New Recordset
Dim sql As String
cnn.Open "Provider=Microsoft.Ace.OleDB.12.0;dataSource=" & app.Path & "\数据库.accdb"
sql = "select * from [宏站] "
 
rs.Open sql, cnn
‘注意这里，我是放在EXCEL  A1单元格。
[a1].CopyFromRecordset rs
EndSub

追问

我是个菜鸟，可以给一个完整的读写示例么，谢谢，我对access也不怎么了解，现在只是需要用一下

追答

这里就是完整的呀；

直接可以用的。表名，数据库名改成你的就行了。

在VB或VBA中都可以使用。如果是VBA，把& app.Path

改为

thisworkbook.path

 就可以了。

如果是VB，把代码放到你窗体的按键中去，VB要连接下EXCEL。出来的数据会放到EXCEL的A1单元格。