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

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

اذهب الى الأسفل

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

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

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


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

كود البحث في الفيجوال بسيك عبر اداة ADO؟؟ Empty رد: كود البحث في الفيجوال بسيك عبر اداة 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 ...


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



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


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


ثانيا : عمليات البحث بأستخدام جملة الاستعلام 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




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

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

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

https://egy-tech.forumegypt.net

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

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

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

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

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

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

الرجوع الى أعلى الصفحة

ََ

مواضيع ذات صلة


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