استفسار عن listbox

#626 فبراير 2007 في 22:53

عبد العزيز اليوسفي كتب:
كما قال الأخ MohamedAliSalim الملف معطوب

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

لقد أعدت ضغط المثال و رفعه مرة أخرى ( لعل السبب هو في طريقة الضغط )

شكرا لأهتمامكم ولا تنسوني من مساعدتكم

و تحياتي

test.zip

#727 فبراير 2007 في 12:06

الفكرة يا خوان هي بكل بساطة

بعد الضغط على زر command1 سيتم نقل العناصر المحددة إلي listbox2 المطلوب هو كيف نقدر نحفظ محتويات listbox2 في قاعدة البيانات ؟؟

و أدرجت لكم صورة توضيحية للفكرة و أعدت ضغط و تحميل المثال.

تحياتي

test.zip

#81 مارس 2007 في 22:03

على الرحب والسعة ، تفضل:

Private Sub Command1_Click()
For i = 0 To lstleft.ListCount - 1
lstleft.ListIndex = i
Data1.Recordset.AddNew
Data1.Recordset.Fields![ÇáãæÌæÏÇÊ] = lstleft.Text
Data1.Recordset.Update
Next
Data1.Refresh
MsgBox "Êã ÇáÍÝÙ ÈäÌÇÍ"
End Sub

#97 مارس 2007 في 02:44

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

آسف لتأخري في الرد

بالنسبة للكود الذي أدرجته فهو يعمل بطريقة ممتازة و لكن للأسف لا حظت أن الكود يقوم بإدراج عناصر listbox كل عنصر في سجل خاص به و المطلوب هو أن يقوم بإدراجها في حقل واحد فقط

أتمنى ما أكون ثقلت عليك لكن هذي المشكلة ما زالت تشكل أمامي سد أمام إنهاء مشروعي

لك إحترامي و تقديري مرة أخرى

#107 مارس 2007 في 22:18

العفو أخي a7sanwa7ed العفو

هل تقصد إدراج عناصر الليست بوكس في سجل واحد أفقياً في عمود واحد الذي هو عندك بأسم "الموجودات" أي أن تضع بين أسماء العناصر فراغ أو إشارة.

أم تقصد إضافة كل إسم عنصر في عمود.

#117 مارس 2007 في 23:40

مثل ماهو موضح في الصورة المدرجة

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

العمود الأول هو لرقم الفاتورة و هو بترقيم تلقائي تسلسلي

و العمود الثاني يإسم الموجودات

المطلوب هو حفظ جميع عناصر listbox2 في خانة الموجودات في سجل واحد تابع لرقم الفاتورة

أتمنى أكون قدرت أوضح الفكرة

و شكرا مرة أخرى

#128 مارس 2007 في 00:53

والله الصورة تظهر عندي مغبشة قليلاً وكافة صور وأيقونات المنتدى بعد نقل السيرفر

على كل حال أظن أنك وضعت فاصلة بين الأسمين

وهذا هو طلبك:

Private Sub Command1_Click()
Dim ss As String
For i = 0 To lstleft.ListCount - 1
lstleft.ListIndex = i
ss = ss & lstleft.Text & " ، "
Next

Data1.Recordset.AddNew
Data1.Recordset.Fields![الموجودات] = ss
Data1.Recordset.Update

MsgBox "تم الحفظ بنجاح"
End Sub