تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[vb6.0] كيف اجعل برنامجي يظهر رسالة للمستخدم أنه لايوجد بيانات في الاستعلام ؟؟
#1
لاخوه الكرام
السلام عليكم ورحمة وبركاته
كيف اجعل برنامجي يظهر رسالة للمستخدم أنه لايوجد بيانات في الاستعلام ؟؟
نامل من الله المساعدة والله يحفظكم ويرعاكم


الملفات المرفقة
.zip   notr.zip (الحجم : 10.95 ك ب / التحميلات : 22)

الرد }}}}
تم الشكر بواسطة:
#2
.....

كود :
Set rs = db.OpenRecordset("SELECT ........
    If rs.RecordCount = 0 Then
        MsgBox "عفواً... لا توجد معلومات.", vbMsgBoxRight + vbMsgBoxRtlReading
    End If

.....
الرد }}}}
تم الشكر بواسطة: Microformt
#3
(12-07-14, 09:49 PM)vbnet كتب : .....

كود :
Set rs = db.OpenRecordset("SELECT ........
    If rs.RecordCount = 0 Then
        MsgBox "عفواً... لا توجد معلومات.", vbMsgBoxRight + vbMsgBoxRtlReading
    End If

.....

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

الرد }}}}
تم الشكر بواسطة:
#4
Set rs = db.OpenRecordset("SELECT
If rs.RecordCount = 0 Then
MsgBox "نعتذر قاعدة البيانات المطلوبة مفقودة", vbMsgBoxRight + vbMsgBoxRtlReading
End If
قل إني نهيت أن أعبد الذين تدعون من دون الله
لما جاءني البينات من ربي وأمرت أن أسلم لرب العالمين
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  فتح برنامج مبرمج بالفيجوال بيسك6 و قاعدة بيانات MYSQL Ahmed Salem12 1 44 01-12-16, 03:40 PM
آخر رد: sendbad100
  طباعة الاستعلام في activeReport كنونو 2 50 28-11-16, 05:19 AM
آخر رد: كنونو
  [سؤال] برجاء المساعده في تغيير إسم جدول في قاعدة بيانات SQl Server بالفيجول بيسك6 engabuhema 2 56 24-11-16, 01:49 AM
آخر رد: ahmedabdelaliem
Photo [سؤال] رسالة خطأ عند فتح مشروف vb 6 accmohamed63241 2 55 22-11-16, 12:18 PM
آخر رد: accmohamed63241
  [سؤال] كيف اجعل الأرقام في Text بهذا الشكل 123.456.99 ( قياسي ) إظهار الفواصل iisys 22 395 17-11-16, 11:54 PM
آخر رد: iisys
  مشكلة عندتعديل حقل التاريخ بحيث اذا ترك فارغا تظهر رسالة (نوع غير متطابق) allobaed 3 86 10-11-16, 11:58 PM
آخر رد: Ahmed_Mansoor
  مشكلة : قاعدة بيانات البرنامج بعد التنصيب لا تصبح بشكل ملف للقراءة فقط haiderkh 3 91 10-11-16, 12:56 AM
آخر رد: Ahmed_Mansoor
  [سؤال] اظهار بيانات Combo1 في Text iisys 3 164 07-11-16, 06:16 AM
آخر رد: AL_BRNS
Question [vb6.0] كيف انشي ترقيم تلقي عند انقر على امر جديد في برنامجي المرفق ؟؟ Microformt 4 137 05-11-16, 06:20 PM
آخر رد: كنونو
  احتاج كود لعمل نسخة من قاعدة بيانات اكسس اثناء الاتصال بها sendbad100 3 118 01-11-16, 08:57 AM
آخر رد: sendbad100

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


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