تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] محتاج تعديل على الكود
#1
السلام عليكم ورحمة الله

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

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

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


بس ما ضبط معاي

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

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

ورمضان كريم

شكرا لكم
الرد
تم الشكر بواسطة:
#2
السلام عليكم ورحمة الله وبركاته اخي Dubai.eig
تفضل هذا مثال ولكن قاعدة البيانات من نوع اكسس
ارجو ان اكون وفقت في تلبية مافهمته من طلبك


الملفات المرفقة
.rar   Dubai-1.rar (الحجم : 87.65 ك ب / التحميلات : 12)
الرد
#3
(07-05-19, 06:55 AM)ابراهيم ايبو كتب :
السلام عليكم ورحمة الله وبركاته اخي Dubai.eig
تفضل هذا مثال ولكن قاعدة البيانات من نوع اكسس
ارجو ان اكون وفقت في تلبية مافهمته من طلبك



احسنت وفي ميزان حسناتك

الحمدالله مع الكود الخاص بك وصلت لي الفكرة وضبط الكود 

شكرا لك Rolleyes
الرد
تم الشكر بواسطة: ابراهيم ايبو , elgokr



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم