+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : اريد مساعدة شباب (/showthread.php?tid=37709)
اريد مساعدة شباب - Osama_NY - 05-02-21
السلام عليكم
اريد كود يقوم عند الضغط على زر اضافة يضيف الي قاعدة البيانات اكتر من صف و اذا اردت ان احذف يحذف جميع البيانات من الجدول و هكذا في كل مره
RE: اريد مساعدة شباب - ابراهيم ايبو - 05-02-21
السلام عليكم ورحمة الله وبركاته
اخي الكريم
الكود ببساظة هو اننا نقوم بحلقة دوران على صفوف الداتاغرايد وفي كل لفة نحفظ الصف حسب رقم الاندكس الموافق لرقم اللفة
فمثلا لو لدينا في الداتا غرايد حقلين فقط واجد ايدي والاخر الاسم
كود :
Dim cmd As New OleDbCommand()
For i As Integer = 0 To dgv.Rows.Count - 1
cmd = New OleDbCommand("insert into Table (Cv_ID,Cv_Name)Values(" & CInt(dgv.Rows(i).Cells(0).value) & ",'" & dgv.Rows(i).Cells(1).value & "')", Con)
Con.Open()
cmd.ExecuteNonQuery()
Con.Close()
Nextاما بالنسبة للحذف فالامر ابسط وهو اننا نقوم بجملة الحذف بدون شرط وبالتالي سيتم حذف كل صفوف الجدول
كود :
Dim cmd As New OleDbCommand("Delete * From Table", Con)
Con.Open()
cmd.ExecuteNonQuery()
Con.Close()