Question

我正在尝试为我的任务提供医疗记录申请。我发现此错误编辑数据患者。

请帮助并抱歉我的语法错误

Dim aksesedit As String = "Update tbpasien set " & _
                "Nama_Pasien='" & txtnamapasien.Text & "', " & _
                "Jenis_Kelamin='" & cmbjk.Text & "'," & _
                "Tempat_Pasien='" & txttempatlahir.Text & "', " & _
                "Tanggal_Lahir='" & tanggallahir.Text & "', " & _
                "Alamat='" & txtalamat.Text & "', " & _
                "Kelurahan_Desa='" & txtkeldesa.Text & "', " & _
                "Kecamatan='" & txtkec.Text & "', " & _
                "Kota_Kabupaten='" & txtkotakab.Text & "', " & _
                "No_Telepon_HP='" & txtnotelp.Text & "', " & _
                "Agama='" & cmbagama.Text & "', " & _
                "Kewarganegaraan='" & cmbwarga.Text & "', " & _
                "Status_Pernikahan='" & cmbstatus.Text & "', " & _
                "Pekerjaan='" & txtpekerjaan.Text & "', " & _
                "where No_RM='" & txtnorm.Text & "'"
    cmd = New OleDbCommand(aksesedit)
    cmd.Connection = conn
    cmd.ExecuteNonQuery()

更新中的

语法错误在这里

cmd.ExecuteNonQuery()

对于＆＃34; Tanggal_Lahir＆＃34;我使用datetimepicker，cmb = combobox，txt = textbox 感谢

Answer 1

WHERE子句之前不应该有逗号：

 "Pekerjaan='" & txtpekerjaan.Text & "' " & _
                "where No_RM='" & txtnorm.Text & "'"

UPDATE语句vb和ms.access中的语法错误作为数据库

1 个答案: