[aljzazy]

(16-05-20, 01:32 AM)عبدالله الدوسري كتب : يجب أن تجعل الكود بالكامل داخل الجملة 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)

الاخ عبدالله الدوسري العزيز
كيف سيتم الامرواللوب هنا يحتوي على مفتاح اساسي
هل ستتم عملية الحفظ ونحن نعلم ان المفتاح الاساسي لا يتكرر
بكل تأكيد سيحدث خطأ

الافضل فصل عملية الحفظ بالتأكيد