الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

عاوز اعمل مصفوفة للبحث فى القاعده

بدأه الحزين اوى في 29 أكتوبر 2009 · 15 رد · 1,236 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

يا اخواتى انا عندي قاعده بيانات وضخمه عاوز اعمل مصفوفة للبحث بمعنى هناك حقل يحتوى على اسماء معينة وهذه الاسماء انا حاططها فى لست وبختيار المستخدم يتم اختيار من الليست اللى عاوز يبحث به

كيف اكتب كود الاستعلام بحيث يبحث داخل القاعده على السجلات اللذى حددها المستخدم فى الليست

#2

ارفع المثال اخي الكريم.

هل المطلوب اختيار اسم واحد فقط . أي اختيار واحد من القائمة . ام اكثر من اختيار .

لذلك يرجى رفع المثال .

تحياتي

OMANI FOR EVER

-------------------------------------------------

post-12787-12780191801974.jpg

-------------------------------------------------

#3

اخى اختيار كلمات من اللسته الى السته الاخرى

#4

السلام عليكــم ورحمـة الله وبركاتــه ،،

لاضافة اسماء من قائمة الى اخرى

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 تسطيع اضافة جملة اخرى لتضع ناتج البحث فيها

#5

انا ارفقت المثال برجاء تطبيق الكود على المثال بحيث يبحث فى الكود المختار بس

وشكرا

pro.rar

#6

عدلت المثال ليبحث بالاكواد الموجوة في List2

التعديل كان بسيط , إذا كان هناك طلب آخر ارجو توضيحه

pro2.rar

تم تعديل هذه المشاركة بواسطة محمد مصطفي غريب في 29 أكتوبر 2009 في 19:15

It does not matter what they know about you, but what you can do, so let your work speak of you

mmghv VB6 Programmer

#7

شكرا اخى الكريم سوف اقوم بمراجعته وابلغك بالنتيجه بس هناك طلب اخر هل يمكن أيضا اضافة مربعين نص والبحث بثلاثة كلمات ايضا

وشكرا

#8

اجل اخي يمكنك البحث بكل حقول الجدول إذا كنت تريد , اذا كان لكل حقل كلمة واحدة للبحث مثل الاسم يختار اسم واحد فقط مثال "هاني" نستخدم كود الاستعلام "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

#9

اعلم اخى ولكنك لم تفهم قصدي

اريد ان ابحث عن هانى وعلى وحسين ثلاث خنات للاسم مع اختيار الكود ايضاً

واريد ايضا ان على هانى وبشرط وجود هانى وكلمة اخرى داخل سطر البحث ياريت يكون كلامى مفهوم بالنسبالك

ثالثا فى حال استبدال حقل الكود بكلمات واريد ان ابحث داخل الكود فكيف يمكن عمل ذلك هل اعتمد على اندكس او اعمل جملة if ولكنها سوف تكون طويلة

شكرا اخ محمد لسعة صدرك ومساعدتك

#10

اخي يمكن عمل ما لا تتخيله وان تبحث بالشروط التي تريدها وذك عن طريق حلقة تكرارية تدور داخل الجدول وجملة شرطية تختبر الشروط التي تريدها علي الحقول مهما كانت او مهما كان عددها

ولو كنت عايز مثال , ابعت لي مثال بسيط لقاعدة بيانات فيها جدول واعطني كل الاشروط التي تريد تحقيقها في البحث وسوف اقوم بها بإذن الله

الفكرة بسيطة لكن محتاجة لإستيعاب بسيط

تم تعديل هذه المشاركة بواسطة محمد مصطفي غريب في 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

#11

مرفق مثال به المطلوب اخى وبنتظارك على احر من الجمر

pro2.rar

#12

اخي لم افهم قصدك في البحث بالواصق

ارجو شرح ما تريد في هذه النقطة , وهل تريد تنفيذها على الكلمة الاولى ام الثانية للبحث

ارجو التوضيح لاني لم استوعب هذه النقطة جيدا

وفي البحث بالكود , هل الاكواد الموجود بالليس ثابتة ولا تزيد او تنقص , ام تتغير بمحتوى القاعدة , واذا كانت متغيرة - ما القاعدة التي بإتباعها تحول الارقام الي كلمات , لان هذه القاعدة بعكسها يسترد القيمة الاصلية للكود ليتم البحث به في قاعدة البيانات , واذا كانت ثابتة ( اي مثلا من 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

#13

اخى البحث بالواصق بمعنى لو عاوز ابحث عن كلمة امجد ( جد ) يعنى ملتصقة بالميم ( جدل) هكذا اعتقد واضحه اخى

بالنسبة اللكود ثابت يعنى الليست ثابته لا تتغير من واحد الى 80 اخى

بأنتظارك

#14

السلام عليكم ورحمه الله وبركاته ,,,,,,,,

اولاً اسف اخي على التأخير فأنا اعمل على سيستم لشركة سياحة يجب عليا انهائه في اقرب وقت

- النموذج بالمرفقات عدلت في طريقة نقل الاكواد من الليست الاولى للثانية

- صممت الاستعلام للبحث بالشروط التي تريدها - علي حد فهمي - مع تنظيم اكثر

- حاولت تجنب الحلقات التكرارية في البحث والاعتماد كلياً على الاستعلام وذلك لضمان اقصى سرعة لتنفيذ الاستعلام

* ملحوظة : عند إستعمال داتا جريد او فيلكس جريد سيكون الاستعلام اسرع بكثير من استعمال ليست للعرض

لان الليست تسعمل حلقة تكرارية لعرض السجلات وهذه الطريقة تبطأ عند كثرة السجلات في الداتا بيز

ارجوا ان يفيدك النموذج وان تستطيع بعد ذلك تصميم الاستعلام الذي تريده بالشروط التي تريدها

ولك تحياتي ,,,,,,,,,,,,,,,,,,

__________________________.rar

It does not matter what they know about you, but what you can do, so let your work speak of you

mmghv VB6 Programmer

#15

ممتاز اخى ومشكوررررررر على تعبك

اخى الحبيب فى حالة اختيار كود من الليست ونقلة الى الليست الاخرى وعند ارجاعة يكون ترتيبه فى اخر الليست الاولى

لو ينفع نرجعه مكانه فى الترتيب اكون شاكر جدا ليك

#16

المثال بعد التعديل المطلوب

__________________________.rar

It does not matter what they know about you, but what you can do, so let your work speak of you

mmghv VB6 Programmer

مواضيع مشابهة