نشان داده 0 در صورت نداشتن عدد

[nedaei]

باسلام خدمت دوستان من با دستور سلکت جمع یک عدد رو برمیکردونم میخام وقتی اگر بانک عدد نداشته باشه ارور نده و عدد 0 رو نشون بده این کدهام هست لطفا کمک کنید


cnn.Open()
cmd = New OleDbCommand("select barghast_sadat from fishmovahgat where mount=@p1 and year=@p2 ", cnn)
cmd.Parameters.Add("p1", OleDbType.VarChar)
cmd.Parameters("p1").Value = ComboBox4.Text
cmd.Parameters.Add("p2", OleDbType.VarChar)
cmd.Parameters("p2").Value = ComboBox5.Text
Label1.Text = cmd.ExecuteScalar

[the king]

باسلام خدمت دوستان من با دستور سلکت جمع یک عدد رو برمیکردونم میخام وقتی اگر بانک عدد نداشته باشه ارور نده و عدد 0 رو نشون بده این کدهام هست لطفا کمک کنید


cnn.Open()
cmd = New OleDbCommand("select barghast_sadat from fishmovahgat where mount=@p1 and year=@p2 ", cnn)
cmd.Parameters.Add("p1", OleDbType.VarChar)
cmd.Parameters("p1").Value = ComboBox4.Text
cmd.Parameters.Add("p2", OleDbType.VarChar)
cmd.Parameters("p2").Value = ComboBox5.Text
Label1.Text = cmd.ExecuteScalar

بهتره که بر اساس نوع و پیام خطا کاری رو انجام بدهید، نه اینکه کلا با 0 از هر جور خطایی رد بشوید.

cnn.Open()
cmd = New OleDbCommand("select barghast_sadat from fishmovahgat where mount=@p1 and year=@p2 ", cnn)
cmd.Parameters.Add("p1", OleDbType.VarChar)
cmd.Parameters("p1").Value = ComboBox4.Text
cmd.Parameters.Add("p2", OleDbType.VarChar)
cmd.Parameters("p2").Value = ComboBox5.Text
Try
Label1.Text = cmd.ExecuteScalar
Catch
Label1.Text = "0"
End Try

[ROSTAM2]

سلام. چه خطایی داری خطای null باشه می تونه از دستور شرطی If - Is Nothing استفاده کنی. البته از دستور Try ... Catch هم می تونی استفاده کنی
https://www.tutorialspoint.com/vb.net/vb.net_exception_handling.htm (https://www.tutorialspoint.com/vb.net/vb.net_exception_handling.htm)

[ROSTAM2]

بهتره که بر اساس نوع و پیام خطا کاری رو انجام بدهید، نه اینکه کلا با 0 از هر جور خطایی رد بشوید.

cnn.Open()
cmd = New OleDbCommand("select barghast_sadat from fishmovahgat where mount=@p1 and year=@p2 ", cnn)
cmd.Parameters.Add("p1", OleDbType.VarChar)
cmd.Parameters("p1").Value = ComboBox4.Text
cmd.Parameters.Add("p2", OleDbType.VarChar)
cmd.Parameters("p2").Value = ComboBox5.Text
Try
Label1.Text = cmd.ExecuteScalar
Catch
Label1.Text = "0"
End Try


ببخشید دیگه. زمانی که من شروع کردم به نوشتن پیام شما نبود.