[مراد بورجي]

كود :

       For i As Integer = 0 To DataGridView1.RowCount - 2
           Dim sql As String = "INSERT INTO CRE(inv,part_no,des,qty,up,tp) Values (@inv, @part_no, @des, @qty, @up,@tp)"
           Dim cm As New OleDbCommand(sql, con)
           With cm.Parameters
               .AddWithValue("@inv", TextBox2.Text).DbType = DbType.String
               .AddWithValue("@part_no", DataGridView1.Rows(i).Cells(0).Value).DbType = DbType.String
               .AddWithValue("@des", DataGridView1.Rows(i).Cells(1).Value).DbType = DbType.String
               .AddWithValue("@qty", DataGridView1.Rows(i).Cells(2).Value).DbType = DbType.Int32
               .AddWithValue("@up", DataGridView1.Rows(i).Cells(3).Value).DbType = DbType.Currency
               .AddWithValue("@tp", DataGridView1.Rows(i).Cells(4).Value).DbType = DbType.Currency
           End With
           con.Open()
           cm.ExecuteNonQuery()
           con.Close()

       Next
       MessageBox.Show("تم حفظ البيانات بنجاح ")
       'TextBox2.Text = ""
       DataGridView1.Rows.Clear()