السلام عليكم ورحمة الله وبركاته،
لي إستفسار صغير وهو عن طريقة/كود البحث بداخل قاعدة بيانات اكسس تم ربطها مسبقا عن طريقة Adodc، حيث ان اثناء البحث يجب اختيار الكلمة المفتاحية للبحث:
حيث ان Passport ID او First Name هي كلمات مفتاحية للبحث عن طريقها في قاعدة البيانات "ComboBox1"
Text1.text هو المربع النصي الذي يجب ادخال الكلمة المراد البحث عنها في قاعدة البيانات.
وشكرا لكم جميعاً،
BYQ
تم تعديل هذه المشاركة بواسطة BYQ في 6 فبراير 2010 في 12:31
adodc1.recordsource = "select * from table1 where passportid = " & combo1.text & "'"
أو
adodc1.recordsource = "select * from table1 where name like %'" & text1.text & "'%"
محتار!!! مش عارف شوتعمل؟؟! عندك مشاكل ونفسك تنحل؟؟!
عليك بالاقتراب من خالقك
عليك بصلاة الاستخارة
وعليك بالصدقة
داوو مرضاكم بالصدقة
ما نقص مال من صدقة
تصدقو ولو بشق تمرة
وعليكم السلام ورحمة الله وبركاته ,,,
ما فهمته انك تريد البحث بإستخدام اكثر من حقل مثلاً بالاسم او رقم التليفون او الوظيفة او ... الخ , إذا كان هذا ما تقصده وان اختيار الحقل من الكومبو بوكس إذاً يجب عليك وضع اسماء الحقول بالضبط لا تزيد حرف ولا تقل حرف في الكمبو بوكس , او يمكن إستخدام طريقة اخرى وهي افضل , وهي ان تضع كومبو بوكس اخر يكون غير ظاهر حيث تضع فيه الاسماء الحقيقية للحقول بنفس ترتيب الكومبو بوكس الذي يختار منه المستخدم , وضعت لك مثال في المرفقات به ما تريد على ان تظهر النتائج في اداة جريد
بالتوفيق ,,,
تم تعديل هذه المشاركة بواسطة محمد مصطفي غريب في 6 فبراير 2010 في 17:36
It does not matter what they know about you, but what you can do, so let your work speak of you
mmghv VB6 Programmer
جاري التجربة بإذن الله
جزاكم الله خيراً
BYQ
بعد محاولات دامت ليومين
اضع المشروع بين ايديكم لتعديله
واسم الفورم هو Find
بإنتظاركم
BYQ
هناك شئ ما غير صحيح بالمشروع , حاول رفعه مرة ثانية
It does not matter what they know about you, but what you can do, so let your work speak of you
mmghv VB6 Programmer
هذا المشروع تم رفعه
وفقط يجب التعديل البسيط على قاعدة البيانات والربط بواسطة ملف DB1.udl الموجود داخل فولدر DB
مع الشكر الجزيل
اعتزر كان الخطأ من نسخة الفيجوال بيسك عندي ,
المشروع بعد التعديل في المرفقات
كان الخطأ اخي في عدم ملائمة الكود مع ما تحتاجه وقد ادخلت كل الجمل الشرطية مع بعضها ولم تحدد الـ RecordSource للـ Adodc1 ولم تغير الـ CommandType للـ Adodc1 ليكون adCmdUnknown ليقبل الإستعلامات
It does not matter what they know about you, but what you can do, so let your work speak of you
mmghv VB6 Programmer
أشكرك أخي الكريم على المتابعه
أطمأن قلبي على المشروع
و سامحني على التأخر لظروف الدراسه
تم تعديل هذه المشاركة بواسطة BYQ في 2 أبريل 2010 في 01:01
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…