مشکل با تعریف کردن

[M-NINJA]

با سلام

من قبلا پست زدم ولی نمی دونم چرا پاک شد

من دو تا table به نام های es ,ac

من در جدولes آیتم های زیر رو دارم
-----------------------------------
1 1ماهه 1000تومان
2 3ماهه 2500 تومان
3 6ماهه 4000 تومان
4 1ساله 8000 تومان
------------------------------------
من در فرمم بک کمبوباکس و یک لیبل دارم
کمبو باکس دارای آیتم های 1،2،3،4

من میخوام وقتی کاربر شماره 3 رو انتخاب کرد اون رو مساوی 6شماه قرار بده و قیمتش رو تو لیبل چاپ کنه

اگه سورسش رو بدین متشکر میشم:قلب:

با تشکر

[M.T.P]

اسم لیبل ها و کمبو و فیلد رو مطابق برنامه تون بزارید.



If Rs.State = adStateOpen Then Rs.Close
Rs.Open "Select * From es"
Rs.AbsolutePosition = Combo1.ListIndex + 1
Label1.Caption = Rs("Fee").Value

[M-NINJA]

بانک من اکسس؟:لبخند:

[M.T.P]

بانک من اکسس؟:لبخند:

فرقی نداره :لبخند:
Rs متغیری از نوع رکوردست هست.


Dim Rs As New ADODB.Recordset

با ADODB کار میکنی یا ADODC ؟ :متفکر:

[M-NINJA]

با adodc :قلب:

[M.T.P]

به جای FieldIndex ایندکس فیلد قیمت رو بزار.



Adodc1.RecordSource = "Select * From es"
Adodc1.Refresh
Adodc1.Recordset.AbsolutePosition = Combo1.ListIndex + 1
Label1.Caption = Adodc1.Recordset.Fields(FieldIndex).Value

[M-NINJA]

Error میده :گریه:

[M.T.P]

:لبخند: :قلب: :لبخند: