有人可以查看一下stSQL字符串并幫我修復(fù)我與UPDATE語(yǔ)句關(guān)聯(lián)的語(yǔ)法錯(cuò)誤嗎？

運(yùn)行時(shí)錯(cuò)誤'-2147217900(8004e14)'：UPDATE語(yǔ)句中出現(xiàn)語(yǔ)法錯(cuò)誤。

我對(duì)SQL有一個(gè)基本的了解，似乎不明白我哪里出錯(cuò)了。

如果FileName UserForm值與Access Db中的FileName字段匹配，我想更新表1的字段。

由于

Public Sub UpdateDatabaseEntry()

Dim cn As New ADODB.Connection

Dim rs As New ADODB.Recordset

Dim stDB As String, stSQL As String, stProvider As String

Dim FileName As String

Dim Nickname As String

Dim RecipientName As String

Dim RecipientRelationship As String

Dim Summary As String

Dim Noteworthy As String

Dim PreparedBy As String

FileName = UserForm1.FileNameTextBox.Text

Nickname = UserForm1.NicknameTextBox.Text

RecipientName = UserForm1.RecipientNameTextBox.Text

RecipientRelationship = UserForm1.RecipientRelationshipComboBox.Text

Summary = UserForm1.SummaryTextBox.Text

Noteworthy = UserForm1.NoteworthyCheckBox.Value

PreparedBy = UserForm1.PreparedByTextBox.Text

stDB = "Data Source= E:\MyDb.accdb"

stProvider = "Microsoft.ACE.OLEDB.12.0"

//Opening connection to database

With cn

.ConnectionString = stDB

.Provider = stProvider

.Open

End With

//SQL Statement telling database what to do

stSQL = "UPDATE Table1" & _

"SET Nickname= '" & Nickname & "', RecipientName= '" & RecipientName & "', " & _

"RecipientRelationship= '" & RecipientRelationship & "', Summary= '" & Summary & "', " & _

"Noteworthy= '" & Noteworthy & "', PreparedBy= '" & PreparedBy & "', " & _

"WHERE FileName= '" & FileName & "'"

cn.Execute stSQL

cn.Close

Set rs = Nothing

Set cn = Nothing

End Sub

總結(jié)

以上是生活随笔為你收集整理的vba 更新mysql数据库_使用VBA中的UPDATE SQL语句更新Access数据库的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。