[عاشق الرسول]

(16-08-19, 12:36 PM)ابراهيم ايبو كتب : السلام عليكم اخي الكريم
انت تحتاج الى كود حفظ  من الداتا غرايد بادخال عدة سجلات دفعة واحدة
 اذا لم تكن البيانات مخزنة سابقا 
Save

كود :

Dim Cmd As New OleDbCommand()
Private Sub Btn_Save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Save.Click
       'هنا ستقوم بتعريف هذه المتغيرات
       Dim Id As Integer
       Dim Name As String
       Dim Ghiab As Boolean
       Dim Cmd As New OleDbCommand("indert into [اسم الجدول] (Id,Name,Ghiab)Values(@Id,@Name, @Ghiab)", con) ' غير اسماء الحقول والجدول في كل الباراميترات الى ماعندك
       ' تحتاج الى هذه الفور زيادة على الحفظ العادي
       If con.State = ConnectionState.Open Then con.Close()
       con.Open()
       For i As Integer = 0 To DataGridView1.Rows.Count - 1
           Id = DataGridView1.Rows(i).Cells(0).Value
           Name = DataGridView1.Rows(i).Cells(1).Value
           Ghiab = DataGridView1.Rows(i).Cells(2).Value
           Cmd.Parameters.Add(New OleDbParameter("@Id", OleDbType.Integer)).Value = Id
           Cmd.Parameters.Add(New OleDbParameter("@Name", OleDbType.VarWChar)).Value = Name
           Cmd.Parameters.Add(New OleDbParameter("@Ghiab", OleDbType.Boolean)).Value = Ghiab

           Cmd.ExecuteNonQuery()
           Cmd.Parameters.Clear()
       Next
       con.Close()
       MessageBox.Show("تم تعديل البيانات بنجاح", "حفظ", MessageBoxButtons.OK, MessageBoxIcon.Information)

   End Sub

او كود تعديل ان كانت مخزنة
Update

كود :

Private Sub Btn_Update_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Update.Click
       'هنا ستقوم بتعريف هذه المتغيرات
       Dim Id As Integer
       Dim Name As String
       Dim Ghiab As Boolean
       Dim Cmd As New OleDbCommand("Update [اسم الجدول] Set Name=@Name,Ghiab= @Ghiab Where ID =@ID", con) ' غير اسماء الحقول والجدول في كل الباراميترات الى ماعندك
       ' تحتاج الى هذه الفور زيادة على الحفظ العادي
       If con.State = ConnectionState.Open Then con.Close()
       con.Open()
       For i As Integer = 0 To DataGridView1.Rows.Count - 1
           Id = DataGridView1.Rows(i).Cells(0).Value
           Name = DataGridView1.Rows(i).Cells(1).Value
           Ghiab = DataGridView1.Rows(i).Cells(2).Value

           Cmd.Parameters.Add(New OleDbParameter("@Name", OleDbType.VarWChar)).Value = Name
           Cmd.Parameters.Add(New OleDbParameter("@Ghiab", OleDbType.Boolean)).Value = Ghiab
           Cmd.Parameters.Add(New OleDbParameter("@Id", OleDbType.Integer)).Value = Id

           Cmd.ExecuteNonQuery()
           Cmd.Parameters.Clear()
       Next
       con.Close()
       MessageBox.Show("تم تعديل البيانات بنجاح", "حفظ", MessageBoxButtons.OK, MessageBoxIcon.Information)

   End Sub

جزاكم الله خيرا كثيرا خي الحبيب
بس بيخزن داخل حقل الاسم نص System.Data.DataRowView