سلام
دوستان می خوام بدونم چه جوری میشه با استفاده از combobox جداول رو از بانک انتخاب کرد و با انتخاب جدول مورد نظر محتویات اون در data gride نشان داده بشه ممنون میشم اگه کسی بتونه کمک کنه
کاربر شهرسختافزار
سلام
دوستان می خوام بدونم چه جوری میشه با استفاده از combobox جداول رو از بانک انتخاب کرد و با انتخاب جدول مورد نظر محتویات اون در data gride نشان داده بشه ممنون میشم اگه کسی بتونه کمک کنه
|
|
مدیر انجمن برنامه نویسی و رباتیک
با سلام!
شما بايد نام جداول موجود در پايگاه رو به عنوان Item به Combobox اضافه كنيد. سپس براساس مقدار انتخابي در Combobox كه در حقيقت نام جدول تون هست مي تونيد يه Connection String جديد ايجاد كنيد (مقدار Select شده در Combobox رو استخراج كنيد و به رشته ي اتصال بچسبانيد.)
در نهايت مي تونيد با افزودن كنترل DataGrid به برنامه و بهره گيري از دستورات SQL نظير SELECT ، داده هاي جدول مورد نظر رو در ديتاگريد نمايش بديد. براي آشنايي بيش تر با اين كار پيشنهاد مي كنم به لينك هاي زير مراجعه كنيد:
http://www.vbtutor.net/lesson26.html
http://www.vbtutor.net/vb6/lesson27.html
موفق باشيد
آرمين
'چو ایران نباشد، تن من مباد
Dim Armin As Iranian
If Iran.Enabled = False Then Armin.Enabled = False
30yamak (04-12-11), P A R H A M (04-12-11), Rezasam1 (03-12-11)
کاربر شهرسختافزار
ممنون دوست عزیز
ببینید شاید درست نرسونده باشم در واقع برنامه ای که من می نویسم بانک sql طراحی شده خوب تو این بانک برای مثال اسم شهرها نام جدول های ما هستند درسته
و داخل هر شهری آیتم هایی وجود دارند من میخوام با انتخاب شهر تهران اطلاعات جدول تهران رو در datagrid نشون بده و با انتخاب شهر مشهد دتاگرید ما فقط اطلاعات شهر مشهد رو نشون بده .
مدیر انجمن برنامه نویسی و رباتیک
خواهش مي كنم!
بنده گمان مي كنم سوال شما رو از ابتدا درست درك كردم. جواب بنده هم در حقيقت همان پاسخ سوال شماست.
به عنوان مثال شما يك ComobBox تحت نام ComboBox1 در اختيار داريد. در درون ComboBox1 نام چندين شهذ قرار داده شده كه عينا" برابر نام جداول موجود در پايگاه SQL شماست. شما كافيه كه تنها به هنگام اتصال به پايگاه در رشته ي اتصال نام جدول رو با توجه به آيتم انتخاب شده از ComboBox1 استخراج كنيد و پس از اتصال داده ها آن جدول رو وارد ديتاگريد كنيد:
در كد بالا constr رشته ي اتصال شما محسوب مي شودکد:Dim constr As String constr = "Data Source=myServerAddress;Initial Catalog="+ComboBox1.List(ComboBox1.ListIndex)+";"
موفق باشيد
آرمينبرای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید
آخرین ویرایش توسط ravegoat در تاریخ 05-12-11 انجام شده است
'چو ایران نباشد، تن من مباد
Dim Armin As Iranian
If Iran.Enabled = False Then Armin.Enabled = False
کاربر شهرسختافزار
ممنون دوست عزیز اما من تست کردم جواب نداد
اگه لطف کنی یه برنامه کوچک با توجه به گفته هات بزاری ممنونت میشم
مدیر انجمن برنامه نویسی و رباتیک
خواهش مي كنم دوست گرامي!
متاسفانه بنده اصلا" با VB6 كار نمي كنم! اگر خواستيد كد VB.NET شو مي تونم براتون تهيه كنم.
اگه امكانش هست بفرماييد كه در روند اجراي فرمان ها به چه اشكالاتي بر خورد كرديد تا بشه راهنمايي بهتري ارايه داد.
آرمين
'چو ایران نباشد، تن من مباد
Dim Armin As Iranian
If Iran.Enabled = False Then Armin.Enabled = False
Rezasam1 (05-12-11)
|
|
1 کاربر در حال مشاهده این موضوع. (0 عضو و 1 میهمان)
Bookmarks