vb.net - 使用 VB.Net 更新 MS Acces 中的数据

Question

有人可以帮我用我的 UPDATE 语法吗，我检查了字段名，我的文本框的名称和单/双引号（我不确定我真的看过，因为我很笨），系统说我有语法错误但我不确定错误在哪里。

我的代码：

Private Sub btnupdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnupdate.Click


    Try
        con.Open()
        sql = "UPDATE Register SET LastName='" & LName.Text & "',Firstname='" & FName.Text & "',Adress='" & Address.Text & "',CellphoneNo=" & Val(CellNo.Text) & ",TelephoneNo=" & Val(TelNo.Text) & ",Email='" & Email.Text & "',PetName='" & PetName.Text & "',Specie='" & Specie.Text & "',Breed='" & Breed.Text & "',Weight=" & Val(Weight.Text) & ",Color='" & Color.Text & "',Gender='" & Gender.Text & "',Age=" & Val(Age.Text) & ",DiagnosisType='" & Diagnosis.Text & "',DateOfDiagnosis=" & Dates.Text & " WHERE ID=" & Val(Me.Text) & ""
        cmd.Connection = con
        cmd.CommandText = sql

        i = cmd.ExecuteNonQuery
        If i > 0 Then
            MsgBox("Record has been UPDATED successfully!")

        Else
            MsgBox("No record has been UPDATED!")
        End If

    Catch ex As Exception
        MsgBox(ex.Message)
    Finally
        con.Close()
        loadrecord()
    End Try
End Sub

我的代码似乎并不安全，但没关系，因为它仅适用于学校项目。

任何帮助将不胜感激谢谢！！！！

标签： vb.net