编译错误：预期函数或变量在VBA访问 [英] Compile Error: Expected function or variable in VBA for access

问题描述

我知道这附近一无所知VBA，但我试图修改应用程序连接到MySQL数据库。

下面code在 rstProjets.Open 产生一个编译错误，我似乎无法找到原因了。

 公共mysqlConn作为ADODB.Connection

私人小组cmdUpdate_Click（）
昏暗的rstProjets作为ADODB.Recordset
ConnectMySQL
设置rstProjets = rstProjets.Open（SELECT * FROM资助LIMIT 5，mysqlConn）
随着rstProjets
    如果没有.EOF而不是.BOF然后
        .MoveFirst
        做，而不是.EOF
        MSGBOX资助金：＆放大器; rstProjets！[针]，资助ajoutée
        .MoveNext
        循环
    其他
        MSGBOXAucunedonnéesàmettreà怨妇！，LVMB
    结束如果
    。关闭
结束与
mysqlConn.Close
结束小组

私人小组ConnectMySQL（）
设置mysqlConn =新ADODB.Connection
mysqlConn.OpenDRIVER = {MySQL的ODBC 5.3统一code驱动}; ＆放大器; _
    SERVER = 127.0.0.1; ＆放大器; _
    数据库=数据库; ＆放大器; _
    USER =根; ＆放大器; _
    PASSWORD =; ＆放大器; _
    选项= 0
结束小组
 

解决方案

设置您的 rstProjets 的对象变量为新ADODB.Recordset ，和然后调用它的。开方法。

昏暗rstProjets作为ADODB.Recordset ConnectMySQL 设置rstProjets =新ADODB.Recordset rstProjets.OpenSELECT * FROM资助LIMIT 5，mysqlConn

I know near nothing about VBA, but I'm trying to modify an application to connect to a MySQL Database.

The following code produces a Compile error at rstProjets.Open and I can't seem to find why.

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

解决方案

Set your rstProjets object variable to a New ADODB.Recordset, and then call its .Open method.

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

这篇关于编译错误：预期函数或变量在VBA访问的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！