منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - مساعده لو سمحتوا الكميات كلها بتدخل متشابهه

كود :

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

كود :

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نبيل كونكت

23656