使用Access与VB更新数据库表时出现SQL语句转换错误求助

错误提示 #

Conversion from string "Invalid SQL statement; expected " to type 'Integer' is not valid.

代码中的问题及修复步骤 #

1. SQL语句拼写错误（核心问题） #

你的SQL语句里把UPDATE拼写成了UPATE，这直接导致SQL语法无效，触发了错误。同时还把字段名ConsultantDoctor拼写成了ConsutantDoctor，会导致字段匹配失败。
修复后的SQL语句：

str = "UPDATE Customers set CustomerName=@name,Address=@Address,Phone=@Phone,EyePower=@EP,ConsultantDoctor=@CD where CustomerID=@CID"

2. MsgBox参数顺序错误 #

捕获异常时的MsgBox调用参数顺序颠倒，第二个参数要求是Integer类型的按钮样式常量，你错误地把字符串类型的错误消息放在了这个位置，导致类型转换失败。
修复后的异常处理代码：

Catch ex As Exception
    MsgBox(ex.Message, MsgBoxStyle.Critical, "Error")
End Try

成功提示的MsgBox也存在同样问题，修复为：

MsgBox("Record Updated Successfully", MsgBoxStyle.Information, "Success")

3. 潜在的参数类型不匹配风险 #

如果CustomerID是数值类型（如Integer），直接传入ComboBox1.Text字符串会导致类型转换异常，建议提前转换为对应数值类型：

cmd.Parameters.AddWithValue("@CID", CInt(ComboBox1.Text))

若CustomerID是文本类型则无需转换，但ID字段通常使用数值类型。

4. 资源管理优化 #

建议使用Using语句自动释放数据库连接和命令对象，替代手动关闭连接，避免资源泄漏：

Using con As New OleDbConnection(你的数据库连接字符串)
    con.Open()
    ' SQL操作代码
End Using

修复后的完整代码 #

Private Sub Updatebtn_Click(sender As System.Object, e As System.EventArgs) Handles Updatebtn.Click

    If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or TextBox4.Text = "" Or TextBox5.Text = "" Or ComboBox1.Text = "" Then
        MsgBox("Please Fill All Details", MsgBoxStyle.Exclamation, "Warning")
        Exit Sub
    End If

    Try
        Using con As New OleDbConnection("你的数据库连接字符串")
            con.Open()
            Dim str As String = "UPDATE Customers set CustomerName=@name,Address=@Address,Phone=@Phone,EyePower=@EP,ConsultantDoctor=@CD where CustomerID=@CID"
            Using cmd As New OleDbCommand(str, con)
                cmd.Parameters.AddWithValue("@name", TextBox1.Text)
                cmd.Parameters.AddWithValue("@Address", TextBox2.Text)
                cmd.Parameters.AddWithValue("@Phone", TextBox3.Text)
                cmd.Parameters.AddWithValue("@EP", TextBox4.Text)
                cmd.Parameters.AddWithValue("@CD", TextBox5.Text)
                cmd.Parameters.AddWithValue("@CID", CInt(ComboBox1.Text))
                cmd.ExecuteNonQuery()

                MsgBox("Record Updated Successfully", MsgBoxStyle.Information, "Success")
            End Using
        End Using

    Catch ex As Exception
        MsgBox(ex.Message, MsgBoxStyle.Critical, "Error")
    End Try
End Sub

内容的提问来源于stack exchange，提问作者Tinyiko Baloyi