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

إفراغ عمود من قاعدة بيانات في أداة list

مغلق
بدأه المصباحي في 19 ديسمبر 2004 · 2 رد · 641 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

عندي قاعدة بيانات فيها أعمدة بالأسماء التالية

الرقم num

الاسم mane

العمر age

ووضعت أداة ليست list في الفورم form واريد في حدث التحميل load أن أعمل نسخة من عمود الأسماء name في ال ليست list ...

الطريقة المثلى هي بعد كود ربط أداة البيانات data والجدول table يقوم المبرمج بكتابة كود للإنتقال إلى الحقل الأول ومن ثم تكرار حتى النهاية اثناء التكرار يستخدم الخاصية أد أيتم additem الخاصة بال ليست list والعنصر المضاف هو الذي سيكون عليه المؤشر لكن لا اعرف كيف اكتب هذا بالكود ...

فأرجوا ممن لديه الخبرة ان يدلني على ذلك .. ودمتم سالمين

#2

السلام عليكم

في قسم التصريحات

'in General - Declarations Part
Public Sub AddAllNamesToList()
list1.Clear ' if it has some items
SQL = "Select name from Tbl GROUP BY name "
Set rs = db.OpenRecordset(SQL) 'Table
With rs
Do Until .EOF
list1.AddItem !name
.MoveNext 'Next Record
DoEvents 
Loop
.Close 'Close Rs When Finish
End With
End Sub

'.......

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

'In form Load 
AddAllNamesToList

طبعا tbl هو اسم الجدول

و rs عبارة عن متغير من نوع Recordset

:)

gaza3-3.jpg
#3

شكرا جزيلا أخي العزيز ..

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

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