+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] محتاج تعديل على الكود (/showthread.php?tid=29572)
محتاج تعديل على الكود - dubai.eig - 07-05-19
السلام عليكم ورحمة الله
وكل عام والجميع بالف خير
عندي كود تعبت في حاولت اضبطه بس ما ضبط معاي
انا عندي
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بس ما ضبط معاي
ما اعرف ينفع كذا او لا
يا ليت تفيدوني بارك الله فيكم
ورمضان كريم
شكرا لكم
RE: محتاج تعديل على الكود - ابراهيم ايبو - 07-05-19
السلام عليكم ورحمة الله وبركاته اخي Dubai.eig
تفضل هذا مثال ولكن قاعدة البيانات من نوع اكسس
ارجو ان اكون وفقت في تلبية مافهمته من طلبك
RE: محتاج تعديل على الكود - dubai.eig - 07-05-19
(07-05-19, 06:55 AM)ابراهيم ايبو كتب :السلام عليكم ورحمة الله وبركاته اخي Dubai.eigتفضل هذا مثال ولكن قاعدة البيانات من نوع اكسسارجو ان اكون وفقت في تلبية مافهمته من طلبك
احسنت وفي ميزان حسناتك
الحمدالله مع الكود الخاص بك وصلت لي الفكرة وضبط الكود
شكرا لك
