تقييم الموضوع :
  • 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 2 81 14-01-17, 05:57 PM
آخر رد: Microformt
  مشكلة : قاعدة بيانات البرنامج بعد التنصيب لا تصبح بشكل ملف للقراءة فقط haiderkh 11 294 30-12-16, 11:25 PM
آخر رد: AL_BRNS
  [كود] طلب تعديل على كود البحث بأي حرف في حقلين الطايش 7 166 24-12-16, 01:29 AM
آخر رد: الطايش
  [ تمّ الحل ] : فرز البيانات عبد العزيز البسكري 3 116 15-12-16, 03:14 PM
آخر رد: sendbad100
  ضغط و إصلاح قاعدة البيانات عبد العزيز البسكري 14 324 12-12-16, 03:00 PM
آخر رد: عبد العزيز البسكري
  البحث عن صورة kafrnabl 0 75 07-12-16, 10:06 AM
آخر رد: kafrnabl
  كيفية ربط قاعدة البيانات القوائم المنسدلة bidaya 12 298 05-12-16, 01:54 PM
آخر رد: bidaya
  فتح برنامج مبرمج بالفيجوال بيسك6 و قاعدة بيانات MYSQL Ahmed Salem12 1 140 01-12-16, 03:40 PM
آخر رد: sendbad100
  [سؤال] اضافة combo لمجموعة البحث وعمل بحث بين تاريخين كنونو 6 215 26-11-16, 09:12 PM
آخر رد: Amir_alzubidy
  [سؤال] برجاء المساعده في تغيير إسم جدول في قاعدة بيانات SQl Server بالفيجول بيسك6 engabuhema 2 92 24-11-16, 01:49 AM
آخر رد: ahmedabdelaliem

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


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