18-12-18, 07:42 AM
(آخر تعديل لهذه المشاركة : 19-12-18, 10:51 PM {2} بواسطة حريف برمجة.)
السلام عليكم
هذ اكود لجمع حساب اجمالي
يعمل مرة واحدة اذا ضغط اكثرمن مرة يظهر خطاء
واذا لم يعثر على تطابق يظهر خطاء
هذ اكود لجمع حساب اجمالي
يعمل مرة واحدة اذا ضغط اكثرمن مرة يظهر خطاء
واذا لم يعثر على تطابق يظهر خطاء
كود :
Dim cmd2 As New OleDbCommand("select sum(total_price)from tbl_sales where item_namelike @item_name", con)
cmd2.Parameters.Add("@item_name", OleDbType.VarChar).Value = "%" & combo_yaer.Text.Trim & "%"
con.Open()
Dim ssales As Integer = cmd2.ExecuteScalar
txt_sales.Text = ssales
con.Close()