تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كود البحث في قاعدة البيانات
#1
السلام عليكم ورحمة الله وبركاته ,,,

اخواني لدي كود للبحث في قاعدة البيانات وأريد التعديل عليه بحيث انه اذا لم يتم العثور على بيانات مطابقه يقوم باظهار رساله للمستخدم (لايوجد رقم مطابق )

 Dim X, Y
   X = InputBox(" intre your id ")
   
    Y = "SELECT * FROM TRYDATA WHERE ID='" & X & "'"
   Data1.RecordSource = Y
   Data1.Refresh


وفقكم الله وسدد خطاكم .....
الرد
تم الشكر بواسطة:
#2
(25-12-14, 04:18 PM)Ksa004 كتب :  Dim X, Y
   X = InputBox(" intre your id ")
   
    Y = "SELECT * FROM TRYDATA WHERE ID='" & X & "'"
   Data1.RecordSource = Y
   Data1.Refresh

If DATA1.Recordset.RecordCount = 0 Then
  MsgBox "لايوجد "
End If
الرد
تم الشكر بواسطة: Ahmed_Mansoor , Amir_alzubidy


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة في تكرار البيانات عند الطباعة DATAREPORT دهشوش1 3 78 منذ 1 ساعه مضت
آخر رد: Ahmed_Mansoor
  [vb6.0] كيفية الاتصال بقاعدة البيانات علي شبكة دون طلب اسم الجهاز وكلمة المرور kamalgadir 0 40 05-12-18, 05:58 PM
آخر رد: kamalgadir
  [سؤال] كود البحث عن ملف في الجهاز ناجح احمد 5 116 01-12-18, 11:10 PM
آخر رد: ناجح احمد
  طباعة قيم مربعات نص غير مربوطة بقاعدة البيانات دهشوش1 4 82 30-11-18, 11:02 PM
آخر رد: دهشوش1
  [vb6.0] حل مشكلة حفظ الصورة في ملف وليس على قاعدة البياناتDataBase عبدالقادرعواد 3 206 26-11-18, 01:42 AM
آخر رد: عماد السيد
  [مثال] مثال متكامل للتعامل مع قاعدة بيانات من نوع mysql على الانترنت ahmedabdelaliem 14 3,393 26-11-18, 01:26 AM
آخر رد: عماد السيد
Question [vb6.0] كيف يتم إضهار الترقيم تلقائي المجود في قاعدة البيانات عند النقر على امر جديد ؟ Microformt 8 511 20-10-18, 09:54 PM
آخر رد: gonm64
  كيفية نسخ قاعدة بيانات جديدة وباسم في هذا المثال khezzani 5 145 15-10-18, 10:55 PM
آخر رد: سعداء
  مشكلة عندي مشكلة في فتح قاعدة بيانات اكسس 2000 بيتم التعامل مع اكسس 97 fathyfarag122 3 103 03-10-18, 02:54 AM
آخر رد: عبدالله الصافي
  احبابى فى الله ارجو المساعدة تغير ربط قاعدة البينات من (.accdb) الى mbp mhareek 6 197 14-09-18, 11:18 PM
آخر رد: mhareek

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


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