تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Question [vb6.0] كيف يتم إضهار الترقيم تلقائي المجود في قاعدة البيانات عند النقر على امر جديد ؟ Microformt 4 156 02-04-18, 12:54 PM
آخر رد: mhareek
  السلام عليكم سؤال ممكن اتحكم في قاعدة البيانات من جهاز اخر او عن النت محمد جبريل 1 87 21-03-18, 12:22 PM
آخر رد: ahmedabdelaliem
  [vb6.0] تأخير نقل البيانات من الجهاز الخارجي الى شاشة البرنامج وادي العوضي 21 434 24-02-18, 12:37 PM
آخر رد: وادي العوضي
  [سؤال] استثناء داتا معينةعند امر البحث amro_demon 4 47 18-02-18, 01:23 PM
آخر رد: amro_demon
  البحث عن ملفات dr.mostashar 3 34 10-02-18, 02:12 PM
آخر رد: Eng27
Rainbow [vb6.0] ماهي قاعدة بيانات اكسس و اين تستعمل و مثال مفتوح المصدر للفهم anoname 2 212 03-02-18, 01:41 PM
آخر رد: anoname
  [vb6.0] استفسار عن كود البحث SALEM-900 5 138 24-01-18, 06:21 PM
آخر رد: Amir_alzubidy
  طلب كود إلغاء السجلات المتكررة في قاعدة البيانات فيصل علي 0 54 19-01-18, 02:41 PM
آخر رد: فيصل علي
  استخراج الملفات من قاعدة البيانات anes 8 162 16-01-18, 07:03 PM
آخر رد: مصمم هاوي
  مساعدة اريد ظهور جميع البيانات في القريد فلكسي khezzani 6 166 12-01-18, 08:06 PM
آخر رد: khezzani

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


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