السلام عليكم ....
انا عندي سؤل واتمنى ان اجد الاجابه عليه في منتداكم ....
عملت برنامج بالفيجوال 6 وربطته بقاعدة بيانات اكسس بتقنية ADO واريد ان اعمل بحث بحيث انه يتم البحث بالاسم او جزء من الاسم او ابحث برقم الهاتف مثلا .....
فهل من الممكن مساعدتي في الكود .... مع الشرح .... وشكرااااا
-09
الاخت الفاضلة :
لكى تقومى بالبحث فى الـ ado سوف تستخدمى تقنية ::find
rst.find "[name]='vb'"
و شرح الكود الاتى :
rst.find == تعنى عملية البحث
[name] == تعنى الحقل المراد البحث بة
'vb' ==== تعنى القيمة التى سوف تبحث عنها فى الحقل
و سوف تجدين فى التوقيع الخاص ما تريدين
شكرا
تم تعديل هذه المشاركة بواسطة codefinder في 26 فبراير 2005 في 16:55
ارجوا مساعدتى للعمل كمبرمج اوراكل باى شركة خبرتى 1 سنه و ربنا الموفق
خبرى 6 سنوات فى فيجوال بيزك 6و ASP
السلام عليكم ...
الشكر الجزيل لك اخي على الرد ....
استخدمت الكود الذي وضعته وقد ظهر لي خطأ مع خذا المسج :
opject required
-09
الاخ الفاضل قومى بأضافة الاداة
وش را
ارجوا مساعدتى للعمل كمبرمج اوراكل باى شركة خبرتى 1 سنه و ربنا الموفق
خبرى 6 سنوات فى فيجوال بيزك 6و ASP
هذا هو الكود الذي وضعته في زر البحث ....
Private Sub Command10_Click()
Dim a As String
a = InputBox("search for the name to find !?", "Search")
rs.MoveFirst
rs.Find "[name]='" + a + "'"
If rs.EOF = True Then
MsgBox " no information found !!"
Else
Text1.Text = rs!Name
Text2.Text = rs!password
End If
End Sub
ويخرج لي الخطأ عند هذا السطر
rs.Find "[name]='" + a + "'"
item cannat be found in the collections corysponding to the requsted name or ordinal
الاداة مضافة
-09
الاخ افاضلة تأكدى اناسم الحقل يدعى ـــ name
و شكرا
ارجوا مساعدتى للعمل كمبرمج اوراكل باى شركة خبرتى 1 سنه و ربنا الموفق
خبرى 6 سنوات فى فيجوال بيزك 6و ASP
اسمه name
!!!
الا يوجد كود اخر
وشكرا لك
تأكدى ان القيمة المدخلة من الغير (Inputbox ) نصية او قيمة البحث نصية
الكود صحيح
ارجوا مساعدتى للعمل كمبرمج اوراكل باى شركة خبرتى 1 سنه و ربنا الموفق
خبرى 6 سنوات فى فيجوال بيزك 6و ASP
السلام عليكم
الكود عمل بشكل صحيح الان :)
لكن !!!
اذا اردت البحث عن اسم (محمد احمد)على سبيل المثال فلابد ان اكتب الاسم كاملا .... فلو اردت ان ابحث عنه بجزء من اسمه (محمد)مثلا فيكف يمكني التعديل في الكود
حيث ان الكود القديم عندما يتم ادخال (محمد ) فقط فانه لايظهر الاسم .....
الرجاء المساعده في الكود وشكرااااااا
تم تعديل هذه المشاركة بواسطة ReeM2005 في 26 فبراير 2005 في 19:19
-09
الحمد الله
هناك فكرة بيسطة ::
فلنفرض انك مدرسة و قمت بالدخول الى الفصل و قمت بتوزيع بعد الحلوا على الاطفال( الطلبة ) و قمت بذكر اسماء الطلبة و قلت ::
المدرسة : محمد
الطلبة : !!!!
المدرسة : محمد
الطلبة : !!!!
المدرسة : محمد
الطلبة : !!!!
-------------- و لكن -------
المدرسة : محمد احمد عبد الله
الطالب : تحت أمرك
أسف على الاطالة و لكن هذة هى الفكرة انت تطلبين محمد و لكن هناك أكثر من محمد موجود فمن منهم فيجب توضيح الاسم كما هو موجود بقاعدة البيانات
اما
فى حالى محاولة استعراض جميع الاسماء التى بها محمد فسوف نزيد على الكود لسابق علامة النسبة ( % )
و هذة العلامة تعيد لك اى شئ بعد أو قبل محمد ( كما تريدى )
rst.Find "[name]='%" + a + "%'"
و شكرا
ارجوا مساعدتى للعمل كمبرمج اوراكل باى شركة خبرتى 1 سنه و ربنا الموفق
خبرى 6 سنوات فى فيجوال بيزك 6و ASP
:) طريقة حلوة للشرح
انا هذا هو قصدي اريد ان ابحث بجزء من الاسم وليس كله فمثلا بدلا من ان اكتب محمد احمد عبد الله اكتب محمد احمد فقط ..... لم يطبق معي الكود الذي وضعته ...
طيب اذا كنت انا مدير في شركة لها اكثر من فرع واردت الاستعلام عن الموظفين اللي من الدمام اريد ان اكتب الدمام مثلا ويظهر لي جميع الموظفين
وشكراااا لك
up
هذا الموضوع مغلق.