如何将用户名和密码从 Excel 传递到 Access DB？答案

【问题标题】：How to pass Username and Password to Access DB from Excel?如何将用户名和密码从 Excel 传递到 Access DB？
【发布时间】：2020-02-09 06:22:08
【问题描述】：

我根据书籍说明编写了我的第一个 ADO/SQL 数据提取代码。

数据库有用户名和密码，但是这里没有UserName和PassWord输入。

Sub GetAccessData_With_SQL()    
    'step 1 Declare your variables
    Dim MyConnect As String
    Dim MyRS As ADODB.Recordset
    Dim MySQL As String

    'step 2 Declare your connnection string
    MyConnect = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
                "Data Source = C:\Thorsys\TAS.accdb"

    'step 3 Build your SQL statement
    MySQL = "SELECT productID, headID, list FROM dbo_tblSTproduct"

    'step 4 Instantiate and specify your recordset
    Set MyRS = New ADODB.Recordset
    MyRS.Open MySQL, MyConnect, adOpenStatic, adLockReadOnly

    'step 5 Copy the recordset to Excel
    Sheets("ADO and SQL").Select
    ActiveSheet.Range("A2").CopyFromRecordset MyRS

    'step 6 Add column labels
    With ActiveSheet.Range("A1:E1")
        .Value = Array("productID", "headID", "list")
        .EntireColumn.AutoFit
    End With   
End Sub

【问题讨论】：

标签： sql excel vba ms-access oledbconnection

【解决方案1】：

你必须把用户名和密码放在连接字符串中...一个例子：

Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Thorsys\TAS.accdb;User ID=myUsername;Password=myPassword;

【讨论】：