الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

مساعدة فى كود بحث؟

مغلق
بدأه Misiny_forever في 2 مايو 2005 · 6 رد · 636 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ورحمة الله وبركاتة

ارجو المساعدة فى كود بحث

انا بصمم برنامج قاموس متخصص فى المصطلحات الهندسية

يحتوى القاموس على قاعدة بيانات تم ربطها بالفيجوال بيزك 6 وتحتوى قاعدة البيانات على 3 حقول

1 - english

2 - arabic

3 - desc

لقد قمت بعمل كود سيرش بمساعدة أخ عزيز من هذا المنتدى الرائع يقوم بالحبث عن الكلمة فى حقل english

ويقوم بأسترجاع البيانات بطريقة صحيحه

data1.recordsource = "select * from dic where english like '*" &text1.text"*'" d

data1.refresh

والكود اشتغل بطريقة صحيحه

بس المشكلة لما بعمل نفس الكود بس ببحث داخل حقل العربى بحيث عاوز ادخل الكلمة بالعربى ويعمل عليها البحث بس الكود مشتغلش ممكن حد يعملى التعديل فى الكود او يعرفنى فين الغلط

وشكرا

خيركم من تعلم العلم وعلمه

#2

شباب ارجوكوا حد يرد عليا زى ما تعودت منكوا على الاهتمام

خيركم من تعلم العلم وعلمه

#3

السلام عليكم...

أنصحك بإستخدام Data Enviroment للتعامل مع قواعد البيانات فهي تتيح لك مزايا أكبر من Data Control .

وكيفية استخدامها :

- من القائمة Project اختر Add Data Enviroment (طبعاً لا تضيف Data Control).

- اختر Connection1 واضغط على Properties ثم اختر Provider وبالنسبة لملفات Access

لا بد من اختيار Microsoft Jet 4.0 OLE DB Provider .

- اضغط Next أو Connection Tab

- حدد مسار ملف الـAccess ثم Test Connection لمعرفة النتائج إن كانت صحيحة ، ثم OK

- حدد Connection واضغط على Add Command .

- حدد Command1 واضغط Properties .

- اختر اسم الجدول ثم OK

- للبحث ضمن الجدول المحدد اكتب :

DataEnvironment1.rsCommand1.Filter = "English Like '*" & Text1.Text & '*"
Description = DataEnvironment1.rsCommand1("desc")
Arabic = DataEnvironment1.rsCommand1("Arabic")

أرجو أن يكون الرد واضحاً

وإذا صادفتك أية مشاكل فقل لي

#4

شكرا لك أخى العزيز وجارى التجربة

خيركم من تعلم العلم وعلمه

#5

الأخ العزيز أمير هل ممكن توضيح اكثر بعد عملية الربط وتمت بنجاح كيفية ربط التكست اللى بعملها عشان اعمل عملية استرجاع البيانات فيها بعد عملية البحث

يعنى ازاى هربط بين التكست اللى هعملها وبين الحقول اللى جوا الجدول ؟

وكمان الكود اللى انتا بعته هيتعمل تحت اى اداة هل هى التكست ولا على زر

خيركم من تعلم العلم وعلمه

#6

بسم الله

اخي الكريم

كنت قد طلبت قبل هذي المرة مني كيفية عمل بحث حرف حرف (البحث المتتابع) ....

فلا تفكر ان طلبك هذا اخذته الرياح ....

المشكلة ان في الفترة هذي معاي بعض الترتيبات في جهازي (فرمته واعادة تحميل برامج ....)

ان شاء الله انه في الاجل القريب بعمل لك ولمن تأرقه هذا المشكلة والى مرتادي المنتدى بشكل عام بريمج يحاكي هذي المشاكل....

اسال الله ان لا تعارضني مشاغل ...

اخوك خالد

المبرمج الطيب :)

إذا كان ترك الدين يعني تقدما ***** فيا نفس موتي قبل أن تتقدمي

اعط الفقير سمكة يشبع يوما * * * * علمه الصيد يشبع مدى الحياة

قتل امرئٍ في غابةٍ ***** جريمة لا تغتفـر

وقتل شعبٍ بأكمله ****** مسألةٌ فها نظر

حتى الكلاب إذا رأت يوماً فقيراً ماشياً *** نبحت عليه وكشرت أنيابها

الاعجاز العلمي في القرآن والسنة

#7

السلام عليكم ...

إليك هذا الملف عسى أن ينفعك ، فإذا نفعك فإدع الله لي ، وإذا لم ينفعك فإدع الله بأن يهديني

ملاحظة : اسمي عامر وليس أمير

Engineering.zip

تم تعديل هذه المشاركة بواسطة Amer Al-Homsi في 4 مايو 2005 في 20:41

هذا الموضوع مغلق.

مواضيع مشابهة