[mesm]

ارجو المساعدة الكود لا يعمل
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 & "' 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

[iamsad]

السلام عليكم
في الحقيقة أنا لم استخدم هذه الطريقة في التعامل مع قواعد البيانات داخل vb.net اطلاقا وانما اتعامل مع قاعدة البيانات عن طريق العملاق bindingsource فهو اسهل كثيييييرا في التعامل

فمثلا كل الكود اللي تعبت انت في عمله راح اختصره انا في:

كود :

Me.Validate()
        Me.BindingSource1.EndEdit()
        Me.TableAdapter1.Update(Me.databaseDataSet1)

....فقط.