[نبيل كونكت]

كود :

    ss = "insert into [prosh_older] ([itemid], [qtnitem], [unititem], [totitem], [idpro]) values (@itemid, @qtnitem, @unititem, @totitem, @idpro)"
           md = New OleDb.OleDbCommand(ss, con)
           For u As Integer = 0 To dgvprodac.RowCount - 2

               id_pro = dgvprodac.Rows(u).Cells(0).Value
               qty = dgvprodac.Rows(u).Cells(2).Value
               price = dgvprodac.Rows(u).Cells(3).Value
               amount = dgvprodac.Rows(u).Cells(4).Value

               md.Parameters.Add(New OleDb.OleDbParameter("@itemid", OleDb.OleDbType.Integer)).Value = id_pro
               md.Parameters.Add(New OleDb.OleDbParameter("@qtnitem", OleDb.OleDbType.Integer)).Value = qty
               md.Parameters.Add(New OleDb.OleDbParameter("@unititem", OleDb.OleDbType.Currency)).Value = price
               md.Parameters.Add(New OleDb.OleDbParameter("@totitem", OleDb.OleDbType.Currency)).Value = amount
               md.Parameters.Add(New OleDb.OleDbParameter("@idpro", OleDb.OleDbType.Integer)).Value = id_shirid

               md.ExecuteNonQuery()

[23656]

كود :

If con.State <> ConnectionState.Open Then con.Open()
Using cmd As New OleDb.OleDbCommand("INSERT INTO [prosh_older] ([itemid], [qtnitem], [unititem], [totitem], [idpro]) VALUES (@itemid, @qtnitem, @unititem, @totitem, @idpro)", con)
    For Each r As DataGridViewRow In dgvprodac.Rows
        cmd.Parameters.Clear()
        cmd.Parameters.AddWithValue("@itemid", r.Cells(0).Value)
        cmd.Parameters.AddWithValue("@qtnitem", r.Cells(2).Value)
        cmd.Parameters.AddWithValue("@unititem", r.Cells(3).Value)
        cmd.Parameters.AddWithValue("@totitem", r.Cells(4).Value)
        cmd.Parameters.AddWithValue("@idpro", id_shirid)
        cmd.ExecuteNonQuery()
    Next
End Using
con.Close()