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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [ تمّ الحل ] : تطبيق الأداة MSChart حسب البيانات عبد العزيز البسكري 21 274 20-02-17, 03:16 PM
آخر رد: sendbad100
  سؤال عن قاعدة البيانات اكسس مبرمج جديد 5 106 17-02-17, 01:27 PM
آخر رد: مبرمج جديد
Heart [vb6.0] استفسار - كيف اجعل قاعدة البيانات على الانترنت sl_dl1 1 60 14-02-17, 01:06 AM
آخر رد: Ahmed_Mansoor
  [سؤال] تشفير قاعدة البيانات عمور2016 8 185 11-02-17, 05:01 PM
آخر رد: Amir_alzubidy
  نقل البيانات من DataList1 الى DataList2 alfakeehy 22 289 10-02-17, 03:02 PM
آخر رد: alfakeehy
  [vb6.0] برمجة زر بحث vb6 مع قاعدة بيانات php my admin abazrmhamed 7 172 10-02-17, 01:34 AM
آخر رد: abazrmhamed
  استفسار عن البحث في عدة حقول واربعه كمبوبكس alfakeehy 8 228 05-02-17, 07:39 PM
آخر رد: alfakeehy
Question [vb6.0] كيف انشي استعلام يظهر عدد نتايج البحث؟؟ Microformt 1 76 29-01-17, 09:33 PM
آخر رد: السيد الغالي
  [سؤال] عدم تكرار البيانات داخل الكمبو عمور2016 2 109 28-01-17, 02:20 PM
آخر رد: عمور2016
  [vb6.0] البحث في أكثر من جدول أيمن الفخراني 3 131 22-01-17, 03:03 PM
آخر رد: أيمن الفخراني

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


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