数据环境或adodc中怎么连结有密码的access数据库?

Public Sub main()
    Dim strConn As String
    strConn = "PWD=aaa;driver={Microsoft Access Driver (*.mdb)};dbq=" & IIf(Right(App.Path, 1) = "\", App.Path & "yourtable.mdb", App.Path & "\yourtable.mdb")
    gADOCnMain.Open strConn
    frmLogin.Show
End Sub
在pwd=aaa前可以用uid=yourname设置数据库的用户名

解决方案 »

  1.   

    strConn = "PWD=;driver={Microsoft Access Driver (*.mdb)};dbq=" & IIf(Right(App.Path, 1) = "\", App.Path & "yourtable.mdb", App.Path & "\yourtable.mdb");Jet OLEDB:Database Password=123;
      

  2.   

    程序都能写怎么会不能用adodc，不知道你这连接串最早是哪里看来的。用adodc连接时ACCESS的密码应该在设置的最后页面“所有”里设置。
      

  3.   

    对呀。在属性对话框“所有”中点一下[Jet OLEDB:Database Password，然后在弹出的输入对话框中输入密码即可。