تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
سؤال سريع عن كود البحث
#1
كود :
  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 فارغ  تظهر لي رسالة المطلوب غير موجود هل هناك حل لهذه المشكلة .......
الرد }}}
تم الشكر بواسطة:
#2
و المطلوب أن يظهر اذا كان التكست فارغ ؟
الرد }}}
تم الشكر بواسطة: maram2423
#3
(08-06-18, 01:25 AM)mrnooo2000 كتب : و المطلوب أن يظهر اذا كان التكست فارغ ؟
لا اريدها ان تظهر في حالة ال text  فارغ اريدها ان تظهر في حالة كان الاسم غير موجود فقط ....
الرد }}}
تم الشكر بواسطة:
#4
بخصوص المطلوب
قم بتعديل هذا الجزء من الكود
كود :
select * from stu1 where set_na='" + T1.Text + "'

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

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



تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
تم الشكر بواسطة: maram2423 , حافظ حافظ
#5
(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 لكن المشكلة هنا عندما يكون الحقل فارغ تظهر لي رسالة انه يجب تعبئة الحقل وايضا ان الاسم غير موجود تظهر الرسالتان معا
الرد }}}
تم الشكر بواسطة:
#6
اى رسالة بضبط
ضع الرسالة هنا
ومع وضع الكود الذى تستخدمه الان بعد اتمام المطلوب بعد التعديل

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

تحياتى لك
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
تم الشكر بواسطة: maram2423
#7
PHP كود :
if t1.text.trim <> "" then
الاستعلام ونتيجته هنا
end 
if 
الرد }}}
#8
كود :
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
الرد }}}
#9
(08-06-18, 01:58 AM)elgokr كتب :
اى رسالة بضبط
ضع الرسالة هنا
ومع وضع الكود الذى تستخدمه الان بعد اتمام المطلوب بعد التعديل

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

تحياتى لك

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


الملفات المرفقة صورة/صور
       
الرد }}}
تم الشكر بواسطة:
#10
(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
اصبح لديك بدلاً من طريقة اكثر من طريقة

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
تم الشكر بواسطة: عبدالله الدوسري



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


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