تقييم الموضوع :
  • 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 ك ب / التحميلات : 14)
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







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



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

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تعديل على فاتورة مبيعات خالد كامل1 4 68 26-03-24, 10:49 PM
آخر رد: خالد كامل1
  تعديل كود ارسال صورة الى الواتس new_programer 2 114 21-03-24, 10:07 PM
آخر رد: new_programer
  تعديل صب المجموع الكلي والمعدل والتقدير مصمم هاوي 3 130 19-03-24, 01:33 AM
آخر رد: مصمم هاوي
  تعديل طول حقل معين في جميع جداول القاعدة atefkhalf2004 1 97 09-03-24, 03:17 AM
آخر رد: atefkhalf2004
  تعديل بيانات عمود DataGridView دفعة واحدة مصمم هاوي 2 164 05-03-24, 08:27 PM
آخر رد: مصمم هاوي
  محتاج طريقة لتنسيق نص الرسالة المرسلة إلى الواتس اب new_programer 2 163 04-03-24, 07:15 AM
آخر رد: new_programer
  ممكن حل المشكلة فى الكود التالي - من مشاركة استاذنا القدير / عبدالله الدوسري new_programer 4 169 02-03-24, 07:36 PM
آخر رد: new_programer
  ماهو حل هذا الخطأ في الكود melad2002 7 264 25-02-24, 12:25 AM
آخر رد: justforit
  محتاج تشفير فيديو وتشغلية عن طريق البرنامج فقط new_programer 1 112 22-02-24, 12:09 PM
آخر رد: AHMED213
  كيفية انشاء سكريبت لقاعدة بيانات من خلال الكود heem1986 1 193 20-02-24, 12:00 AM
آخر رد: Kamil

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


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