[محمد اسماعيل]

(25-02-18, 10:09 PM)العيدروس كتب : تقصد اضع هكذا مثلا .

كود :

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() قبل رسالة " تم الحذف بنجاح "
اذا كان هكذا و الله جربت و ما ضبطت اخوي .و الله بجد اعذرني تعبتك معاي اخوي

حط الكود دة قبل رسالة الحذف طريقتك لا استخدمها بالاتصال بقاعدة البيانات هحتاج تعديل المثال كلة

كود :

Application.Restart()