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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] البحث بالسنة Abdellah 4 90 أمس, 04:19 PM
آخر رد: Abdellah
  قاعدة بيانات مشتركة dr.mostashar 4 55 13-11-17, 01:28 AM
آخر رد: Amir_alzubidy
  مساعدة في البحث والجمع sulimanalahdl 4 91 10-11-17, 02:17 AM
آخر رد: sulimanalahdl
  طلب كود لاستخراج اسماء الحضور فقط من قاعدة البيانات حسن الغزي 8 106 09-11-17, 02:04 PM
آخر رد: الاصيله
  هل يمكن تحويل ملف وورد الى قاعدة بيانات gonm64 1 50 02-11-17, 12:28 AM
آخر رد: Ahmed_Mansoor
  البحث في ملف word dr.mostashar 2 98 01-11-17, 10:03 PM
آخر رد: dr.mostashar
  حفظ مجموعة تكست بوكس فى قاعدة البيانات بضغطة حفظ واحدة المبرمج العتيق 6 154 28-10-17, 07:11 PM
آخر رد: المبرمج العتيق
  [vb6.0] هل ممكن تعديل البيانات فى الفليكس جريد؟ ahmed_egypt 2 74 21-10-17, 03:35 AM
آخر رد: sendbad100
Photo حفظ البيانات فى قاعدة البيانات كل تكس فى سجل المبرمج العتيق 1 111 16-10-17, 11:38 AM
آخر رد: Mohamad Anan
  [مثال] مثال متكامل للتعامل مع قاعدة بيانات من نوع mysql على الانترنت ahmedabdelaliem 13 1,628 13-10-17, 06:18 PM
آخر رد: ahmed.m

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


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