احتاج كود للحفظ فى قاعده البيانات من الداتا جريد فيو و التكست بوكس فى نفس الوقت

يجب أن توجد زر للحفظ التيكست بوكس أما أداة داتا قريد فيو تحفظ نفسها بنفسها دون تدخل منك

على ما أعتقد ..

الداتا جريد ما بتحفظش نفسها بنفسها غير كده انا بحفظ بيانات جديده مش بعدل بيانات موجوده .... ايه هو الامر اللى يخلينى احفظ كل البيانات اللى فى الداتا جريد مع التكست بوكس فى جدول واحد فى نفس اللحظه

على فرض أننا وضعنا الحقول التالية في DataGridView1

اسم الشركة ، العنوان ، الهاتف ، المحمول

ونريد إدخال هذه البيانات في قاعدة البيانات مع اسم المندوب من textBox1

استخدم هذا الكود

Dim cs As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\Database1.mdb;Persist Security Info=True")
        For i As Integer = 0 To DataGridView1.RowCount - 2
            Dim sql As String = "INSERT INTO Table1 (MyName, CoName, Address, Phone, Mobile) Values (@MyName, @CoName, @Address, @Phone, @Mobile)"
            Dim cm As New OleDbCommand(sql, cs)
            With cm.Parameters
                .AddWithValue("@MyName", TextBox1.Text).DbType = DbType.String
                .AddWithValue("@CoName", DataGridView1.Rows(i).Cells(0).Value).DbType = DbType.String
                .AddWithValue("@Address", DataGridView1.Rows(i).Cells(1).Value).DbType = DbType.String
                .AddWithValue("@Phone", DataGridView1.Rows(i).Cells(2).Value).DbType = DbType.String
                .AddWithValue("@Mobile", DataGridView1.Rows(i).Cells(3).Value).DbType = DbType.String
            End With
            cs.Open()
            cm.ExecuteNonQuery()
            cs.Close()
        Next
        TextBox1.Text = ""
        DataGridView1.Rows.Clear()

مرفق مثال للموضوع

WindowsApplication1.rar