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

منع التكرار بداخل الكمبو بوكس

مغلق
بدأه MohamedAliSalim في 8 أكتوبر 2006 · 16 رد · 1,453 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

انا دورت على هذا الموضوع كثيرا بالمنتدى ولم اجده

فانا الأن محتاج مساعداتكم

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

هذه البيانات بالطبع متكررة في قاعدة البيانات

وانا مش عاوزها تتكرر في الكمبو بوكس

مثال

عندي اسماء فروع في القاعدة وهي

حلوان

حلوان

حلوان

حلوان

معادي

حلوان

معادي

مصر الجديدة

مصر الجديدة

هذا مثلا موجود في قاعدة البيانات

انا عايز بقى لما اضيفهم في الكمبو بكس يبقى موجود في الكمبو بوكس الأتي

حلوان

معادي

مصر الجديدة

حد فهم حاجة ؟؟؟

Mohamed Ali Salim

0.1..0...4....7.....6......2.......7........4.........8

#2

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

اخي قم بفلترة البينات باستخدام جملة سيكوال أولا

RS.Open "select distinct(erea) from Persons"

وهذا الكود لملء الكومبو بوكس واعتقد انك تعرفه ولكن اضعه لزيادة المعرفة ولتسهيل الامر على المبتدأين

Do While Not RS.EOF
Combo1.AddItem RS("erea")
RS.MoveNext
Loop

بالتوفيق

================

الى اللقاء

JusT LeT YouR MinD WorK

#3
اقتباس
منع التكرار بداخل الكمبو بوكس

h32.gif

كيف يتم منع التكرار بداخل المنتدى !

نفس الموضوع هنا

من قواعد المشاركة : ممنوع نهائيا وبشكل قاطع تكرار الموضوع نفسه

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

h51.gif غريب امركم تعملون برامج فيها بحث وانتم لا تعرفون استخدامه

تم تعديل هذه المشاركة بواسطة HnHn في 8 أكتوبر 2006 في 20:19

سجل ايميلك هنا

googlejb5.gif ليصلك كل ما هو مفيد في عالم البرمجة
#4

اولا مشكور جدا يا اخ MR^King

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

بحثت بكلمة

تكرار

التكرار

كمبو

combo

ولم اجد الموضوع اللي انا عاوزه

هل لي ان ابحث تاني

Mohamed Ali Salim

0.1..0...4....7.....6......2.......7........4.........8

#5

<_< الى هذه الدرجة هذا المنتدى سيفتقر لهذه المعلومة لو اطلعت على "دليــــــلك الأسرع " لوجدت هذا الرابط

وهذه نتيجة البحث في المنتدى الرابط

تم تعديل هذه المشاركة بواسطة HnHn في 8 أكتوبر 2006 في 20:56

سجل ايميلك هنا

googlejb5.gif ليصلك كل ما هو مفيد في عالم البرمجة
#6

انظر الى الكود اللي انا بستعمله علشان اتصل بقاعدة البيانات واخذ البيانات من الحقل رقم 24

SQL = "select * from addition"
Re.Open SQL, Connection, adOpenDynamic, adLockReadOnly


If Re.EOF And Re.BOF Then

Exit Sub

Else


Do While Re.EOF = False


Combo2.AddItem Re(24)



Re.MoveNext

Loop


End If

Mohamed Ali Salim

0.1..0...4....7.....6......2.......7........4.........8

#7

السلام عليكم و رحمة الله

الكود سليم 100 % بس فى

اضافة الكود ده قبل التعبئة فى كل مرة حتى لا تتكرر البيانات

combo2.clear

#8

يا اخي العزيز

انت لم لتفهمني صح

الكود ده في حدث تحميل الفورمة

والكمبو بوكس زي ما انا وضحت فوق انه بيكون فيه اكثر من كلمة متشابه

حلوان

حلوان

حلوان

معادي

حلوان

معادي

مصر الجديدة

مصر الجديدة

وانا لا اريد ذلك انا اريد

حلوان

معادي

مصر الجديدة

فهمتني ؟؟؟؟

Mohamed Ali Salim

0.1..0...4....7.....6......2.......7........4.........8

#9

up

Mohamed Ali Salim

0.1..0...4....7.....6......2.......7........4.........8

#11

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

يا أخ MohamedAliSalim يعني حضرتك كتبت موضوع مكرر اكتر من مرة في المنتدى ومع علمي بذلك وضعت لك الكود

مش قادر تتعب نفسك وتجربه ؟ ولا احنا اتعودنا على الامثلة الجاهزة ؟

وكمان الكود اللي حضرتك كتبته الجزء الأول فيه ليس له أي فائدة لا ادري لما قمت بوضعه اصلا

الفكرة كلها في جملة السيكوال فقط اما كود ملء الكومبو فلا مشكلة فيه

والأخ هاني وضعلك روابط لو نظرت فيها لوجدت الحل دون انتظار

ياريت تجرب الاول قبل متابعة الموضوع وانظر في المواضيع السابقة وبعدها اسأل براحتك وان شاء الله نجيب على أسئلتك

============

الى اللقاء

JusT LeT YouR MinD WorK

#13

السلام عليكم

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

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

ثانيا يا اخ MR^King

انا عاوزك بس تنظر الى اي كود تم وضعه في اي رابط بهذا الموضوع

هتلاقي كل الرد كود فقط ولكن لا يوجد اي شرح

كيف لي ان اعرف مثلا ان الرقم بعد Fileds اللى هو 0 رقم ثابت وليس برقم الحقل

انا قمت بتغيره الى 24 علشان رقم الحقل بتاعي هو 24 وحدث خطأ بالفعل

فقمت بإسترجاعه الى اصله وهو 0 ونجح والحمد لله ولكن انا الأن لا اعلم ما فائده هذا الصفر

وكمان انت بتقول في نهاية جملة SQL كاتب Person ولم توضح هل هذا اسم الجدول ولا اسم ثابت

من المعروف دائما انه لازم تكتب كلمة تفيد بذلك مثل TabelName مثلا فما الداعي ان تكتب Person

وايضا كلمة erea ماذا تفيد وما معناها

كل هذا كان يسبب مشاكل في التجربية

ولو كل عضو شرح اي كود بيكتبه كان احسن واسهل لأن المنتدى للتعليم وليس لتعليم الكوبي والبيست Copy & peast

وشكرا على مرورك بالموضوع مش علشان تعلمني او تفيديني بشي بل علشان تسخر مني مش اكثر

وانا توصلت الى الكود والحمد لله

SQL = " Select  Distinct FiledName From TabelName"
Re.Open SQL, Connection, adOpenDynamic, adLockReadOnly
Do Until Re.EOF
Combo2.AddItem Re.Fields(0)
Re.MoveNext
Loop

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

انت عارف توصلت اليه ازاي ؟؟؟

انا اولا سبت الموضوع من اساسه لحين ان افكر فيه براحة خالص وعلى مهلى

يعني لو وقفت حاجة امامي في المشروع مش لازم اعطل باقي المشروع علشنه

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

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

وسلامي لكم جميعا

تم تعديل هذه المشاركة بواسطة MohamedAliSalim في 9 أكتوبر 2006 في 17:27

Mohamed Ali Salim

0.1..0...4....7.....6......2.......7........4.........8

#14

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

يا أخ محمد الله يكرمك

اقتباس
وكمان انت بتقول في نهاية جملة SQL كاتب Person ولم توضح هل هذا اسم الجدول ولا اسم ثابت

من المعروف دائما انه لازم تكتب كلمة تفيد بذلك مثل TabelName مثلا فما الداعي ان تكتب Person

وايضا كلمة erea ماذا تفيد وما معناها

كل هذا كان يسبب مشاكل في التجربية

اولا كونك كتبت هذا الكلام فمعناه انك تعرف ان كلمة Person هي اسم الجدول و كلمة erea هي الحقل

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

على اعتبار انك تعرف جيدا تكوين جمل الـ SQL

ولكن أريد ان اسألك فقط

ماهو الفرق بين الكود الذي وضعته لك وبين الكود الذي وضعته في ردك الاخير ؟

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

بالتوفيق

===============

الى اللقاء

JusT LeT YouR MinD WorK

#16

اعمل استعلام مجموعاتgroup by ويقراء منه الكومبو بكس بس سهله

تم تعديل هذه المشاركة بواسطة KARIMSOFT في 14 أكتوبر 2006 في 00:59

#17

مشكور جدا يا جماعة على هذه الردود

وماتزعلش مني يا اخ MR^King

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

Mohamed Ali Salim

0.1..0...4....7.....6......2.......7........4.........8

هذا الموضوع مغلق.

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