[ابراهيم ايبو]

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

كود :

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

لاحظ اننا قمنا بتحوبل قيمة الحقل الاول من الداتاغرايد الى Int لان حقل الاي دي رقمي
اما بالنسبة للحذف فالامر ابسط وهو اننا نقوم بجملة الحذف بدون شرط وبالتالي سيتم حذف كل صفوف الجدول

كود :

Dim cmd As New OleDbCommand("Delete * From Table", Con)
       Con.Open()
       cmd.ExecuteNonQuery()
       Con.Close()