[حريف برمجة]

غريبة اخي ،، عالعموم انا عملت مثال وجربته بنفسي وهو شغال تمام .

استبدل مسميات الادوات باسماء ادواتك مثل التكست بوكس وغيرها ولكن صيغة الكود لا تعدل فيه شي .

كود :

cn.Open()

       Try

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

               Dim cmd As New OleDbCommand("INSERT INTO tpl1 (a1,a2,a3) VALUES (@a1,@a2,@a3)", cn)

               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.ExecuteNonQuery()
               cmd.Dispose()

           Next

       Catch ex As Exception
           MessageBox.Show(ex.Message)
       Finally
           cn.Close()

       End Try