+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=31392)
ظهور رسالة فى حالة عدم مطابقة البحث - mr_hso - 17-09-19
السلام عليكم
لدي مشروع بلغة الفيجوال بيسك 2015
مع قاعدة بيانات من نوع اكسيس
استخدم فيها كود البحث التالي
كود :
dt.Clear()
da = New OleDbDataAdapter("Select * from LETTERS where let_code=" & Val(TextBox1.Text), con)
da.Fill(dt)اريد مساعدة فى التالي
1- اذا لم يجد ما ابحث عنه يعطيني رسالة (الاسم المراد البحث عنه غير موجود) مثلاً ويقوم (((((((((((( بتفريغ الحقول )))))))))
2- عند ادخال كلمة جديدة للبحث ((( يفرغ البيانات اولاً ))) ثم يضع الجديدة (لاننى حين ابحث عن موظف ما وتظهر بياناته واقوم بالبحث عن اخر يظل نتيجة البحث الاول فى الحقول الفارغة من البحث الثانى)
ولكم جزيل الشكر
سبحان الله وبحمده سبحان الله العظيم
RE: ظهور رسالة فى حالة عدم مطابقة البحث - سميـر - 17-09-19
وعليكم السلام
تستطيع أن تعرف أن هناك نتائج قبل استخراجها من dt وذلك من سطر Fill،
وهذا كود مثل نستخدمه أنا وزملائي في مشروعنا حاليا:
كود :
If da.Fill(dt) = 0 Then
MsgBox("لا توجد نتائج")
' كود إفراغ الحقول
Else
' كود عرض النتائج
End Ifأرجو الافادة وشكرا
RE: ظهور رسالة فى حالة عدم مطابقة البحث - mr_hso - 17-09-19
(17-09-19, 04:42 PM)سميـر كتب : وعليكم السلام
تستطيع أن تعرف أن هناك نتائج قبل استخراجها من dt وذلك من سطر Fill،
وهذا كود مثل نستخدمه أنا وزملائي في مشروعنا حاليا:
كود :
If da.Fill(dt) = 0 Then
MsgBox("لا توجد نتائج")
' كود إفراغ الحقول
Else
' كود عرض النتائج
End If
أرجو الافادة وشكرا
الاستاذ المحترم / سمير
تحياتي لحضرتك وشكرا لذوقك وذادك الله من علمه
الكود يعمل لكن به بعض الاشياء التى لا افهمها
حين اكتب كود موظف غير موجود وابحث عنه قبل ان يعطيني الرسالة "لا توجد نتائج" يجب ان اضغط على زر البحث مرتين حتى تظهر النتيجة
اما بالنسبة لكود افراغ الحقول ممكن حضرتك تقولي هو ايه لانه الا يفرغ حقول التكست بوكس اللى موجودة داخل فورم البحث هذا
شكرا لك ولمجهزدك
وارجوا الا ارهقك باسألتي
جزاك الله خيرا