[حريف برمجة]

وعليكم السلام ورحمة الله وبركاته

بخصوص حفظ بيانات الداتا قريد في جدول كالتالي :

لاحظ (a1,a2,a3,a4,a5) اسماء الحقول في الجدول (tpl1)

كود :

Dim cmd As New OleDbCommand
       cmd.Connection = Conn

       Conn.Open()

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

           If i > DataGridView1.Rows.Count - 1 Then Exit For

           cmd.CommandText = "insert into tpl1 (a1,a2,a3,a4,a5) values (@a1,@a2,@a3,@a4,@a5)"
           cmd.Parameters.AddWithValue("@a1", DataGridView1.Rows(i).Cells(0).Value)
           cmd.Parameters.AddWithValue("@a2", DataGridView1.Rows(i).Cells(1).Value)
           cmd.Parameters.AddWithValue("@a3", DataGridView1.Rows(i).Cells(2).Value)

           cmd.Parameters.AddWithValue("@a4", TextBox1.Text)
           cmd.Parameters.AddWithValue("@a5", TextBox2.Text)

           cmd.ExecuteNonQuery()

           i += 1
       Next i

       cmd.Dispose()
       Conn.Close()