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


الملفات المرفقة
.zip   notr.zip (الحجم : 10.95 ك ب / التحميلات : 36)
إذا ضاقت بك الأحوال يوماً     فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
الرد }}}}
تم الشكر بواسطة:
#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
قل إني نهيت أن أعبد الذين تدعون من دون الله
لما جاءني البينات من ربي وأمرت أن أسلم لرب العالمين
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تعديل مثال حفظ بيانات الحضور والغياب مصمم هاوي 1 56 13-01-18, 02:02 AM
آخر رد: مصمم هاوي
  تعديل على المثال التالي للاتصال بقاعدة بيانات 2016 w123eg 6 122 07-01-18, 08:32 PM
آخر رد: awidan76
  هل من الممكن تعديل بيانات عدد من السجلات في الجدول دفعة واحدة كنونو 8 516 06-01-18, 01:30 PM
آخر رد: w123eg
  السلام عليكم عندي مشكلة عند ربط قاعدة بيانات اكسس بالفيجول بيسك 6 عزف الرياح 2 111 25-12-17, 12:38 AM
آخر رد: عزف الرياح
  طلب كود الاتصال بقاعدة بيانات اكسس على شبكة w123eg 6 135 16-12-17, 01:48 AM
آخر رد: w123eg
  ظهور رسالة خطأ RUN-TIME ERROR '339 cr7 1 50 15-12-17, 08:15 PM
آخر رد: tamer2005
  ظهور رسالة خطأ RUN-TIME ERROR '339 cr7 3 103 07-12-17, 11:52 PM
آخر رد: Ahmed_Mansoor
  من لديه طريقه لتسريع برنامجي المعمول بالفجوال بيسك 6 مع اس كيوال 2008 scsi7000 1 65 06-12-17, 02:53 PM
آخر رد: Amir_alzubidy
  قاعدة بيانات حسن الغزي 3 113 26-11-17, 06:06 PM
آخر رد: الاصيله
Information [vb6.0] هل يوجد طريقة اجعل الاستعلام يعرض جميع البيانات باسرع وقت ممكن ؟؟ Microformt 3 130 26-11-17, 12:02 PM
آخر رد: الاصيله

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


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