تقييم الموضوع :
  • 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 3 26 منذ 3 ساعة مضت
آخر رد: Amir_alzubidy
  [سؤال] كود فتح و اغلاق قاعدة بيانات gharib 1 28 منذ 11 ساعة مضت
آخر رد: Amir_alzubidy
  من لديه طريقه او باتش خاص بضغط ملف ال بي دي اف قبل تخزينه بقاعده البيانات يلغه فجوال scsi7000 4 76 18-09-17, 09:33 PM
آخر رد: scsi7000
  من لديه طريقه اذا امتلئت قاعده البيانات اكسس يقوم البرنامج بتصنيع قاعده بيانات من نفس scsi7000 7 154 18-09-17, 01:41 PM
آخر رد: عبد العزيز البسكري
  عدد سجلات البحث Abdellah 7 171 15-09-17, 06:09 PM
آخر رد: عبد العزيز البسكري
  طباعة سجل بقاعدة البيانات dr.mostashar 1 72 05-09-17, 05:52 PM
آخر رد: sher
  البحث عن ملف في اداة file list hannileo 2 84 31-08-17, 12:07 PM
آخر رد: hannileo
Rainbow [vb6.0] ماهي قاعدة بيانات اكسس و اين تستعمل و مثال مفتوح المصدر للفهم anoname 1 78 30-08-17, 07:34 AM
آخر رد: Ahmed_Mansoor
  [vb6.0] إرفاق صورة و حفظها في قاعدة البيانات و إعادة جلبها larbihamri 2 110 14-08-17, 05:14 PM
آخر رد: larbihamri
  [سؤال] فتح جدول قاعدة بيانات أكسيس Abdellah 9 257 09-08-17, 06:49 PM
آخر رد: Abdellah

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


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