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