requête update (SQL SERVER 2005)
Bonjour à tous et à toutes
voilà je travaille sur un programme d'administration d'un cabinet dentaire j'ai déjà terminé les interfaces pour ajouter et afficher les données depuis la base de données SQL SERVER 2005.
J'ai une petite question à propos de la requête UPDATE dont je ne trouve pas la syntaxe appropriée. Ce que je voudrai réaliser c'est qu'après avoir récupérer les données dans les champs l'utilisateur pourrait entrainer des modifications et les envoyer à la base de données en tant que requête UPDATE.
voilà mon code
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40
|
Private Sub updateBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles updateBtn.Click
Dim modifiedFirstName = Me.updatedfnameTxt.Text
Dim modifiedMidName = Me.updatedmnameTxt.Text
Dim modifiedLastName = Me.updatedlnameTxt.Text
Dim modifiedTelNumber = Me.telTxt.Text
Dim modifiedMobileNumber = Me.mobileTxt.Text
Dim modifiedAge = Me.ageTxt.Text
Dim modifiedAddress = Me.addTxt.Text
Dim modifiedDiagnosis = Me.diagTxt.Text
Dim modifiedTreatment = Me.treatTxt.Text
Dim modifiedprsday = Me.pdd.Text
Dim modifiedprsmonth = Me.pmm.Text
Dim modifiedprsyear = Me.pyy.Text
Dim modifiednxday = Me.ndd.Text
Dim modifiednxmonth = Me.nmm.Text
Dim modifiedTotalCost = Me.totalcostTxt.Text
Dim modifiedPaidAmount = Me.paidTxt.Text
Dim modifiedRemainingAmount = Me.remainTxt.Text
Dim whereUpdating1 = Me.updatedfnameTxt.Text
Dim whereUpdating2 = Me.updatedmnameTxt.Text
Dim whereUpdating3 = Me.updatedlnameTxt.Text
Dim UpdateComm = "update patientinfo set where ='" & modifiedFirstName & "','" & modifiedMidName & "','" & modifiedLastName & "','" & modifiedTelNumber & "','" & modifiedMobileNumber & "', '" & modifiedAge & "','" & modifiedAddress & "','" & modifiedDiagnosis & "','" & modifiedTreatment & "','" & modifiedprsday & "','" & modifiednxday & "','" & modifiednxmonth & "','" & modifiedTotalCost & "', '" & modifiedPaidAmount & "' where upd=whereUpdating1 and upd=whereUpdating2 and upd=whereUpdating3 "
Dim updateQueryCmd As New SqlCommand(UpdateComm, Conn)
Conn.Open()
Try
updateQueryCmd.ExecuteNonQuery()
MsgBox("changed saved")
Catch ex As Exception
MsgBox(ex.Message.ToString())
End Try
End Sub |
merci pour l'aide :king: