[نبيل كونكت]

كود :

    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()