كود البحث في الفيجوال بسيك عبر اداة ADO؟؟

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

كود البحث في الفيجوال بسيك عبر اداة ADO؟؟

مُساهمة من طرف ???? في الثلاثاء يناير 24, 2012 5:45 pm

مساء الخير؛
لي طلب هل يمكن لي ان اجد عندكم كود البحث في الفيجوال بسيك عبر اداة ADO؟؟

????
زائر


الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: كود البحث في الفيجوال بسيك عبر اداة ADO؟؟

مُساهمة من طرف أحمد مناع في الخميس يناير 26, 2012 11:34 am

khasd كتب:مساء الخير؛
لي طلب هل يمكن لي ان اجد عندكم كود البحث في الفيجوال بسيك عبر اداة ADO؟؟





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

اليكى بأختصار طريقة البحث فى قواعد البيانات فى هذه المشاركة عبر أداة ado ....ولاحظى أننى أقول أداة ادو و ليس مكتبة الادو

أولا : عمليات البحث بأستخدام الامر find


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

Adodc1.Recordset.Find 1, 2, 3, 4

حيث :
الرقم (1)يعبر عن أسم العمود و أسم الحقل المراد البحث عنه
الرقم (2)يعبر عن نقطة بداية البحث ويتم وضع (0)أفتراضيا أو يتم البحث من النقطة المتوقف عندها المؤشر حاليا
الرقم (3)يعبر عن أتجاة البحث و يأخذ قيمتين هما adSearchBackward أى وصولا لاول سجل أو القيمة

adSearchForward أى أتجة أثناء البحث وصولا لاخر سجل
الرقم (4)ويعبر عن نقطة بداية البحث أى من أى صف سوف يتم البحث منه و طبعا سوف يتم من الصف الاول لذلك سنضع الرقم 1



مثال تطبيقى :



- بداية يفضل تعريف متغير لحفظ القيمة التى تكتب فى مربع نص البحث وذلك عن طريق الكود التالى



Dim x
x = Text5.Text



ملحوظة text5 هو مربع النص الذى سيكتب فية القيمة المراد البحث عنها

بعد ذلك نأتى لكتابة كود البحث بأستخدام الامر find ...






ملحوظة الكود السابق للبحث عن حقل نصى ....أما أذا اردنا البحث عن حقل رقمى فأننا نستخدم الكود التالى





ثانيا : عمليات البحث بأستخدام جملة الاستعلام select


وهى أفضل بكثير من الامر find لانها تتيح لنا البحث بعدة خيارات كما أن نتائج البحث تظهر تلقائيا فى الداتا جريد ...



- البحث بأى جزء من الأسم


الكود:
Adodc1.RecordSource = "select * from Table1 where name Like '%" & (Text5.Text) & "%'"

Adodc1.CommandType = adCmdText

Adodc1.Refresh



- البحث بالحرف الاول من الأسم

الكود:

Adodc1.RecordSource = "select * from Table1 where name Like '" & (Text5.Text) & "%'"



Adodc1.CommandType = adCmdText


Adodc1.Refresh






-البحث بالحرف الاخير من الاسم
الكود:
 



Adodc1.RecordSource = "select * from Table1 where name Like '%" & (Text5.Text) & "'"

Adodc1.CommandType = adCmdText



Adodc1.Refresh






- البحث مطابق تماما للاسم


الكود:
Adodc1.RecordSource = "select * from Table1 where name Like '" & (Text5.Text) & "'"



Adodc1.CommandType = adCmdText



Adodc1.Refresh




و يلاحظ فى الاكواد السابقة أن الذى يفرق بينهم هى العلامة المؤية (%)...ففى الكود الاول كانت تلك العلامة موجودة فى الجانبين أما فى الكود الثانى فأن العلامة موجودة فقط فى جانب واحد ....وكذا

ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
سبحان الله وبحمدة .....سبحان الله العظيم

إن فقدت مكان بذورك التي بذرتها يوما ما سيخبرك المطر أين زرعتها ..لذا إبذر الخير فوق أي أرض وتحت أي سماء ومع أي أحد.. فأنت لا تعلم أين تجده ومتى تجده؟! إزرع جميلا ولو في غير موضعه .... فلا يضيع جميلا أينما زرعا .. فما أجمل العطاء... فقد تجد جزاءه في الدنيا أو يكون لك ذخرا في الآخرة
avatar
أحمد مناع
.
.

تاريخ التسجيل : 15/02/2011
المساهمات : 815
النقاط : 1484
التقيم : 69
الدولة : مصر
الجنس : ذكر

http://egy-tech.forumegypt.net

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: كود البحث في الفيجوال بسيك عبر اداة ADO؟؟

مُساهمة من طرف ahmedismayl في الأحد يناير 19, 2014 2:32 pm

روعة روعة روعة
ولكن كيف عكليه البحث بواسطه مكتبة الادو ولك كل الشششكر
avatar
ahmedismayl
..
..

تاريخ التسجيل : 15/01/2014
المساهمات : 24
النقاط : 30
التقيم : 0
الدولة : مصر
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى