急求！如何用一个access程序打开另一个带密码的access程序？

wwjf

要求直接在语句中添加密码如果密码是123应该加在哪里呢            Dim stAppName As String
            stAppName = "msaccess.exe ""E:\test\test0.MDB"""
            Call Shell(stAppName, 1)
或者上面方法不可以，要通过其它方法？

[此贴子已经被作者于2006-9-21 21:27:11编辑过]

wwwwa

            stAppName = "msaccess.exe ""E:\test\test0.MDB"" /pwd 123"

wwjf

出现的是组策略对话框，我想要的是程序文件密码，麻烦您了！

wwwwa

Set db = DBEngine.Workspaces(0).OpenDatabase(strPath, False, False, "MS AccessWD=123")

wwjf

我比较菜，您指导的我不知如何用，麻烦您了！

wwjf

access程序A（无密码）是个检测更新的小程序，程序B（有密码）是主应用程序，我想打开A后检测到新版本就更新后打开B程序（不是链接它的表），而且不想让用户输入B程序的密码（不是工作组密码，就是单纯的access密码），该如何实现？我就想知道打开B程序那段程序编码。麻烦您了！

[此贴子已经被作者于2006-9-21 18:18:13编辑过]

wwjf

谁能帮帮我啊！！！

andymark

    Dim Conn As New ADODB.Connection
    Dim Rs As New ADODB.Recordset
    Dim Password As String
    Dim Server As String
    Server = CurrentProject.Path & "\db19.mdb"     '定义数据库路径

    Password = "123"
    Conn = "rovider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Trim(Server) + ";Jet OLEDBatabase Password=" + Trim(Password) + ""
    Conn.Open
    Rs.Open "select * from Gy_Czygl", Conn, adOpenDynamic, adLockOptimistic
    Do While Not Rs.EOF
        Debug.Print Rs.Fields(0)
        Rs.MoveNext
    Loop
    Set Rs = Nothing
    Set Conn = Nothing

wwjf

我先试试，不太懂

wwjf

B程序密码为 123