كود البحث في الفيجوال بسيك عبر اداة 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
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى
الثلاثاء مارس 26, 2024 6:26 pm من طرف moslema_r
» شركة تنظيف استراحات بالرياض
الأحد مارس 24, 2024 10:49 pm من طرف moslema_r
» كشف تسربات المياه في جدة
السبت مارس 23, 2024 7:23 pm من طرف gmalnagy
» خدمات كشف تسربات المياه بخصم 25% - اتصل الان
السبت مارس 23, 2024 7:22 pm من طرف gmalnagy
» شركة تنظيف ثريات بالرياض
الخميس مارس 21, 2024 7:23 pm من طرف moslema_r
» كهربائي منازل بالرياض
الأحد مارس 17, 2024 1:52 pm من طرف رانيا حماد
» افضل شركة نقل عفش بالرياض نقل باكستاني 40% خصم | موقع الانوار
الأحد مارس 17, 2024 1:25 pm من طرف رانيا حماد
» افضل معلم جبس بالرياض تركيب جبس بورد بالرياض 20% خصم اتصل الآن
الأحد مارس 17, 2024 1:09 pm من طرف رانيا حماد
» شراء اثاث مستعمل بالكويت بخصم 30%
الأحد مارس 17, 2024 12:54 pm من طرف رانيا حماد
» افضل فني كهربائي منازل بالرياض جودة 100% | اتصل الآن
الأحد مارس 17, 2024 12:36 pm من طرف رانيا حماد