Access и MySQL - PullRequest
Новая
       24

Access и MySQL

1 голос
/ 27 июля 2011

Я использую Access 2002 с несвязанными формами и связанными таблицами с бэкэндом 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)

1 Ответ

0 голосов
/ 28 июля 2011

Здесь вам не хватает заключительной кавычки: 

 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() нет.Поскольку ваши таблицы связаны, вам не нужно устанавливать какие-либо новые подключения к базе данных.

...