+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [Acces2003] تعديل على كود استعلام بيسيط (/showthread.php?tid=15153)
الصفحات:
1
2
تعديل على كود استعلام بيسيط - mohfar - 18-03-16
السلام عليكم
كود لبحث عن كلمة من جملة مخزونة في قاعدة البيانات وقرأت سابقا كود مشابه اذا كنت مش غلطان يشبه الكود ادناة واذا كان خطا ممكن كود اسعلام عن كلمة من جملة موجودة في قاعدة بيانات اكسس 2003 مربوطة ب data1
PHP كود :
Data1.RecordSource = "Select (Select Count(min) From Table1 Where type =' " % & lcd & % " ') As bbbb From Table1"
Data1.Refresh
If Data1.Recordset.RecordCount > 0 Then
Label1.Caption = Data1.Recordset.Fields("bbbb").Value
RE: تعديل على كود استعلام بيسيط - Ahmed_Mansoor - 19-03-16
أهلا أخي الكريم , تعديل الكود كالآتي :
PHP كود :
Data1.RecordSource = "Select * From Table1 Where type LIKE ' %" % & lcd & % "%'"
Data1.Refresh
RE: تعديل على كود استعلام بيسيط - mohfar - 19-03-16
الف شكر استاذنا الغالي
لكن انا اريد الاستعلام عن عدد مرات ذكرها
RE: تعديل على كود استعلام بيسيط - Ahmed_Mansoor - 19-03-16
أهلا أخي الكريم , أرجو المعذرة لم تذكر عدد التكرار في نص المشاركة , على العموم هذا التعديل الجديد :
PHP كود :
Data1.RecordSource = "Select (Select Count(type) From Table1 Where type LIKE '%" & lcd & "%') As zTotal From Table1"
Data1.Refresh
If Data1.Recordset.RecordCount > 0 Then
Label1.Caption = Data1.Recordset.Fields("zTotal").Value
Else
Label1.Caption = "0"
End IF
RE: تعديل على كود استعلام بيسيط - mohfar - 19-03-16
شكرا استاذي الغالي على المساعدة والمتابعة لكن بيعترض على % التي داخل " يخطا سنتكاس ايرور
RE: تعديل على كود استعلام بيسيط - Ahmed_Mansoor - 19-03-16
أهلا أخي الكريم , أرجو المعذرة نسيت من علامات الـ % الزائدة , على العموم تم تعديل ردي السابق .
RE: تعديل على كود استعلام بيسيط - mohfar - 19-03-16
تعبتك معي استاذنا العزيز الكود السابق ينفذ لكن يعطي النتيجة 0 مع العلم ان الكلمة المراد البحث عنها موجوده في قاعدة البيانات بشكل منفرد وبشكل جملة اي يعني موجود مع جملة
RE: تعديل على كود استعلام بيسيط - ناجي إبراهيم - 19-03-16
السلام عليكم و رحمة الله و بركاته...
استعمل الكود التالي:
PHP كود :
Data1.RecordSource = "SELECT COUNT(*) As bbbb FROM Table1 WHERE [type] LIKE '%" & lcd & "%'"
Data1.Refresh
If Data1.Recordset.RecordCount > 0 Then
Label1.Caption = Data1.Recordset("bbbb")
Else
Label1.Caption = "0"
End If
مع ملاحظة:
1. أنك لا تحتاج إلى جملتي SELECT متداخلتين.
2. بما أن المقارنة جزئية (أي أن الكلمة قد تكون منفردة أو ضمن جملة) فيجب استعمال العامل LIKE و ليس علامة اليساوي (=).
3. بما أن كلمة type قد تكون كلمة محجوزة (و أنت تستعملها كاسم حقل) فإننا نضعها بين قوسين مربعين [ ... ]
* و أخيراً فإنه هناك مشكلة مع الخاصية RecordCount حيث أنها تعطي أحياناً القيمة -1 !!!
نرجو الاستفادة و السلام.
RE: تعديل على كود استعلام بيسيط - mohfar - 19-03-16
شكرا على المتابعة لكن ايضا 0 حاولت تغير اسم العامود ايضا 0 هل هناك مشكلة في كتابة الكود ام في قاعدة البيانات طلبي الصغير منكم اختبار الكود على اي مشروع بسيط وشكرا للمساعدة
RE: تعديل على كود استعلام بيسيط - ahmedabdelaliem - 19-03-16
ارفع مثالك اخي للتعديل عليه
بالتوفيق