السلام عليكم
يا اخواتى انا عندي قاعده بيانات وضخمه عاوز اعمل مصفوفة للبحث بمعنى هناك حقل يحتوى على اسماء معينة وهذه الاسماء انا حاططها فى لست وبختيار المستخدم يتم اختيار من الليست اللى عاوز يبحث به
كيف اكتب كود الاستعلام بحيث يبحث داخل القاعده على السجلات اللذى حددها المستخدم فى الليست
ارفع المثال اخي الكريم.
هل المطلوب اختيار اسم واحد فقط . أي اختيار واحد من القائمة . ام اكثر من اختيار .
لذلك يرجى رفع المثال .
تحياتي
OMANI FOR EVER
-------------------------------------------------
-------------------------------------------------
اخى اختيار كلمات من اللسته الى السته الاخرى
السلام عليكــم ورحمـة الله وبركاتــه ،،
لاضافة اسماء من قائمة الى اخرى
Dim pro1, pro2 Dim i, j As Integer For i = 0 To List1.ListCount - 1 If List1.Selected(i) = True Then For j = 0 To List2.ListCount - 1 pro1 = List1.List(i) pro2 = List2.List(j) If pro1 = pro2 Then GoTo p1: Next j List2.additem (List1.List(i)) End If Next i GoTo k1: p1: MsgBox "You are add this Project Before", vbCritical, "Projects" k1:
هذا مع اختيار style للقائمة الاولى من نوع 1- checkbox
للبحث من القائمة الاخرى في قاعدة البيانات
For i = 0 To List2.ListCount - 1 sqlss = "select * from table1 where name = '" & List2.List(i) & "'" If rs.State = adStateOpen Then rs.Close rs.Open sqlss, db, adOpenKeyset, adLockPessimistic Next i
وبين جملة sql وال next تسطيع اضافة جملة اخرى لتضع ناتج البحث فيها
شكرا اخى الكريم سوف اقوم بمراجعته وابلغك بالنتيجه بس هناك طلب اخر هل يمكن أيضا اضافة مربعين نص والبحث بثلاثة كلمات ايضا
وشكرا
اجل اخي يمكنك البحث بكل حقول الجدول إذا كنت تريد , اذا كان لكل حقل كلمة واحدة للبحث مثل الاسم يختار اسم واحد فقط مثال "هاني" نستخدم كود الاستعلام "Select * From Table Where Field ='Text'" وإذا كان للحقل اكثر من كلمة للبحث بها مثل الكود مثال " بحث بكود 1 و 2 و 3 " فاننا نستخدم هنا حلقة تكرارية وجملة شرطية كما في المثال
مع العلم ان الاستعلام اسرع بكثيييير من الحلقة التكرارية وستلاحظ هذا مع كثرة البيانات في قاعدة البيانات , لكن هذا فقط مع كثرة البيانات بشكل كبير مثلا 2000 سجل فسوف تلاحظ الفرق
It does not matter what they know about you, but what you can do, so let your work speak of you
mmghv VB6 Programmer
اعلم اخى ولكنك لم تفهم قصدي
اريد ان ابحث عن هانى وعلى وحسين ثلاث خنات للاسم مع اختيار الكود ايضاً
واريد ايضا ان على هانى وبشرط وجود هانى وكلمة اخرى داخل سطر البحث ياريت يكون كلامى مفهوم بالنسبالك
ثالثا فى حال استبدال حقل الكود بكلمات واريد ان ابحث داخل الكود فكيف يمكن عمل ذلك هل اعتمد على اندكس او اعمل جملة if ولكنها سوف تكون طويلة
شكرا اخ محمد لسعة صدرك ومساعدتك
اخي يمكن عمل ما لا تتخيله وان تبحث بالشروط التي تريدها وذك عن طريق حلقة تكرارية تدور داخل الجدول وجملة شرطية تختبر الشروط التي تريدها علي الحقول مهما كانت او مهما كان عددها
ولو كنت عايز مثال , ابعت لي مثال بسيط لقاعدة بيانات فيها جدول واعطني كل الاشروط التي تريد تحقيقها في البحث وسوف اقوم بها بإذن الله
الفكرة بسيطة لكن محتاجة لإستيعاب بسيط
تم تعديل هذه المشاركة بواسطة محمد مصطفي غريب في 30 أكتوبر 2009 في 09:38
It does not matter what they know about you, but what you can do, so let your work speak of you
mmghv VB6 Programmer
اخي لم افهم قصدك في البحث بالواصق
ارجو شرح ما تريد في هذه النقطة , وهل تريد تنفيذها على الكلمة الاولى ام الثانية للبحث
ارجو التوضيح لاني لم استوعب هذه النقطة جيدا
وفي البحث بالكود , هل الاكواد الموجود بالليس ثابتة ولا تزيد او تنقص , ام تتغير بمحتوى القاعدة , واذا كانت متغيرة - ما القاعدة التي بإتباعها تحول الارقام الي كلمات , لان هذه القاعدة بعكسها يسترد القيمة الاصلية للكود ليتم البحث به في قاعدة البيانات , واذا كانت ثابتة ( اي مثلا من 1 الى 5 فقط كما في المثال ) فهذا سهل
ارجو التوضيح ,,,,,
تم تعديل هذه المشاركة بواسطة محمد مصطفي غريب في 1 نوفمبر 2009 في 05:07
It does not matter what they know about you, but what you can do, so let your work speak of you
mmghv VB6 Programmer
اخى البحث بالواصق بمعنى لو عاوز ابحث عن كلمة امجد ( جد ) يعنى ملتصقة بالميم ( جدل) هكذا اعتقد واضحه اخى
بالنسبة اللكود ثابت يعنى الليست ثابته لا تتغير من واحد الى 80 اخى
بأنتظارك
السلام عليكم ورحمه الله وبركاته ,,,,,,,,
اولاً اسف اخي على التأخير فأنا اعمل على سيستم لشركة سياحة يجب عليا انهائه في اقرب وقت
- النموذج بالمرفقات عدلت في طريقة نقل الاكواد من الليست الاولى للثانية
- صممت الاستعلام للبحث بالشروط التي تريدها - علي حد فهمي - مع تنظيم اكثر
- حاولت تجنب الحلقات التكرارية في البحث والاعتماد كلياً على الاستعلام وذلك لضمان اقصى سرعة لتنفيذ الاستعلام
* ملحوظة : عند إستعمال داتا جريد او فيلكس جريد سيكون الاستعلام اسرع بكثير من استعمال ليست للعرض
لان الليست تسعمل حلقة تكرارية لعرض السجلات وهذه الطريقة تبطأ عند كثرة السجلات في الداتا بيز
ارجوا ان يفيدك النموذج وان تستطيع بعد ذلك تصميم الاستعلام الذي تريده بالشروط التي تريدها
ولك تحياتي ,,,,,,,,,,,,,,,,,,
It does not matter what they know about you, but what you can do, so let your work speak of you
mmghv VB6 Programmer
ممتاز اخى ومشكوررررررر على تعبك
اخى الحبيب فى حالة اختيار كود من الليست ونقلة الى الليست الاخرى وعند ارجاعة يكون ترتيبه فى اخر الليست الاولى
لو ينفع نرجعه مكانه فى الترتيب اكون شاكر جدا ليك
المثال بعد التعديل المطلوب
It does not matter what they know about you, but what you can do, so let your work speak of you
mmghv VB6 Programmer