VBA從Excel運行Access Query

Question

我正在嘗試運行將運行和導出Access查詢的VBA腳本。 我能夠進入我運行查詢的代碼中的步驟，但是，我需要連接到DB2以在Access中運行此查詢，我不知道如何在我的代碼中實現輸入用戶名和密碼。

Sub RunQuery()
Dim A As Object
Application.DisplayAlerts = False
Set A = CreateObject("Access.Application")
A.Visible = False
A.OpenCurrentDatabase ("J:\user\filename.mdb")
A.DoCmd.OpenQuery "QueryName"
A.DoCmd.ConnectString
Application.DisplayAlerts = True

End Sub

代碼只是停在線上：

A.DoCmd.OpenQuery "QueryName"

如果我使用我的查詢從這里打開我的數據庫，它只是在等待我的用戶名和密碼。 我會嘗試附上提示的圖片。

任何幫助將不勝感激！！

非常感謝你

Answer 1

正如Ryan所說，使用ADO將是一個更好的選擇，見下文

Public Sub RunQuery()
    Dim A As Object
    Dim rs As Object
    Dim strSql As String
    Dim strConnection As String
    Set A = CreateObject("ADODB.Connection")
    strConnection = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=J:\user\filename.mdb"
    strSql = "SELECT * FROM table"
    A.Open strConnection
    Set rs = A.Execute(strSql)
    arr = rs.GetRows

    'now the array arr has the data queried

    rs.Close
    Set rs = Nothing
    A.Close
    Set A = Nothing
End Sub