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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تعبئة بيانات الكومبوكس من جدول SQLSERVER مصمم هاوي 1 43 09-12-18, 11:27 PM
آخر رد: مصمم هاوي
  [vb6.0] جلب بيانات من combo وتحديد webbrowser tempman 2 72 05-12-18, 01:04 PM
آخر رد: tempman
  [مثال] مثال متكامل للتعامل مع قاعدة بيانات من نوع mysql على الانترنت ahmedabdelaliem 14 3,416 26-11-18, 01:26 AM
آخر رد: عماد السيد
  [vb6.0] كيف اجعل زر امر الطابعه في برنامج المرفق غير مفعل نامل الاطلاع عليه والمساعدة ان امكن Microformt 3 104 12-11-18, 02:06 PM
آخر رد: elgokr
  طريقة تغيير نوع بيانات الحقل داخل جملة الاستعلام عبدالله الصافي 3 127 05-11-18, 03:30 AM
آخر رد: حريف برمجة
  مشكلة فى رسالة معناها ان هناك مكتبات مفقودة المبرمج العتيق 2 140 26-10-18, 01:27 PM
آخر رد: المبرمج العتيق
  كيفية نسخ قاعدة بيانات جديدة وباسم في هذا المثال khezzani 5 146 15-10-18, 10:55 PM
آخر رد: سعداء
  مشكلة عندي مشكلة في فتح قاعدة بيانات اكسس 2000 بيتم التعامل مع اكسس 97 fathyfarag122 3 109 03-10-18, 02:54 AM
آخر رد: عبدالله الصافي
  [vb6.0] كيف اجعل المستخدم يكتب في Text انجليزي فقط ؟؟ Microformt 2 146 21-09-18, 05:12 PM
آخر رد: Microformt
  سؤال عن كيفية ربط برنامج فجوال بيسي6 بقاعدة بيانات على النت amrou 4 275 19-09-18, 08:37 PM
آخر رد: amrou

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


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