06-05-14, 09:53 PM
لدى مشكلة اخرى معلبش اخى
عندى كود عمل تعديلات على البيانات
ولكن تطلع لى خطأ فى تعديل البيانات
هاهو الكود
[ Private Sub btnsaveupdate1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsaveupdate1.Click
Dim updateok As Boolean = winclass.SQLExciute(" update patient set name= " & txtname.Text & "' ,id= '" & txtid.Text & "',comments='" & txtcomment.Text & "' where id= " & txtrec1.Text) '")
If updateok = True Then
lblerror.Text = (" تمت عملية تعديل البيانات ")
lblerror.BackColor = Color.Green
lblerror.ForeColor = Color.White
btnsaveupdate1.Enabled = True
Else
MsgBox("خطأ فى عملية تعديل البيانات ", MsgBoxStyle.Critical)
End If
End Sub]
عندى كود عمل تعديلات على البيانات
ولكن تطلع لى خطأ فى تعديل البيانات
هاهو الكود
[ Private Sub btnsaveupdate1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsaveupdate1.Click
Dim updateok As Boolean = winclass.SQLExciute(" update patient set name= " & txtname.Text & "' ,id= '" & txtid.Text & "',comments='" & txtcomment.Text & "' where id= " & txtrec1.Text) '")
If updateok = True Then
lblerror.Text = (" تمت عملية تعديل البيانات ")
lblerror.BackColor = Color.Green
lblerror.ForeColor = Color.White
btnsaveupdate1.Enabled = True
Else
MsgBox("خطأ فى عملية تعديل البيانات ", MsgBoxStyle.Critical)
End If
End Sub]
