ACCESS加密后错误

Question

Private Sub Form_Load()
    Dim frmoexestr As String
    frmoexestr = App.Path
    If Right$(frmoexestr, 1) <> "\" Then
        frmoexestr = frmoexestr + "\"
    End If    frmoexestr = frmoexestr + "DB\pms.mdb"
    adouser.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & frmoexestr & ";Persist Security Info=False;database password=passwordkey"
    adouser.RecordSource = "select * from [password] where 用户号 <> " & txt_usernum & ""
    adouser.Refresh
End Sub运行程序时提示找不到可安装的ISAM
错在哪？

Answer 1

Option Explicit'工程->引用->Microsoft ActiveX Data Objects 2.0 Library (后面为版本号)
Dim rs As New ADODB.Recordset'在MSHFLEXGRID表格控件中显示查询到的内容
Private Sub Command1_Click()
    If rs.State = adStateOpen Then rs.Close
    rs.Open "SELECT * FROM USERPASSWORD", cn, adOpenDynamic, adLockOptimistic
    Set MSHFlexGrid1.DataSource = rs
End Sub'向数据库中添加数据
Private Sub Command2_Click()
    If rs.State = adStateOpen Then rs.Close
    rs.Open "SELECT * FROM USERPASSWORD", cn, adOpenDynamic, adLockOptimistic
    rs.AddNew
    rs!UID = txtUid.Text
    rs!PWD = txtPwd.Text
    rs!TRUENAME = txtName.Text
    rs!CREATEDATE = Format(Now, "YYYY/MM/DD")
    rs.Update
    
    Command1.Value = True
End Sub'从数据库中删除数据
Private Sub Command3_Click()
    cn.Execute "DELETE FROM USERPASSWORD WHERE UID = '" & txtUid.Text & "'"
    Command1.Value = True
End SubPrivate Sub Form_Load()
    cn.ConnectionString = "DBQ=" & App.Path & "\TelePhone.mdb;DefaultDir=" & _
        App.Path & ";Driver={Microsoft Access Driver (*.mdb)};" & _
        "DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;" & _
        "MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;" & _
        "Threads=3;UID=ADMIN;UserCommitSync=Yes;PWD=admind1234;"
    cn.Open
    '查询字符串可以上这里查
    'http://www.connectionstrings.com/
End SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
On Error Resume Next
    rs.Close
    Set rs = Nothing
    cn.Close
    Set cn = Nothing
End Sub

Answer 2

连接字符串!!         
    gcnnHairdressing.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                                "Persist Security Info=False;" & _
                                "Data Source=" & strDataBase & ";" & _
                                "Jet OLEDB:Database Password=jl"

Answer 3

adouser.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Mode=Share Deny Read|Share Deny Write;Data Source=" & frmoexestr & ";Persist Security Info=False;database password=5retifaxireker"
换成这样也是一样的错误

Answer 4

试试看：
adouser.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & frmoexestr & ";Persist Security Info=False;Jet OLEDB:Database password=passwordkey"

Answer 5

Jet OLEDB:
呵呵，我晕，谢谢楼上的

Answer 6

照着RUKYO的写的
可以连接及打开新窗体，但是在打开前会提示密码无效，为什么