[عبدالله الدوسري]

يجب أن تجعل الكود بالكامل داخل الجملة For
حتى يتم إدراج كل السجلات في قاعدة البيانات
بالشكل التالي :


   

كود :

For I As Integer = 0 To DataGridView1.Rows.Count - 1

    Dim Sql As String = "Insert Iinto Table1 (Field1,Field2,Field3,Field4,Field5,Field6,Field7,Field8,Field9,Field10,Field11) Values (@Field1,@Field2,@Field3,@Field4,@Field5,@Field6,@Field7,@Field8,@Field9,@Field10,@Field11)"
    Dim cmd As New OleDbCommand(Sql, Conne)
    cmd.Parameters.Clear()
    '-----------------------------------------------
    cmd.Parameters.AddWithValue("@Field1", Val(Me.TextBox1.Text))
    cmd.Parameters.AddWithValue("@Field2", Me.TextBox2.Text)
    cmd.Parameters.AddWithValue("@Field3", Me.TextBox3.Text)
    cmd.Parameters.AddWithValue("@Field4", Me.TextBox4.Text)
    cmd.Parameters.AddWithValue("@Field5", Val(Me.TextBox5.Text))
    cmd.Parameters.AddWithValue("@Field6", Me.TextBox6.Text)
    '-----------------------------------------------
    cmd.Parameters.Add(New OleDbParameter("@Field7", OleDbType.VarWChar)).Value = Me.DataGridView1.Rows(I).Cells(1).Value
    cmd.Parameters.Add(New OleDbParameter("@Field8", OleDbType.VarWChar)).Value = Me.DataGridView1.Rows(I).Cells(2).Value
    cmd.Parameters.Add(New OleDbParameter("@Field9", OleDbType.VarWChar)).Value = Me.DataGridView1.Rows(I).Cells(3).Value
    cmd.Parameters.Add(New OleDbParameter("@Field10", OleDbType.VarWChar)).Value = Me.DataGridView1.Rows(I).Cells(4).Value
    cmd.Parameters.Add(New OleDbParameter("@Field11", OleDbType.VarWChar)).Value = Me.DataGridView1.Rows(I).Cells(5).Value
    '-----------------------------------------------
    cmd.ExecuteNonQuery()
    
Next

Conne.Close()
MessageBox.Show("تمّت بنجاع العمليّة", "رسالة تأكيد", MessageBoxButtons.OK, MessageBoxIcon.Information)