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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال حول البحث في combobox tighrmte 3 178 27-01-19, 11:08 PM
آخر رد: عبدالله الصافي
  سؤال بخصوص النقط والفواصل العشرية وغيرها في قاعدة البيانات hannileo 3 134 24-01-19, 01:58 PM
آخر رد: عبدالله الصافي
  سوال حول البحث بين التاريخين tighrmte 4 157 17-01-19, 12:35 AM
آخر رد: tighrmte
  كيفية عمل ازرار مأخوذة او مربوطة مع قاعدة البيانات hannileo 6 297 14-01-19, 10:07 AM
آخر رد: hannileo
  ترتيب البيانات tighrmte 2 104 12-01-19, 11:45 PM
آخر رد: tighrmte
  [Acces2003] ازاى اعمل قاعدة بيانات مشتركة ahmedhossam 4 2,365 25-12-18, 12:58 PM
آخر رد: aboezzat84
  [سؤال] كيفية تشغيل قاعدة بيانات برنامج VB6+Access على شبكة داخليه aboezzat84 2 218 25-12-18, 12:34 PM
آخر رد: aboezzat84
  مشكلة في تكرار البيانات عند الطباعة DATAREPORT دهشوش1 3 231 13-12-18, 05:03 AM
آخر رد: Ahmed_Mansoor
  [vb6.0] كيفية الاتصال بقاعدة البيانات علي شبكة دون طلب اسم الجهاز وكلمة المرور kamalgadir 0 142 05-12-18, 05:58 PM
آخر رد: kamalgadir
  [سؤال] كود البحث عن ملف في الجهاز ناجح احمد 5 242 01-12-18, 11:10 PM
آخر رد: ناجح احمد

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


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