22-08-17, 09:03 PM
السلام عليكم
اريد معرفه الكود تبعي هل هو صحيح ام يوجد به تعديل :
متأكد بأن هناك كود ابسط منه لداتاجريد فيو
اريد تعديل الكمية اثناء وضع الغرض في الداتاجريد فيو
واذا قمت بحذفه يتم التعديل الكمية لسابقها
شرح :
لدي قرص الكمية 5
قمت فقط اضافة 1
المجموع يظهر لي 4
قمت بحذفه او ارجاعه يرجع 5
وهكذا لداتا جريد فيو
كود أخر لك يعمل لدي بشكل الصحيح به خطأ
اريد معرفه الكود تبعي هل هو صحيح ام يوجد به تعديل :
متأكد بأن هناك كود ابسط منه لداتاجريد فيو
كود :
Private Sub UpdateIncreaseQuantity()
Using conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database1.accdb;Persist Security Info=False;")
conn.Open()
Dim sql As String =
"UPDATE INTO [Rent]" &
"( Equ_Qantity )" &
"VALUES" &
"( @Equ_Qantity )" &
"where" &
"( Equ_ID )" &
"( @Equ_ID )"
Using cmd As New OleDbCommand(sql, conn)
cmd.Parameters.AddWithValue("@QU", myTextBox.Text)
cmd.Parameters.AddWithValue("@IN", "apple")
cmd.ExecuteNonQuery()
End Using
End Using
End Subواذا قمت بحذفه يتم التعديل الكمية لسابقها
شرح :
لدي قرص الكمية 5
قمت فقط اضافة 1
المجموع يظهر لي 4
قمت بحذفه او ارجاعه يرجع 5
وهكذا لداتا جريد فيو
كود أخر لك يعمل لدي بشكل الصحيح به خطأ
كود :
Private Sub updatestock()
For Each Isold As DataGridViewRow In DataGridView1.Rows
Dim pID As String
Dim Inveupdate As New OleDb.OleDbCommand
pID = Isold.Cells(1).Value.ToString()
Inveupdate.CommandText = "UPDATE Equpment SET Equ_Qantity = Equ_Qantity - 1 WHERE Equ_ID = ?"
Inveupdate.CommandType = CommandType.Text
Inveupdate.Connection = myConnToAccess
Inveupdate.ExecuteNonQuery()
Next
myConnToAccess.Close()
End Sub