كيفية جعل Index الكمبوبزبكس متل Index Id فى داتابيس

بدأه امال صقر في 7 أبريل 2008 · 4 رد · 800 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات

#17 أبريل 2008 في 14:22 صاحب الموضوع

السلام عليكم يعطيكم الصحة والعافية يا عباقرة البرمجة انا لدى مشروع با الفيجوال بيسك وداتابيس اكسس قمت بعرض بيانات حقل فى الاداة Combobox حيت استخدم هده الاداة فى جملة الاستفسار بدلالاة موقع العنصر فى Combobox و حقل id الدى هو عبارة عن مفتاح اساسى دو ترقيم تلقائى ولكن المشكلة فى ان indexالخاص بـ comboBox لايساوى نفس ترقيم id مع انى استخدخدمت الخاصية DataMemberلكن ما مشاش الحال وهدا هو الكود

Private Sub Command1_Click()

rs.Open

While Not rs.EOF

Combo1.DataMember = rs!id

strSQl = "update table_cat set name_cat= '" & Text1.Text & "'" & "where id=" & Combo1.ListIndex & " "

db.Execute strSQl

rs.MoveNext

Wend

rs.Requery

rs.Close

End Sub

// ملئ الكمبوبوكس عند تحميل الفورم

Private Sub Form_Load()

db.Provider = "Microsoft.JET.OLEDB.4.0;"

db.Open App.Path & "\projectdb1.mdb "

rs.Open "[Table_cat]", db, adOpenStatic, adLockReadOnly

While Not rs.EOF

Combo1.DataMember = rs!id

Combo1.AddItem rs![name_cat]

rs.MoveNext

#27 أبريل 2008 في 18:13

اذا كنت تقصد تحميل محتوى حقل في اداة Combo box في وقت التحميل فهذا ان شاء الله سيفيدك

Do While Not rs.EOF
Combo1.AddItem rs![Name]
rs.MoveNext
Loop

#38 أبريل 2008 في 04:32

الأخ الكريم ، خاصية DataMember ليست مصفوفة من البيانات ، ولكن الـ List هي المصفوفة الفعلية التي تريد تخزين قيمة حقل الـ PK بها !!!

خاصية الـ DataMember لها إستخداماتها الخاصة !!!

لكن لجلب البيانات بالكومبو إليك الكود التالي :

While Not rs.EOF
	Combo1.AddItem rs![name_cat]
	Combo1.ItemData(Combo1.ListCount) = rs!id
	rs.MoveNext
Wend

علي فكرة ، هناك بالمنتدي مواضيع كثيرة تفيد بذلك

شكراً

لا تخلط ما بين شخصيتي وأسلوبي .. فشخصيتي هي

ما أنا عليه وتحت تصرفي .. وأسلـوبي يعتمد عليـك

أنت وتصرفاتك

ولحظاتي صمت... وصمـت لحظاتي كلام ... كلامه

اشد آلام ... فصمتي أنا عنوان

عصر التكنولوجيا المعلوماتية(مدونتي الخاصة)

My FaceBook

#48 أبريل 2008 في 14:01

السلام عليكم اولا لكم جزيل الشكر على اجابتكم وجزاكم الله الف خير ولكن قصدي من السؤال ليس هكدا ساوضح لكم اكتر

انااقصد اننى اريد ان اجعل ترقيم موقع العنصر فى الكمبوبوكس نفس ترقيم id لحقل الاسم فى الداتابيس متلا لدى الجدول التالى

name_cat id

8 notebook

40 pen

20 book

يعنى اريد ان يكون index للصنف notebook فى الكمبوبوكس هو 8 كما هو مرقم فى الدتابيس

مع العلم ان حقل id حقل اساسى دو ترقيم تلقائى

ارجوا ان تكونوا قد فهمتم قصدى ولكم جززززززززززززززززززيل الشكر

#58 أبريل 2008 في 15:27

الطريقة التي منحتها لك هي الطريقة الصحيحة ، ولكن يمكنك جلب قيمة الـ ID من الكومبو من خاصية ItemData كما يلي :

strSQl = "update table_cat set name_cat= '" & Text1.Text & "'" & "where id=" & Combo1.ItemData(Combo1.ListIndex) & " "