ورود

View Full Version : نمایش کامل دیتابیس در کمبو باکس ایکس پی


silverado
چهارشنبه 18 فروردین 1389, 23:39 عصر
سلام . من توی برنامه ای که دارم می نویسم یه کمبو باکس ایکس پی گذاستم که می خوام اطلاعات دیتابیس رو نمایش بده . من برای این کار یه کنترل data گذاشتم و خاصیت databasename رو دیتابیسی که درست کردم و خاصیت RecordSource رو هم جدولم گذاشتم و تنظیمات کمبو رو هم همینطور اما زمان اجرای برنامه کمبو فقط اولین فیلد جدول رو نشون میده . چه کار باید کرد که تمام فیلد رو نمایش بده . اگه کسی هر چه زودتر بتونه کمکم کنه ممنون می شم .
محسن شامحمدی
جمعه 20 فروردین 1389, 22:16 عصر
دوست عزيز اين كار بصورت خودكار و با لينك كردن امكان نداره و تنها راهش اينه كه هنگام باز شدن فرم توي يك حلقه for تك تك آيتم هاي ديتابيس رو توي combo اضافه مي كني
xxxxx_xxxxx
جمعه 20 فروردین 1389, 22:59 عصر
قبل از ایجاد تاپیک جستجو کنید.

http://barnamenevis.org/forum/showthread.php?t=160899
silverado
شنبه 21 فروردین 1389, 00:41 صبح
با سلام .
جناب آقای مدیر بخش لطفاً شما هم قبل از اینکه سریع قوانین سایت رو بذارین و هی بگین جست و جو کنید یه کمی دقت کنید بد نیست . این لینکی رو که دادین خودم دیدم اما من توی برنامم combo ویندوز xp گذاشتم . برای همین خیلی با اون موضوع فرق داره . با تشکر:متفکر:
silverado
شنبه 21 فروردین 1389, 00:42 صبح
سلام دوست عزیز ممنون می شم اگه کدش رو برام بذاری چون نمی دونم باید چی بنویسم . یه مقدار هم عجله دارم با تشکر .
xxxxx_xxxxx
شنبه 21 فروردین 1389, 09:50 صبح
تنظیمات Combo رو حذف کنید.


For i = 0 To Adodc1.Recordset.RecordCount - 1
Combo1.AddItem Adodc1.Recordset.Fields(Index)
Adodc1.Recordset.MoveNext
Next i