كود البحث في الفيجوال بسيك عبر اداة ADO؟؟
منتدى مصر التقني :: قسم لغات البرمجة Programming languages :: فجوال بيسك 6 vb :: قسم نقاش و أستفسارات الاعضاء
صفحة 1 من اصل 1 • شاطر
كود البحث في الفيجوال بسيك عبر اداة ADO؟؟
مساء الخير؛
لي طلب هل يمكن لي ان اجد عندكم كود البحث في الفيجوال بسيك عبر اداة ADO؟؟
لي طلب هل يمكن لي ان اجد عندكم كود البحث في الفيجوال بسيك عبر اداة ADO؟؟
????- زائر
رد: كود البحث في الفيجوال بسيك عبر اداة ADO؟؟
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
و يلاحظ فى الاكواد السابقة أن الذى يفرق بينهم هى العلامة المؤية (%)...ففى الكود الاول كانت تلك العلامة موجودة فى الجانبين أما فى الكود الثانى فأن العلامة موجودة فقط فى جانب واحد ....وكذا
ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
سبحان الله وبحمدة .....سبحان الله العظيم
رد: كود البحث في الفيجوال بسيك عبر اداة ADO؟؟
روعة روعة روعة
ولكن كيف عكليه البحث بواسطه مكتبة الادو ولك كل الشششكر
ولكن كيف عكليه البحث بواسطه مكتبة الادو ولك كل الشششكر
ahmedismayl- ..
- تاريخ التسجيل : 15/01/2014
المساهمات : 24
النقاط : 30
التقيم : 0
الدولة :
الجنس :
| |
منتدى مصر التقني :: قسم لغات البرمجة Programming languages :: فجوال بيسك 6 vb :: قسم نقاش و أستفسارات الاعضاء
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى
أمس في 8:56 pm من طرف moslema_r
» شركة مكافحة حشرات في راس الخيمة
أمس في 8:34 pm من طرف moslema_r
» تطبيقIncogniton لإدارة ملفات تعريف متعددة للمتصفح
الأربعاء أبريل 24, 2024 3:51 pm من طرف زاكااا
» افضل شركة مكافحة النمل الابيض بالرياض
الإثنين أبريل 22, 2024 9:41 pm من طرف moslema_r
» Exemplary Сasual Dating - Verified Women
الخميس أبريل 18, 2024 9:18 pm من طرف wdqwd
» رش الدفان بالرياض
الخميس أبريل 18, 2024 7:11 pm من طرف moslema_r
» شركة تنظيف خزانات الشارقة
الخميس أبريل 18, 2024 6:57 pm من طرف moslema_r
» شركة مكافحة الفئران بالرياض
الإثنين أبريل 15, 2024 8:23 pm من طرف moslema_r
» افضل شركة كشف تسربات المياه بالباحة
الخميس أبريل 04, 2024 7:02 am من طرف gmalnagy
» ساعدوني وفهموني help me
الجمعة مارس 29, 2024 8:37 am من طرف linesoft