VB用ADO连接ACCESS 2007数据库,求指点
我用vb连接access数据库,已经添加工程——引用——microsoft activeX data objects 6.0 library
但运行时出现错误:实时错误3706,未找到提供程序,该程序可能未正确安装,哪位大侠能指点一下
代码如下
Private Sub Form_Load()
Dim db As New ADODB.Connection, rs As New ADODB.Recordset 'ADO连接对象和记录集
Dim strSQL As String 'SQL字符串
db.ConnectionString = "provider=microsoft.ace.oledb.12.0;Data source =" & App.Path & "/student.accdb" '数据库连接
db.Open '打开数据库
rs.activeconnection = db
rs.Open "select * from info"
Do While Not rs.EOF '循环输出查询到的结果
Print rs.fields(0); rs.fields(1); rs.fields(2)
rs.MoveNext '记录下移
Loop
rs.Close '关闭记录集
Set rs = Nothing
End Sub