Dim conn As New ADODB.Connection
Dim rs As New ADODB.RecordsetPrivate Sub Form_Load() Dim ConnStr As String
ConnStr = "Provider=Microsoft.Jet.OLEDB.3.51;" & "Persist Security Info=False;" & "Data Source=c:\data.mdb;" & "Database Password=123456;"
conn.Open ConnStr '/***************Error*********/
End Sub
出线实时错误,找不到可插入的ISAM?
:(
Dim rs As New ADODB.RecordsetPrivate Sub Form_Load() Dim ConnStr As String
ConnStr = "Provider=Microsoft.Jet.OLEDB.3.51;" & "Persist Security Info=False;" & "Data Source=c:\data.mdb;" & "Database Password=123456;"
conn.Open ConnStr '/***************Error*********/
End Sub
出线实时错误,找不到可插入的ISAM?
:(
去掉最后的“;”
可以如下修改:DbName="c:\data.mdb"
Password="123456"Cn.ConnectionString ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DbPath & ";Jet OLEDB:Database Password=" & Password & ";Persist Security Info=False"
Cn.Open
Dim objrs As New ADODB.Recordset
objcon.Open "Provider=Microsoft.Jet.OLEDB.3.51;Jet OLEDB:database password=123456;Data Source=c:\data.mdb"
这样试一下