[حريف برمجة]

(18-12-18, 07:42 AM)new_programer كتب : السلام عليكم

  
 هذ اكود لجمع  حساب اجمالي

يعمل مرة واحدة اذا ضغط اكثرمن مرة يظهر خطاء

واذا لم يعثر على تطابق يظهر خطاء

كود :

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

جرب هذا الكود :

كود :

Try
           Dim cmd As OleDbCommand = New OleDbCommand(SELECT sum(total_price) as tot FROM tbl_sales where item_namelike @item_name", con)

            cmd.Parameters.Add("@item_name", combo_yaer.Text.Trim)

           con.Open()

           Dim dr As OleDbDataReader = cmd.ExecuteReader

           If dr.Read = True Then
               txt_sales.Text = dr!tot
               dr.Close()
                con.Close()
           End If

       Catch ex As Exception
           txt_sales.Text = "0"
           dr.Close()
            con.Close()
       End Try