10-09-17, 07:36 PM
كود التنقيص
من يومين شغال والحين مادري ويش فيه ما يشتغل
اين الخلل واذا ارتم ارسال لكم المثال راح ارسله ليكم
كود :
Using conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database1.accdb;Persist Security Info=False;")
conn.Open()
For Each row As DataGridViewRow In DataGridView1.Rows
If row.Cells(0).Value Is Nothing Then Exit For
Using cmd As New OleDbCommand("UPDATE Equpment SET [Equ_Qantity]=[Equ_Qantity] -1 WHERE Equ_ID=@Equ_ID", conn)
cmd.Parameters.AddWithValue("@Equ_Qantity", row.Cells(2).Value.ToString)
cmd.ExecuteNonQuery()
End Using
Next
conn.Close()
End Using
اين الخلل واذا ارتم ارسال لكم المثال راح ارسله ليكم