بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
الموضوع انني اريد ان اربط برنامج الفيجول بيسك بقاعدة البيانات المعمولة بالأكسس وفيها جداول كثيرة عبارة عن كتب حيث ان كل جدول يحتوي على كتاب، والسؤال هو:
كيف يمكنني البحث في جميع الجداول ووضع النتيجة في (ListView) أو (MSFlexGrid)
وجزاكم الله خيرا
أخي العزيز
أرجوا ان توضح لي الآتي :
1- اذا كنت تستعمل DAO أو ADO
2- إذا كانت كل الجداول داخل قاعدة البيانات نفس التركيبه ( Structure)
أي ان كل الجداول تحتوي عل نفس الحقول بنفس النوع أم لا
ولو تفضلت اكتب الكود الذي تبحث به في أي جدول
أنا في إنتظار الرد
وأرجوا من الله التوفيق للجميع
الأخ العزيز KHALED-AFIFI
1-استخدم DAO
2-كل الجداول نفس التركيبة حيث انها تحتوي فقط علي (Title) و (Description) والمطلوب البحث في (Description)
واذا كان هناك طريقة اسهل باستخدام ADO فالرجاء اخباري
شكرا جزيلا
أخي العزيز :
نغترض ان قاعدة البيانات قد أعطيتها متغير dbs
يمكنك استخدام الكود التالي
Dim csql as string Dim tbl As TableDef For Each tbl In dbs.TableDefs csql="select * from " & tbl.name & " where description like '%" & searchtext & "%'" '***************************** '***************************** Next
ضع في المساحة الخالية الكود الذي كنت تستعمله في أي جدول مع استخدام المتغير النصي csql مع كل Recordset وبعد بناء ال Recordset يجب اغلاقه لأنه سيتم فتحه بعدد الجداول التي داخل قاعدة البيانات
وبعد بناء كل recordset قم بتعبئة ال Listbox بدون افراغة حتي يكمل على ما سبقه
كل ذلك داخل ال Loop وفي المساحة الخالية
ملحوظه : searchtext هو المتغير الذي يحتوي على ما تريد البحث عنه
أرجوا الإفاده وإن كان هناك مالم يتضح لك أنا تحت أمرك للمزيد
ولله الأمر من قبل ومن بعد
الأخ الكريم booknet
جزاك الله خيرا
الأخ العزيز KHALED-AFIFI
الرجاء القاء نظرة على الكود في المثال المرفق حيث انني جربته والنتيجة جيدة هذا طبعا لجدولين فقط ولم اجربها على اكثر
السؤال هو:
1-هل هذه الطريقة صحيحة؟
2-هل يمكن استخدامها لعدة جداول (في حدود الثلاثين جدول)؟
ارجو الإفادة
جزاك الله خيرا
أخي العزيز KHALED-AFIFI
لقد ادخلت بعض التحسينات (طبعا في نظري) على الكود ولحد الآن ماشي تمام في اربع جداول كل جدول يحتوي على كتاب
المهم النتيجة جيدة وسرعة البحث لحد الآن ممتازة
وإن شاء الله اوافيك بالجديد
جزاكم الله خيرا
سؤال للأخ KHALED-AFIFI
لو كنت أستخدم ADO شو أسوي علشااان أبحث في قاعدة بيانات
وآسف على إزعاجكم
الأخوة الأعزاء
جزاكم الله خيرا
لقد استخدمت الكود للبحث في عشرين جدول (كتاب) فكانت النتيجة ممتازة من حيث الوقت استغرقت حوالى 15 ثانية واضاف حوالي 7000 نتيجة الى الليست بوكس هذا برغم ان جهازي قديم.
شكرا للجميع
هذا الموضوع مغلق.