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

السلام عليكم
لدي مشروع بلغة الفيجوال بيسك 2015
مع قاعدة بيانات من نوع اكسيس

استخدم فيها كود البحث التالي

كود :

dt.Clear()

            da = New OleDbDataAdapter("Select * from LETTERS where let_code=" & Val(TextBox1.Text), con)

            da.Fill(dt)

اريد مساعدة فى التالي

1- اذا لم يجد ما ابحث عنه يعطيني رسالة (الاسم المراد البحث عنه غير موجود) مثلاً ويقوم (((((((((((( بتفريغ الحقول )))))))))

2- عند ادخال كلمة جديدة للبحث ((( يفرغ البيانات اولاً ))) ثم يضع الجديدة (لاننى حين ابحث عن موظف ما وتظهر بياناته واقوم بالبحث عن اخر يظل نتيجة البحث الاول فى الحقول الفارغة من البحث الثانى)

ولكم جزيل الشكر

سبحان الله وبحمده سبحان الله العظيم

وعليكم السلام

تستطيع أن تعرف أن هناك نتائج قبل استخراجها من dt وذلك من سطر Fill،
وهذا كود مثل نستخدمه أنا وزملائي في مشروعنا حاليا:

كود :

If da.Fill(dt) = 0 Then

    MsgBox("لا توجد نتائج")

    ' كود إفراغ الحقول

Else

    ' كود عرض النتائج

End If

أرجو الافادة وشكرا

(17-09-19, 04:42 PM)سميـر كتب : [ -> ]وعليكم السلام

تستطيع أن تعرف أن هناك نتائج قبل استخراجها من dt وذلك من سطر Fill،
وهذا كود مثل نستخدمه أنا وزملائي في مشروعنا حاليا:

كود :

If da.Fill(dt) = 0 Then MsgBox("لا توجد نتائج") ' كود إفراغ الحقول Else ' كود عرض النتائج End If

أرجو الافادة وشكرا

الاستاذ المحترم / سمير
تحياتي لحضرتك وشكرا لذوقك وذادك الله من علمه

الكود يعمل لكن به بعض الاشياء التى لا افهمها

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

شكرا لك ولمجهزدك
وارجوا الا ارهقك باسألتي
جزاك الله خيرا

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

mr_hso

سميـر

mr_hso