It may not be properly installed '可能没安装, '安装MICROSOFT.JET.OLEDB.3.51MICROSOFT.JET.OLEDB.3.51就解决问题了
不太可能,我一直在用jet4.0与access97连接,而且用得很好,是不是你的代码有问题,先看看我的连接代码 Dim ar_Tmp As New ADODB.Recordset Dim ac_Tmp As New ADODB.Connection dim Lac as String Lac = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" _ & App.Path + "\temp.mdb"
If ac_Tmp.State = adStateOpen Then ac_Tmp.Close ac_Tmp.Open Lac With ar_Tmp .ActiveConnection = ac_Tmp '定义数据连接对象 .CursorType = adOpenKeyset '定义游标类型 .LockType = adLockReadOnly '定义打开方式 End With
'安装MICROSOFT.JET.OLEDB.3.51MICROSOFT.JET.OLEDB.3.51就解决问题了
Dim ar_Tmp As New ADODB.Recordset
Dim ac_Tmp As New ADODB.Connection
dim Lac as String
Lac = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" _
& App.Path + "\temp.mdb"
If ac_Tmp.State = adStateOpen Then ac_Tmp.Close
ac_Tmp.Open Lac
With ar_Tmp
.ActiveConnection = ac_Tmp '定义数据连接对象
.CursorType = adOpenKeyset '定义游标类型
.LockType = adLockReadOnly '定义打开方式
End With
搜一下,有下载的
1.将access97的数据库用access打开然后保存成access2000的数据库。ado用jet 4.0版.
2.如果一定要用access97,程序打包好后,在其他机器上安装前,先安装office97