كود :
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 فارغ تظهر لي رسالة المطلوب غير موجود هل هناك حل لهذه المشكلة .......
و المطلوب أن يظهر اذا كان التكست فارغ ؟
(08-06-18, 01:25 AM)mrnooo2000 كتب : [ -> ]و المطلوب أن يظهر اذا كان التكست فارغ ؟
لا اريدها ان تظهر في حالة ال text فارغ اريدها ان تظهر في حالة كان الاسم غير موجود فقط ....
بخصوص المطلوب
قم بتعديل هذا الجزء من الكود
كود :
select * from stu1 where set_na='" + T1.Text + "'
الى
كود :
select * from stu1 where set_na LIKE '" + T1.Text + "'
وبخصوص فى حاجة Textbox فارغ
قم بوضع IF قبل امر الاستعلام فى حاجة ان Textbox فارغ يعرض رسالة
تحياتى لك
وتمنياتى لك التوفيق
(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 لكن المشكلة هنا عندما يكون الحقل فارغ تظهر لي رسالة انه يجب تعبئة الحقل وايضا ان الاسم غير موجود تظهر الرسالتان معا
اى رسالة بضبط
ضع الرسالة هنا
ومع وضع الكود الذى تستخدمه الان بعد اتمام المطلوب بعد التعديل
حتى يتم توضيح لك ما الجزء المطلوب تعديله
ليعمل معك بالصورة الصحيحة
تحياتى لك
(08-06-18, 01:58 AM)elgokr كتب : [ -> ]اى رسالة بضبط
ضع الرسالة هنا
ومع وضع الكود الذى تستخدمه الان بعد اتمام المطلوب بعد التعديل
حتى يتم توضيح لك ما الجزء المطلوب تعديله
ليعمل معك بالصورة الصحيحة
تحياتى لك
في حالة كان ال text خالي او فارغ وقمت بالضغط علي زر البحث رسالة "ادخل اسم الطالب " ورسالة الحقل المطلوب غير موجود " تظهر الرسالتان معا في نفس الوقت وانا اريد الرسالة الاولي هي التي تظهر فقط
(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
اصبح لديك بدلاً من طريقة اكثر من طريقة
تحياتى لك
وتمنياتى لك التوفيق