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 |
Partager