سلام دوستان من به يه مشكل برخوردم هر چي هم فكر مي كنم به جايي نميرسم
من مي خوام تو وي بي يك ليست باكس بزارم و به ديتابيس وصلش كنم تا تمام ركوردهاي يك فيلد از ديتابيس اكسس را نشان بده ولي با دستوري كه من دادم فقظ ركورد جاري اون فيلد رو نمايش ميده اينم كدي كه نوشتم مرسي ("List1.AddItem Data1.Recordset.Fields("tuserid
sinacomputer نوشته است:سلام دوستان من به يه مشكل برخوردم هر چي هم فكر مي كنم به جايي نميرسم
من مي خوام تو وي بي يك ليست باكس بزارم و به ديتابيس وصلش كنم تا تمام ركوردهاي يك فيلد از ديتابيس اكسس را نشان بده ولي با دستوري كه من دادم فقظ ركورد جاري اون فيلد رو نمايش ميده اينم كدي كه نوشتم مرسي ("List1.AddItem Data1.Recordset.Fields("tuserid
خوب معلومه كه فقط ركورد جاري رو بايد نشون بده
![[تصویر: 24.gif]](http://asefsoft.com/qsimages/24.gif)
اين دستور رو بايد بزاري توي يه حلقه كه حلقه به تعداد ركوردهات بايد تكرار بشه و بعد از اضافه كردن يه ايتم به ليست ديتا رو يه دونه move next كني ! همين
![[تصویر: 110.gif]](http://asefsoft.com/qsimages/110.gif)
خيلي ممنون از همكاريت ولي من تونستم اين كار رو با استفاده از DBList ویژوال بیسیک انجام بدم شما هم امتحان کنید خیلی چیز ردیفیه.
sinacomputer نوشته است:خيلي ممنون از همكاريت ولي من تونستم اين كار رو با استفاده از DBList ویژوال بیسیک انجام بدم شما هم امتحان کنید خیلی چیز ردیفیه.
خوشحالم
![[تصویر: 22.gif]](http://asefsoft.com/qsimages/22.gif)
For i = 1 To Adodc1.Recordset.RecordCount
List1.AddItem Adodc1.Recordset.Fields("name")'name is my field cheng to your field
Adodc1.Recordset.GetRows (1)'harakat ye done
Next
اين كدي كه خودم كشف كردم و خيلي هم كوچيكه
فكر كنم تو دنبال همين مي گشتي چون منم مي خواستم دنبالش بگردم نشستم با كمي فكر خودم نوشتم
هيچ موقع سعي نكن نا اميد بشي اول واقعاْ خودت فكر كن ببين اگه نمي توني بعدا كمك بخوا
فعلا!
در ضمن اين در كمبو هم صدق مي كنه
کد:
On Error GoTo f
For i = 0 To b.RecordCount
List1.AddItem b.Fields("FildName")
b.MoveNext
Next i
f:
سلام اين رو هم.......
جواب داد ؟ :oops: 8)

:wink:
با سلام
اگر ممکنه من رو در اين زمينه راهنمايي کنيد:
ميخوام يک combo box در فرمم درست کنم که دو گزينه داشته باشه و با انتخاب هر گزينه و سپس زدن دکمه گزارش اون گزينه را نمايش بده.
امکان همچين کاري وجود داره؟
يک سوال ديگه هم داشتم:
توي فرمم دو تا combo box دارم که يکي نام شرکت و يکي واحدهاست.
ميخوام وقتي که شرکت رو انتخاب ميکنم، combo box دوم فقط واحدهاي مربوط به همون شرکتي رو که انتخاب کردم نشون بده و واحدهاي همه شرکتها رو با هم نشون نده.
چند راه کار که توي سايتهاي مختلف بود رو انجام دادم، ولي وقتي انجامشون ميدم combo box دوم رو خالي نشون ميده.
با تشکر
(۱۹-بهمن-۱۳۹۲, ۰۹:۳۹:۴۶)vida_parsa نوشته است: [ -> ]اگر ممکنه من رو در اين زمينه راهنمايي کنيد:
ميخوام يک combo box در فرمم درست کنم که دو گزينه داشته باشه و با انتخاب هر گزينه و سپس زدن دکمه گزارش اون گزينه را نمايش بده.
امکان همچين کاري وجود داره؟
سلام شما یک شرط بر اساس ایندکس کمبو باکس بگذارید اگر 0بود دستور اول و اگر یک بود دستوردوم را انجام دهد
---------
(۱۹-بهمن-۱۳۹۲, ۰۹:۳۹:۴۶)vida_parsa نوشته است: [ -> ]يک سوال ديگه هم داشتم:
توي فرمم دو تا combo box دارم که يکي نام شرکت و يکي واحدهاست.
ميخوام وقتي که شرکت رو انتخاب ميکنم، combo box دوم فقط واحدهاي مربوط به همون شرکتي رو که انتخاب کردم نشون بده و واحدهاي همه شرکتها رو با هم نشون نده.
چند راه کار که توي سايتهاي مختلف بود رو انجام دادم، ولي وقتي انجامشون ميدم combo box دوم رو خالي نشون ميده.
اطلاعات از دیتابیس میخونید؟؟؟