Question

有人可以查看一下stSQL字符串并帮我修复我与UPDATE语句关联的语法错误吗？

运行时错误'-2147217900（8004e14）'：UPDATE语句中出现语法错误。

我对SQL有一个基本的了解，似乎不明白我哪里出错了。

如果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

Answer 1

至少有一个问题是由查询中缺少空格引起的。因此，您的查询已启动UPDATE Table1set。

stSQL = "UPDATE Table1 " & _
        "SET Nickname= '" & Nickname & "', RecipientName= '" & RecipientName & "', " & _
            "RecipientRelationship= '" & RecipientRelationship & "', Summary= '" & Summary & "', " & _
            "Noteworthy= '" & Noteworthy & "', PreparedBy= '" & PreparedBy & "'" & _
        "WHERE FileName= '" & FileName & "'"

如果这不能解决问题。然后在变量替换后使用值stSQL编辑您的问题。

编辑：

正如TS指出的那样，另一个问题是,之前where（上面已修复）。

使用VBA中的UPDATE SQL语句更新Access数据库

1 个答案: