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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيفية ربط قاعدة البيانات القوائم المنسدلة bidaya 12 127 منذ 2 ساعة مضت
آخر رد: bidaya
  فتح برنامج مبرمج بالفيجوال بيسك6 و قاعدة بيانات MYSQL Ahmed Salem12 1 54 01-12-16, 03:40 PM
آخر رد: sendbad100
  [سؤال] اضافة combo لمجموعة البحث وعمل بحث بين تاريخين كنونو 6 140 26-11-16, 09:12 PM
آخر رد: Amir_alzubidy
  [سؤال] برجاء المساعده في تغيير إسم جدول في قاعدة بيانات SQl Server بالفيجول بيسك6 engabuhema 2 57 24-11-16, 01:49 AM
آخر رد: ahmedabdelaliem
  مشكلة : قاعدة بيانات البرنامج بعد التنصيب لا تصبح بشكل ملف للقراءة فقط haiderkh 3 93 10-11-16, 12:56 AM
آخر رد: Ahmed_Mansoor
  [سؤال] رفع فيديو في قاعدة البيانات jihad20003000 0 54 04-11-16, 02:35 PM
آخر رد: jihad20003000
  احتاج كود لعمل نسخة من قاعدة بيانات اكسس اثناء الاتصال بها sendbad100 3 122 01-11-16, 08:57 AM
آخر رد: sendbad100
  البحث المتقدم في قاعدة بيانات اكسس haniblack 4 140 31-10-16, 10:00 PM
آخر رد: moamen said
  [سؤال] هل يوجد كود لمعرفة اسم حقل في جدول ( الاسم الرئيسي) الموجود بقاعدة البيانات allobaed 3 86 30-10-16, 01:32 AM
آخر رد: أبو عمر
Exclamation [سؤال] كيفية تحديث بيانات جدول داخل قاعدة بيانات sql 2000 engabuhema 6 230 27-10-16, 11:28 AM
آخر رد: engabuhema

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


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