منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
سؤال سريع عن كود البحث - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : سؤال سريع عن كود البحث (/showthread.php?tid=25288)

الصفحات: 1 2

سؤال سريع عن كود البحث - maram2423 - 07-06-18

كود :
  Dim f As Integer
        f = 0
        con1.Open()
        sh1.CommandText = "select * from stu1 where set_na='" + T1.Text + "'"
        Dim r1 As SqlDataReader
        r1 = sh1.ExecuteReader
        If r1.Read Then
           f = 1
           T2.Text = r1("set_na")
           T1.Text = r1("set_no")
       End If
       con1.Close()
       If f = 0 Then
           MsgBox(" المطلوب غير موجود")

       End If
السلام عليكم ......الكود يعمل بشكل صحيح بكن المشكلة عند الضغط علي زر البحث ويكن الtext فارغ  تظهر لي رسالة المطلوب غير موجود هل هناك حل لهذه المشكلة .......

RE: سؤال سريع عن كود البحث - mrnooo2000 - 08-06-18

و المطلوب أن يظهر اذا كان التكست فارغ ؟

RE: سؤال سريع عن كود البحث - maram2423 - 08-06-18

(08-06-18, 01:25 AM)mrnooo2000 كتب : و المطلوب أن يظهر اذا كان التكست فارغ ؟
لا اريدها ان تظهر في حالة ال text  فارغ اريدها ان تظهر في حالة كان الاسم غير موجود فقط ....

RE: سؤال سريع عن كود البحث - elgokr - 08-06-18

بخصوص المطلوب
قم بتعديل هذا الجزء من الكود
كود :
select * from stu1 where set_na='" + T1.Text + "'

الى 
كود :
select * from stu1 where set_na LIKE '" + T1.Text + "'

وبخصوص فى حاجة Textbox فارغ
قم بوضع IF قبل امر الاستعلام فى حاجة ان Textbox فارغ يعرض رسالة



تحياتى لك
وتمنياتى لك التوفيق


RE: سؤال سريع عن كود البحث - maram2423 - 08-06-18

(08-06-18, 01:48 AM)elgokr كتب :
بخصوص المطلوب
قم بتعديل هذا الجزء من الكود
كود :
select * from stu1 where set_na='" + T1.Text + "'

الى 
كود :
select * from stu1 where set_na LIKE '" + T1.Text + "'

وبخصوص فى حاجة Textbox فارغ
قم بوضع IF قبل امر الاستعلام فى حاجة ان Textbox فارغ يعرض رسالة



تحياتى لك
وتمنياتى لك التوفيق

قمت بعمل جملة if لكن المشكلة هنا عندما يكون الحقل فارغ تظهر لي رسالة انه يجب تعبئة الحقل وايضا ان الاسم غير موجود تظهر الرسالتان معا

RE: سؤال سريع عن كود البحث - elgokr - 08-06-18

اى رسالة بضبط
ضع الرسالة هنا
ومع وضع الكود الذى تستخدمه الان بعد اتمام المطلوب بعد التعديل

حتى يتم توضيح لك ما الجزء المطلوب تعديله
ليعمل معك بالصورة الصحيحة

تحياتى لك


RE: سؤال سريع عن كود البحث - سعود - 08-06-18

PHP كود :
if t1.text.trim <> "" then
الاستعلام ونتيجته هنا
end if 


RE: سؤال سريع عن كود البحث - حريف برمجة - 08-06-18

كود :
if T1.Text = "" then
           MsgBox("فضلاً.. اكتب المراد البحث عنه أولاً")
T1.Focus()
Exit Sub
End If
 Dim f As Integer
        f = 0
        con1.Open()
        sh1.CommandText = "select * from stu1 where set_na='" + T1.Text + "'"
        Dim r1 As SqlDataReader
        r1 = sh1.ExecuteReader
        If r1.Read Then
           f = 1
           T2.Text = r1("set_na")
           T1.Text = r1("set_no")
       End If
       con1.Close()
       If f = 0 Then
           MsgBox(" المطلوب غير موجود")

       End If


RE: سؤال سريع عن كود البحث - maram2423 - 08-06-18

(08-06-18, 01:58 AM)elgokr كتب :
اى رسالة بضبط
ضع الرسالة هنا
ومع وضع الكود الذى تستخدمه الان بعد اتمام المطلوب بعد التعديل

حتى يتم توضيح لك ما الجزء المطلوب تعديله
ليعمل معك بالصورة الصحيحة

تحياتى لك

في حالة كان ال text خالي او فارغ  وقمت بالضغط علي زر البحث رسالة "ادخل اسم الطالب " ورسالة الحقل المطلوب غير موجود " تظهر الرسالتان معا في نفس الوقت وانا اريد الرسالة الاولي هي التي تظهر فقط

RE: سؤال سريع عن كود البحث - elgokr - 08-06-18

(08-06-18, 02:27 AM)maram2423 كتب :
(08-06-18, 01:58 AM)elgokr كتب :
اى رسالة بضبط
ضع الرسالة هنا
ومع وضع الكود الذى تستخدمه الان بعد اتمام المطلوب بعد التعديل

حتى يتم توضيح لك ما الجزء المطلوب تعديله
ليعمل معك بالصورة الصحيحة

تحياتى لك

في حالة كان ال text خالي او فارغ  وقمت بالضغط علي زر البحث رسالة "ادخل اسم الطالب " ورسالة الحقل المطلوب غير موجود " تظهر الرسالتان معا في نفس الوقت وانا اريد الرسالة الاولي هي التي تظهر فقط


سبب عرض الرسالة مرتين هو جعل كود التحقق من قيمة t1.text فارغة 
لا تشمل كل كود الاستعلام وتنفيذ ما بعد الاستعلام


على العموم يمكنك تطبيق كود الاخ حريف برمجة

مع الانتباه لتعديل كود الاستعلام الى LIKE  كما سبق وتوضيحه بالاعلى

او طبق الكود التالى
كود :
       If T1.Text IsNot Nothing Then
           Dim f As Integer
           f = 0
           con1.Open()
           sh1.CommandText = "select * from stu1 where set_na LIKE '" + T1.Text + "'"
           Dim r1 As SqlDataReader
           r1 = sh1.ExecuteReader
           If r1.Read Then
               f = 1
               T2.Text = r1("set_na")
               T1.Text = r1("set_no")
           End If
           con1.Close()
           If f = 0 Then
               MsgBox(" المطلوب غير موجود")
           End If
       Else
           '|- ضع كود الرسالة -|'
       End If
اصبح لديك بدلاً من طريقة اكثر من طريقة

تحياتى لك
وتمنياتى لك التوفيق