关于带数据库密码和工作组密码的MDB文件打开问题

qdjqx

请教，这段代码是关联工作组启动的，如果MDB文件还设有数据库密码，如何进行打开呢，请指导。

strAPP = """" & SysCmd(acSysCmdAccessDir) & "msaccess.exe"" """ & _
                CurrentProject.Path & "\" & strAppFileName & """ /wrkgrp """ & _
                CurrentProject.Path & "\" & strSecuredFileName & """ /user " & strUserName & " /pwd " & strPassword
                <BR ><BR >

qdjqx

再次请教关于带数据库密码和工作组密码的MDB文件打开问题，请帮忙解决，谢谢。

zhengjialon

MDB文件还设有数据库密码,那打开时密码设为空就应该可以了,相关的答案可以搜索一下旧贴,有很多贴已解决了.

qdjqx

已经搜索，但是没有找到，请版主帮忙举个例子好吗，非常感谢！

fan0217

查看系统关于ADO的连接字符串的相关帮助,里面有示例代码.

fan0217

下面来着系统帮助:

    Dim Cnxn1 As ADODB.Connection
    Dim Cnxn2 As ADODB.Connection
    Dim Cnxn3 As ADODB.Connection
    Dim Cnxn4 As ADODB.Connection
   
     ' Open a connection without using a Data Source Name (DSN)
    Set Cnxn1 = New ADODB.Connection
    Cnxn1.ConnectionString = "rovider='sqloledb';Data Source='MySqlServer';" & _
        "Initial Catalog='Pubs';Integrated Security='SSPI';"
    Cnxn1.Open
    MsgBox "Cnxn1 state: " & GetState(Cnxn1.State)
   
     ' Open a connection using a DSN and ODBC tags
     ' It is assumed that you have create DSN 'Pubs' with a user name as
     ' 'MyUserId' and password as 'MyPassword'.
    Set Cnxn2 = New ADODB.Connection
    Cnxn2.ConnectionString = "Data Source='Pubs';" & _
        "User ID='MyUserId'assword='MyPassword';"
    Cnxn2.ConnectionTimeout = 30
    Cnxn2.Open
    MsgBox "Cnxn2 state: " & GetState(Cnxn2.State)
   
     ' Open a connection using a DSN and OLE DB tags
     ' It is assumed that you have create DSN 'Pubs1' with windows authentication.
    Set Cnxn3 = New ADODB.Connection
    Cnxn3.ConnectionString = "Data Source='Pubs1';"
    Cnxn3.Open
    MsgBox "Cnxn2 state: " & GetState(Cnxn3.State)
   
     ' Open a connection using a DSN and individual
     ' arguments instead of a connection string
     ' It is assumed that you have create DSN 'Pubs' with a user name as
     ' 'MyUserId' and password as 'MyPassword'.
    Set Cnxn4 = New ADODB.Connection
    Cnxn4.Open "ubs", "MyUserId", "MyPassword"
    MsgBox "Cnxn4 state: " & GetState(Cnxn4.State)