Dim cnn1 As ADODB.Connection
Dim rst As ADODB.Recordset
Dim cnnstr As String
Set cnn1 = New ADODB.Connectioncnnstr = " provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;"
cnn1.Open cnnstrSet rst = New ADODB.Recordset
rst.CursorType = adOpenKeyset
rst.LockType = adLockOptimistic
rst.Open "select * from stu", cnn1Set Form1.MSHFlexGrid1.DataSource = rstrst.Close
cnn1.Close是不是你没有用jet 4.0
Dim rst As ADODB.Recordset
Dim cnnstr As String
Set cnn1 = New ADODB.Connectioncnnstr = " provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;"
cnn1.Open cnnstrSet rst = New ADODB.Recordset
rst.CursorType = adOpenKeyset
rst.LockType = adLockOptimistic
rst.Open "select * from stu", cnn1Set Form1.MSHFlexGrid1.DataSource = rstrst.Close
cnn1.Close是不是你没有用jet 4.0
data控件还是不能连接access2000数据库,对吗?如果用ADO连接数据库,不管有没有SP5,只要保证有ADO 2.0 Libaray以上就可
连接access97用jet.oledb.3.51;access2000用jet.oledb.4.0
vb6.0中的ado是几点零,不是2.0以上就不行吗?
数据提供者:provider=Microsoft.Jet.OLEDB.4.0连接ACCESS2000和有没有安装Sp5没有关系。如果无法连接到数据库,请检查你的CONNECTIONSTRING 是否正确。(最简单的方法就是用控件ADODC连接到数据库,测试一下是否可以正确连接。再把连接字符串拷贝到程序中。