مرحبا اساتزتي
اود طلب المساعدة بخصوص اداة كومبو وطريقة ربطها بقاعدة البيانات لتحتوي جميع البيانات الموجودة بالحقل
مثال سريع
في فورم تسجيل الدخول اداة كومبو تحمل اسم المستخدم والمطلوب احتوائها جميع اسماء المستخدمين الموجودين فعليا في حقل المستخدمين لقاعدة البيانات بحيث يقوم المستخدم باختيار اسم المستخدم الموجود دون كتابة الاسم كل مرة
ولمزيدا من التوضيح مثال اخر بالمرفقات
ودمتم سالمين
فأنت اخي المبرمج ..لا تبخل بعلمك عمن يطلبه فقد كنت يوما تبحث كما نبحث نحن.. واعلم لو حجب العلم عنك لما وصلت الى ما انت عليه الان.. فاتق الله في طالب العلم وتذكر ما منه الله عليك ولا تبخل بعلمك وما اوتيت من معرفة ليبارك الله علمك وينفعك به.
قم بإضافة Component جديد .. Microsoft DataList Controls 6.0
ثم ضع عدد 1 DataCombo في الـ Form1 وقم بتغيير خصائصه كالتالي
RowSource = Adodc1
ListField = "user"
DataSource = Adodc1
DataField = "user"
علما بان الخاصيتين الأولى والثانية هم المسؤلين عن تعبئة الأصناف والثالثة والرابعه لربط الكمبو نفسها بالـ Adodc
اعتذر عن عدم تمكني للمتابعه الدورية في وقتنا الحالي
فليقبل الجميع تقديري واحترامي .. ولكم تحياتي
زبطت يا بروفيسور
ومن باب الفضول اسمحلي يا بروفيسور واثناء بحثي في الويب وجدت هالكود باحد المنتديات الاجنبية لنفس الغرض وجربتو وايضا زبط على اداة الكومبو الافتراضية وبدون كمبيوننت Microsoft DataList Controls 6.0
SQLs = "select * from users" If rs.State = adStateOpen Then rs.Close rs.Open SQLs, db, adOpenKeyset, adLockPessimistic If rs![user_name] > 0 Then Do Until rs.EOF Combo1.AddItem rs!user_name rs.MoveNext Loop End If
في الكود اعلاه اداتين جداد علي لو بالامكان شرح بسيط عنهما "Do/Loop" و "Until" متى يستخدمان وبمذا يفيدان لو تكرمت .. ولك الشكر
فأنت اخي المبرمج ..لا تبخل بعلمك عمن يطلبه فقد كنت يوما تبحث كما نبحث نحن.. واعلم لو حجب العلم عنك لما وصلت الى ما انت عليه الان.. فاتق الله في طالب العلم وتذكر ما منه الله عليك ولا تبخل بعلمك وما اوتيت من معرفة ليبارك الله علمك وينفعك به.
اولا مشاركتي السابقة كانت بناء على عنوان الموضوع :)
اما هذه المشاركة فهي جيدة ايضا ولكنها لا تربط الكومبو .. بل تملأ الكمبو يدويا
اما قاعدة Do ... Loop .. فهي لتكرار ما بينها من اوامر
وبإمكانك مثلا كتابتها بهذا الشكل
Do
وهذا للتكرار مدى الحياة :haha: .. وبإمكانك الخروج من القاعدة بإستخدام امر
Exit Do
اي مثلا تريد الخروج من القاعدة حين تكون دقائق الوقت الحالي بعد 25
Do
وبإمكانك كتابتها بصيغ اخرى .. كمثلا تقول
افعل التكرار حتى يكون الوقت بعد 25
وهنا نستخد الركن Until .. واما تضعه بعد Do او بعد Loop
Do Until Minute(Now) > 25
أو
Do
او افعل التكرار طالما الوقت اقل من 26
وهنا نستخد الركن الآخر While ..
Do While Minute(Now) < 26
أو
Do
كل الامثلة تؤدي الى نتيجة واحده .. ولكن لكل مقام مقال
الاهم ان تستخدم الركن المناسب في الوقت المناسب
ولا يجوز تكرار الركن الواحد مرتين او استخدام ركنين في قاعدة واحده
اي لا يجوز ان تتلوا Do بـ Until وتتلوم Loop بـ While أو العكس
وايضا لا يجوز ان تتلوم Do بـ Until و Loop تتلوها بـ Until أيضا .. وكذلك While
ولكن بإمكانك إستخدام Exit Do في اي وقت ولا شروط لها الا ان تكون بين Do و Loop
اعتذر عن عدم تمكني للمتابعه الدورية في وقتنا الحالي
فليقبل الجميع تقديري واحترامي .. ولكم تحياتي
حلو الدرس ده يابروفيسور
وكمان عجبتني ال loop دي يعني ممكن استخدمها
بس الورطة الي تورطها لما جربت اللوب دي ومعرفتش اوفقها فاضطريت اني الفجوال كلو وخسرت التعديل بدون حفظ يابرو
:( :l
ol: :lol: :lol:
شكرا يابرو
فأنت اخي المبرمج ..لا تبخل بعلمك عمن يطلبه فقد كنت يوما تبحث كما نبحث نحن.. واعلم لو حجب العلم عنك لما وصلت الى ما انت عليه الان.. فاتق الله في طالب العلم وتذكر ما منه الله عليك ولا تبخل بعلمك وما اوتيت من معرفة ليبارك الله علمك وينفعك به.
Ctrl + Pause Break
دوس عليهم مع بعض طبعا وقت التشغيل هتلاقي البرنامج وقف :D .. من الفيجوال مش من الـ eXe
ونفس الطريقة ايضا اثناء تنفيذ استعلام في الـ Access مثلا او اثناء تنفيذ اوامر في الـ Dos
اعتذر عن عدم تمكني للمتابعه الدورية في وقتنا الحالي
فليقبل الجميع تقديري واحترامي .. ولكم تحياتي
شكرا يابروفيسور
معلومات النهاردة دسمة
B)
فأنت اخي المبرمج ..لا تبخل بعلمك عمن يطلبه فقد كنت يوما تبحث كما نبحث نحن.. واعلم لو حجب العلم عنك لما وصلت الى ما انت عليه الان.. فاتق الله في طالب العلم وتذكر ما منه الله عليك ولا تبخل بعلمك وما اوتيت من معرفة ليبارك الله علمك وينفعك به.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…