Access和MySQL

Access和MySQL,mysql,ms-access,vba,Mysql,Ms Access,Vba,我将Access 2002与未绑定表单和链接表一起使用到internet上的MySql后端。我正在尝试使用此代码更新表,但它不会更新。谢谢你的帮助。谢谢 Dim PhoneSQL As String DoCmd.SetWarnings False MySql(Connect,"uclock.db.7713143.hostedresource.com,urlock,Admin33334) PhoneSQL = "UPDATE tblClients SET tblClients.MainPhone

我将Access 2002与未绑定表单和链接表一起使用到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)

您缺少此处的结束报价:

 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()
函数。由于您的表是链接的,您不需要进行任何新的数据库连接。

DSTR3在人们提供帮助之前,您需要提供更多详细信息。使用未绑定表单有什么特殊原因吗?链接表格会让你的生活更轻松!我认为“通过互联网”是不使用绑定表单的一个很好的理由。谢谢。那有帮助。然而,我认为还缺少更多。它仍然不会更新。它说函数没有定义?@DSTR3什么是函数
MySQL()
?这不是我所见过的任何连接到数据库中的VBAY使用C++的,所以我只是想我会尝试它!我猜错了!在任何情况下,我都可以使用这些带有SQL语句的未绑定表单,我的表是链接的,我可以直接在表中更新,这样我的连接就很好了。既然我有未绑定的表单,有什么我必须做的吗?正确的过程或语法是什么?我已经找了两天了!如果表已链接,则无需执行任何连接。这里有一些不正确的引用
“WHERE-tblClient.ClientID=Forms!frmEditPhone!TxtClientID;”
我想您需要
“WHERE-tblClient.ClientID=“&Forms!”!frmEditPhone!TxtClientID&“;”
非常感谢您。这就是困惑所在。我更正了陈述。但最重要的是,我认为我必须建立一个连接,因为我的表单没有绑定。但我没有!非常感谢。