13-05-19, 09:26 PM
السلام عليككم وررحمة الله
عندي فوررم عباره عن ارقام
Label1
Label2
Label3
وهكذا
اريد اعمل بحث في قاعد البيانات عن الارقام اذا حصل مثلا رررقم 03 يغير لون الرقم الى اللون الاحمر مثلا
جربت عدة طرق بس ما نفع
هذا الكود الي عندي
بس مع الاسف لا يعمل الكود
ما هيه الطريقه الصحيحه لكود بارك الله فيكم
وشكررا
عندي فوررم عباره عن ارقام
Label1
Label2
Label3
وهكذا
اريد اعمل بحث في قاعد البيانات عن الارقام اذا حصل مثلا رررقم 03 يغير لون الرقم الى اللون الاحمر مثلا
جربت عدة طرق بس ما نفع
هذا الكود الي عندي
كود :
Private Function COUNT04() As Integer
If conn.State <> ConnectionState.Open Then conn.Open()
Using cmd4 As New SQLiteCommand("SELECT cqz FROM DBqsos WHERE cqz='04' ", conn)
Dim queryResult = cmd4.ExecuteScalar()
If IsDBNull(queryResult) Then
Else
rrr5 = Convert.ToInt32(cmd4.ExecuteScalar())
Label4.BackColor = Color.Red
Label4.Font = New Font(Label4.Font, FontStyle.Bold)
End If
Return rrr5
End Using
End Function
Private Function COUNT05() As Integer
Using cmd5 As New SQLiteCommand("SELECT COUNT(*) FROM DBqsos WHERE cqz='05'", conn)
If conn.State <> ConnectionState.Open Then conn.Open()
Dim queryResult = cmd5.ExecuteScalar()
If IsDBNull(queryResult) Then
Else
rrr5 = Convert.ToInt32(cmd5.ExecuteScalar())
Label5.BackColor = Color.Red
Label5.Font = New Font(Label5.Font, FontStyle.Bold)
End If
Return rrr5
End Using
End Function
كود :
Private Sub Form_Load(sender As Object, e As EventArgs) Handles MyBase.Load
COUNT01()
COUNT02()
COUNT03()
COUNT04()
COUNT05()
COUNT06()
COUNT07()
COUNT08()
COUNT09()
COUNT10()
COUNT11()
COUNT12()
COUNT13()
COUNT14()
COUNT15()
COUNT16()
COUNT17()
COUNT18()
COUNT19()
COUNT20()
COUNT21()
COUNT22()
COUNT23()
COUNT24()
COUNT25()
COUNT26()
COUNT27()
COUNT28()
COUNT29()
COUNT30()
COUNT31()
COUNT32()
COUNT33()
COUNT34()
COUNT35()
COUNT36()
COUNT37()
COUNT38()
COUNT39()
COUNT40()
End Sub
بس مع الاسف لا يعمل الكود
ما هيه الطريقه الصحيحه لكود بارك الله فيكم
وشكررا