منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

الصفحات : 1 2

السلام عليكم.اخواني ارجو منكم مساعدة حول زر حذف صف من داتاجريد1 و الصف يلي احذفو ينحذف كذلك من قاعدة البيانات و لكم كل الشكر.بارك الله فيكم

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

السلام علبكم.ياجماعة مافي حد يتبرع بشوية وقت لزر الحذف يلي جنني و ثوابو على الله٦

(25-02-18, 07:11 PM)العيدروس كتب : [ -> ]السلام علبكم.ياجماعة مافي حد يتبرع بشوية وقت لزر الحذف يلي جنني و ثوابو على الله٦

طيب هتعمل الاتي

1- انا اطلعت علي المثال نظرا لضيق الوقت لم اقم بالتعديل علية
2- قم باستدعاء عمود id لانة مش موجود جملة select وخلية غير ظاهر وخلية رقم اول عمود بالداتا جريد
3- اضف الكود التالي لزر الحذف وعندما تريد حذف اي صف يجب الوقوف علي الصف اولا ثم الحذف لاتنسي ان تضيف عمود id لن يعمل الكود بدونة

الكود

كود :

Dim query As String

        Dim id As Integer = 0

        Dim con As New OleDbConnection(constr)

        Dim indx As Integer = DataGridView1.SelectedRows(0).Index

        id = Convert.ToInt32(indx.ToString())

        query = "Delete From ATTENDENCE  Where ID=@ID"

        Dim cmd = New OleDbCommand(query, con)

        cmd.Parameters.Add("@ID", OleDbType.Integer).Value = id

        con.Open()

        cmd.ExecuteNonQuery()

        con.Close()

        DataGridView1.Refresh()

        MessageBox.Show("تم الحذف بنجاح")

السلام عليكم.يعطيك الف صحة و عافية اخوي محمد اسماعيل.ربنا يرضى عليك و على والديك.وضعت الكود اخوي و تطلعلي انو تم الحذف بنجاح لكن الصف يبقى ما بينمحى من الداتاجريد و القاعدة.الله يرضى عليك تلقي نظرة فين الخطا و ربنا يبارك فيك لاني ما فهمت كون العمود اسمو id موجود فعلا باقاعدة البيانات.تشكراتي

(25-02-18, 08:49 PM)العيدروس كتب : [ -> ]السلام عليكم.يعطيك الف صحة و عافية اخوي محمد اسماعيل.ربنا يرضى عليك و على والديك.وضعت الكود اخوي و تطلعلي انو تم الحذف بنجاح لكن الصف يبقى ما بينمحى من الداتاجريد و القاعدة.الله يرضى عليك تلقي نظرة فين الخطا و ربنا يبارك فيك لاني ما فهمت كون العمود اسمو id موجود فعلا باقاعدة البيانات.تشكراتي

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

البرنامج بعد التعديل بالمرفقات ويمكنك التعديل كما تشاء ولكن طريقة اضافة الاعمدة لها تحفظات عموما التعديل فية المطلوب الخاص بك

شغال تمام ربنا يكرمك و يرزقك من حيث لا تحتسب يا رب.الحذف كلو تمام .بس نقطة اخيرة و اغلق الموضوع.بعد اذنك اخوي هل يمكن اخلي الحذف يظهر مباشر من غير ما اخرج من الفورم1 و ارجع اليه.تشكراتي

(25-02-18, 09:23 PM)العيدروس كتب : [ -> ]شغال تمام ربنا يكرمك و يرزقك من حيث لا تحتسب يا رب.الحذف كلو تمام .بس نقطة اخيرة و اغلق الموضوع.بعد اذنك اخوي هل يمكن اخلي الحذف يظهر مباشر من غير ما اخرج من الفورم1 و ارجع اليه.تشكراتي

اة ممكن قوم بوضع
1- جملة الاتصال وجملة سيليكت قم بوضعها باجراء منفصل وقم بوضع الاجراء قبل الرسالة الخاصة بالحذف
بمعني اخر اعادة تحميل البيانات بالداتا جريد

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

كود :

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

(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()

الصفحات : 1 2