編譯錯誤：預期的函數或變量在VBA中訪問

我幾乎不知道VBA，但我試圖修改應用程序以連接到MySQL數據庫。編譯錯誤：預期的函數或變量在VBA中訪問

以下代碼在rstProjets.Open處產生編譯錯誤，我似乎無法找到原因。

Public mysqlConn As ADODB.Connection 

Private Sub cmdUpdate_Click() 
Dim rstProjets As ADODB.Recordset 
ConnectMySQL 
Set rstProjets = rstProjets.Open("SELECT * FROM subventions LIMIT 5", mysqlConn) 
With rstProjets 
    If Not .EOF And Not .BOF Then 
     .MoveFirst 
     Do While Not .EOF 
     MsgBox "Subventions:" & rstProjets![pin], , "Subvention ajoutée" 
     .MoveNext 
     Loop 
    Else 
     MsgBox "Aucune données à mettre à jour !", , "LVMB" 
    End If 
    .Close 
End With 
mysqlConn.Close 
End Sub 

Private Sub ConnectMySQL() 
Set mysqlConn = New ADODB.Connection 
mysqlConn.Open "DRIVER={MySQL ODBC 5.3 Unicode Driver};" & _ 
    "SERVER=127.0.0.1;" & _ 
    "DATABASE=database;" & _ 
    "USER=root;" & _ 
    "PASSWORD=;" & _ 
    "Option=0" 
End Sub

來源

2015-03-02 nebulousGirl

這將是瞭解_where_，當我點擊一個按鈕_what_編譯錯誤:) – 2015-03-02 18:08:17

有用的，它會觸發這個子和我得到的是這樣的信息：編譯錯誤：預期函數或變量 – nebulousGirl 2015-03-02 18:10:54

運行調試 - >編譯從VB編輯器的主菜單。當觸發編譯錯誤時，它將突出顯示代碼中的某些內容。什麼是當你得到編譯錯誤突出顯示？ – HansUp 2015-03-02 18:15:27

設置你的rstProjets對象變量到New ADODB.Recordset，然後調用它的.Open方法。

Dim rstProjets As ADODB.Recordset 
ConnectMySQL 
Set rstProjets = New ADODB.Recordset 
rstProjets.Open "SELECT * FROM subventions LIMIT 5", mysqlConn

來源

2015-03-02 18:31:05 HansUp

編譯錯誤：預期的函數或變量在VBA中訪問

回答

相關問題