[dubai.eig]

السلام عليكم ورحمة الله

وكل عام والجميع بالف خير

عندي كود تعبت في حاولت اضبطه بس ما ضبط معاي

انا عندي 
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

بس ما ضبط معاي

ما اعرف ينفع كذا او لا

يا ليت تفيدوني بارك الله فيكم

ورمضان كريم

شكرا لكم