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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  طلب كود إلغاء السجلات المتكررة في قاعدة البيانات فيصل علي 0 7 منذ 4 ساعة مضت
آخر رد: فيصل علي
  استخراج الملفات من قاعدة البيانات anes 8 93 16-01-18, 07:03 PM
آخر رد: مصمم هاوي
  مساعدة اريد ظهور جميع البيانات في القريد فلكسي khezzani 6 98 12-01-18, 08:06 PM
آخر رد: khezzani
  التعديل على المرفق لمعرفة هل تم انشاء عمود في قاعدة البيانات ام لا w123eg 2 87 06-01-18, 01:20 AM
آخر رد: w123eg
  [vb6.0] تأخير نقل البيانات من الجهاز الخارجي الى شاشة البرنامج وادي العوضي 14 287 27-12-17, 07:24 AM
آخر رد: وادي العوضي
  السلام عليكم عندي مشكلة عند ربط قاعدة بيانات اكسس بالفيجول بيسك 6 عزف الرياح 2 107 25-12-17, 12:38 AM
آخر رد: عزف الرياح
  سؤال عن حفظ ترتيب قاعدة البيانات مبرمج مصرى 1 89 02-12-17, 10:31 PM
آخر رد: eiocm
  قاعدة بيانات حسن الغزي 3 105 26-11-17, 06:06 PM
آخر رد: الاصيله
Information [vb6.0] هل يوجد طريقة اجعل الاستعلام يعرض جميع البيانات باسرع وقت ممكن ؟؟ Microformt 3 126 26-11-17, 12:02 PM
آخر رد: الاصيله
  [سؤال] كود فتح و اغلاق قاعدة بيانات gharib 12 434 25-11-17, 09:41 PM
آخر رد: sulimanalahdl

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


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