31-07-19, 07:11 PM
(آخر تعديل لهذه المشاركة : 31-07-19, 07:14 PM {2} بواسطة خالد كامل1.)
احبتى اسعدكم الله بكل ما هو خير فى الدنيا والاخره
تظهر لى رساله عند حذف الاصناف فى الفاتوره التى تظهر امامكم فى الصوره والتى مفادها
(خطأ في بناء الجملة (عامل التشغيل مفقود) في تعبير استعلام 'procode ='.)
وللعلم يا اخوانى قد تحققت من الكود وتحققت ن حقول الجدول لم اجد فيها خطأ وهذا الكود الذى استعمله
تظهر لى رساله عند حذف الاصناف فى الفاتوره التى تظهر امامكم فى الصوره والتى مفادها
(خطأ في بناء الجملة (عامل التشغيل مفقود) في تعبير استعلام 'procode ='.)
وللعلم يا اخوانى قد تحققت من الكود وتحققت ن حقول الجدول لم اجد فيها خطأ وهذا الكود الذى استعمله
كود :
Sub addqty()
For i As Integer = 0 To DGVPRODUCT.Rows.Count - 1
Dim g As String = Me.DGVPRODUCT.CurrentRow.Cells(2).Value
Dim cmdzqty As New OleDbCommand
With cmdzqty
.Connection = con
.CommandType = CommandType.Text
.CommandText = " Update products set pro_qty = pro_qty + " & g & " where procode =" & DGVPRODUCT.CurrentRow.Cells(0).Value
.Parameters.Add(New OleDb.OleDbParameter("@procode", OleDb.OleDbType.VarChar)).Value = DGVPRODUCT.CurrentRow.Cells(0).Value
End With
If con.State = 1 Then con.Close()
con.Open()
cmdzqty.ExecuteNonQuery()
con.Close()
Next
End Sub