mysql - Access 和MySQL

Question

我正在使用 Access 2002 和未绑定(bind)的表单，并将表链接到 Internet 上的 MySql 后端。我正在尝试使用此代码更新表格，但它不会更新。任何帮助表示赞赏。谢谢。

Dim PhoneSQL As String
DoCmd.SetWarnings False
MySql(Connect,"uclock.db.7713143.hostedresource.com,urlock,Admin33334)
PhoneSQL = "UPDATE tblClients SET tblClients.MainPhone = `enter code here`Forms!frmEditAddress!TxtPhone " & _
"WHERE tblClient.ClientID = Forms!frmEditPhone!TxtClientID;"
DoCmd.RunSQL (PhoneSQL)
DoCmd.SetWarnings True
mySql(close)

Answer 1

您在这里缺少结束语:

 MySql(Connect,"uclock.db.7713143.hostedresource.com,urlock,Admin33334)
                                             -----------------------^^^^

语法高亮显示错误。希望您在 IDE 或文本编辑器中工作，并为 VBA 正确突出显示语法。

发现的其他问题:

PhoneSQL 中表单值的不正确引用

PhoneSQL = "UPDATE tblClients SET tblClients.MainPhone = `enter code here`Forms!frmEditAddress!TxtPhone " & _
"WHERE tblClient.ClientID = Forms!frmEditPhone!TxtClientID;"

应该是

PhoneSQL = "UPDATE tblClients SET tblClients.MainPhone = `enter code here`Forms!frmEditAddress!TxtPhone " & _
"WHERE tblClient.ClientID = " & Forms!frmEditPhone!TxtClientID & ";"

并且没有MySQL()函数。由于您的表是链接的，因此您不需要建立任何新的数据库连接。