[larbihamri]

كود :

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

cmd = New OleDbCommand("insert into orders_d (id_o, code, iname_o, price_o, qty_o, tot_o) values (@id_o, @code, @iname_o, @price_o, @qty_o, @tot_o)", con)
           Dim code, nam, qty As String
           Dim price, tot As Double
           code = dgv1.Rows(i).Cells(0).Value
           nam = dgv1.Rows(i).Cells(1).Value
           price = dgv1.Rows(i).Cells(2).Value
           qty = dgv1.Rows(i).Cells(3).Value
           tot = dgv1.Rows(i).Cells(4).Value

           cmd.Parameters.Add(New OleDbParameter("@id_o", OleDbType.Integer)).Value = txt_nb.Text
           cmd.Parameters.Add(New OleDbParameter("@code", OleDbType.VarChar)).Value = code
           cmd.Parameters.Add(New OleDbParameter("@iname_o", OleDbType.VarChar)).Value = nam
           cmd.Parameters.Add(New OleDbParameter("@price_o", OleDbType.Currency)).Value = price
           cmd.Parameters.Add(New OleDbParameter("@qty_o", OleDbType.VarChar)).Value = qty
           cmd.Parameters.Add(New OleDbParameter("@tot_o", OleDbType.Currency)).Value = tot
           cmd.ExecuteNonQuery()


       Next