07-05-19, 04:45 AM
السلام عليكم ورحمة الله
وكل عام والجميع بالف خير
عندي كود تعبت في حاولت اضبطه بس ما ضبط معاي
انا عندي
TextBox
ينكتب في رقمين + حرفين
مثلا
05NR
الرقم هذا ينزل في القاعده في مكانين
الاول ينزل NUMBER
05
والثاني ينزل TEXT
NR
اريد اكتب استعلامين اثنين
الاول يتاكد من الرقم 05 موجود او لا
اذا موجود
يعطي
TextBox1
لون
والاستعلام الثاني عن الحرفين
NR
اذا موجود
يعطي
TextBox2
لون
الكود الي عندي هذا
بس ما ضبط معاي
ما اعرف ينفع كذا او لا
يا ليت تفيدوني بارك الله فيكم
ورمضان كريم
شكرا لكم
وكل عام والجميع بالف خير
عندي كود تعبت في حاولت اضبطه بس ما ضبط معاي
انا عندي
TextBox
ينكتب في رقمين + حرفين
مثلا
05NR
الرقم هذا ينزل في القاعده في مكانين
الاول ينزل NUMBER
05
والثاني ينزل TEXT
NR
كود :
If TextBox.Text.Length = "4" Then
numberadd1 = TextBox.Text.Substring(0, 2).Trim
numberadd2 = TextBox.Text.Substring(2, 2).Trim
End If
اريد اكتب استعلامين اثنين
الاول يتاكد من الرقم 05 موجود او لا
اذا موجود
يعطي
TextBox1
لون
والاستعلام الثاني عن الحرفين
NR
اذا موجود
يعطي
TextBox2
لون
الكود الي عندي هذا
كود :
Dim cmd2 As New SQLiteCommand("SELECT COUNT(*) FROM DBqsos WHERE NUMBER = @NUMBER and Band = @Band", conn42)
cmd2.Parameters.AddWithValue("NUMBER", Trim(numberadd1))
cmd2.Parameters.AddWithValue("Band", bands.Text)
Dim rowCount As Integer = Convert.ToInt32(cmd2.ExecuteScalar())
If rowCount <> 0 Then
Multi22.BackColor = Color.Empty
Exit Sub
Else
TextBox1.BackColor = Color.Yellow
End If
Else
Dim cmd2 As New SQLiteCommand("SELECT COUNT(*) FROM DBqsos WHERE TEXT = @TEXT and Band = @Band", conn42)
cmd2.Parameters.AddWithValue("TEXT", Trim(numberadd2))
cmd2.Parameters.AddWithValue("Band", bands.Text)
Dim rowCount As Integer = Convert.ToInt32(cmd2.ExecuteScalar())
If rowCount <> 0 Then
Multi22.BackColor = Color.Empty
Exit Sub
Else
TextBox2.BackColor = Color.Yellow
End If
End If
بس ما ضبط معاي
ما اعرف ينفع كذا او لا
يا ليت تفيدوني بارك الله فيكم
ورمضان كريم
شكرا لكم