دیتابیس

[Mohsen.Sh_PC]

سلام یک سوال خیلی حیاتی داشتم.
میخوام یک لیست باکس رو به کنترل ADO ربط بدم.
تکس باکس رو انجام دادم ولی لیست باکس نمیشه.
متشکر

[Mohsen.Sh_PC]

کسی نبود

[sadeghbarout]

برای اتصال لیست باکس باید از ابزار datalist استفاده کنی این ابزار تمام موارد موجود در اون فیلد آدرس دهی شده رو در یه لیست باکس نشون میده
برای اضافه کردنش باید از منوی project گزینه components رو انتخاب کنی و بعد گزینه Microsoft Datalist cintrols 6.0 رو تیک بزنی

امیدوارم جوابت رو گرفته باشی

[Mohsen.Sh_PC]

خیلی خیلی متشکرم

[Mohsen.Sh_PC]

اگه میشه توی این مشکل راهنمایی کنید.
توی فرم فقط یک لیست باکس متصل به یک جدول پایگاه داده است که جدول دیگه لیست قیمت هاست و نشون داده نمیشه
حالا میخوام وقتی کاربر توی لیست باکس یک محصول رو انتخاب کرد قیمتش هم که توی همون جدوله توی یک متغیر بریزم.
حالا چطوری باید قیمتش رو بدست بیارم.
متشکرم.

[sadeghbarout]

اگه درست فهمیده باشم توی یه table نام اجناس رو داری که کنارش قیمتشون هم هست
حالا فرض کن نام اجناس توی فیلد name و قیمت هم توی فیلد cost باشه
با کد زیر میتونی با کلیک روی جنس مورد نظر توی datalist1 قیمتش رو با msgbox ببینی

Private Sub DataList1_Click()

Adodc1.RecordSource = "select*from table1 where name='" & DataList1.Text & "'"
Adodc1.Refresh

MsgBox Adodc1.Recordset.Fields("cost")

Adodc1.RecordSource = "select*from table1"
Adodc1.Refresh

End Sub

موفق باشی...

[Mohsen.Sh_PC]

یا من اشتباه نوشتم یا کد یک جاهاییش اشکال داره.
آخه فقط رکورد اول از فیلد Cost رو نمایش میده
مثلا وقتی رو یک جنس که قیمت 25000 تومانه رو باید نشون بده ولی رکورد اول رو نشون میده برای همه اجناس

[sadeghbarout]

اون lanme رو به cost تغییر داده بودی؟
حالا تغییرش دادم ببین درست شد؟

[Mohsen.Sh_PC]

آره اونو تغییر داده بودم
اگه میشه خودتون همین یک تیکه رو درست کنید و آپلود کنید اگه زحمتی نیست؟

[sadeghbarout]

اینم برنامه ای که میخواستی
فقط یه جور دیگه نوشتمش اینجوری کدش کمتره

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید