Как передать имя пользователя и пароль для доступа к базе данных из Excel?

Question

Я написал свои первые коды извлечения данных 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

Answer 1

вы должны указать имя пользователя и пароль в строке подключения ... пример:

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