[العيدروس]

تقصد اضع هكذا مثلا .

كود :

Private Sub delete()
   Dim con As New OleDbConnection(constr)
   Dim da As New OleDbDataAdapter("select  ID,code,NAMENAME from ATTENDENCE", con)
End Sub

و اكتب كلمة Sub delete() قبل رسالة " تم الحذف بنجاح "
اذا كان هكذا و الله جربت و ما ضبطت اخوي .و الله بجد اعذرني تعبتك معاي اخوي