تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] محتاج المساعدة من الاخوان - وكل عام وانتم بخير alsaher1 0 37 , 06:26 AM
آخر رد: alsaher1
  مشروع خطير لشجرة رائعة و محتاج تطوير لحل تعقيد هذا المشروع DR.YASER 4 159 14-05-20, 09:17 PM
آخر رد: ابراهيم ايبو
  اريد عمل Invoke لهذا الكود لوضعه في BackGroundWorker developermedo111 1 76 14-05-20, 12:00 PM
آخر رد: عبدالله الدوسري
Wink [سؤال] طريقة عمل برنامج تعديل علي التاريخ والوقت في الويندوز Ali Edal 2022 4 156 12-05-20, 03:05 AM
آخر رد: Ali Edal 2022
  عايز اعرف السطر اللي بيحصل عنده المشكله في الكود makky 0 34 10-05-20, 08:43 PM
آخر رد: makky
  السلام عليكم محتاج مساعدة .؟؟؟ nazarakrawi 5 134 10-05-20, 09:38 AM
آخر رد: asemshahen5
  سوال محتاج مساعدة بسيطة في كود برمجي العطر الرايق 2 83 10-05-20, 02:20 AM
آخر رد: العطر الرايق
  [كود] ما هو الكود المناسب لصنع برنمج تحويل الصور ل ايقونات محمد ايمن 7 295 08-05-20, 03:12 AM
آخر رد: سعود
  [VB.NET] محتاج مساعده في ال Chart اليوم السابع 4 99 03-05-20, 01:20 AM
آخر رد: اليوم السابع
  اريد كود لطباعة Report viewer تلقائيا مجرد م اقوم بفتح النافذه يتم وضع الكود بال Load mohamedgadain61 31 1,149 02-05-20, 08:47 PM
آخر رد: علي سالم

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


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