کمک فوری فوری فوری

[sara_$68$]

سلام بچه ها من يه کمبوباکس اوردم تو فرمم...
اطلاعات تو بانکمو نشون ميده حالا ميخوام اگه کد 44 رو انتخاب کردم تو تکستي که گذاشتم نام مربوط به کد 44 رو نشونم بده..
چند روز علاف همين تکه کدم...
اين کدو نوشتم ولي جواب نميده
منو کمک بدين
ان کد جستجو جواب نميده
Private Sub Combo1_Change()
Adodc1.RecordSource = "select * from mosafer where code='" & Combo1.Text & "'"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount >= 1 Then
Text1.Text = Adodc1.Recordset.Fields("name")
Else
MsgBox ("nist")
End If
End Sub
نمايش اطلاعات بانک تو کمبو باکس که جواب ميده
Private Sub Form_Load()
Adodc1.RecordSource = "select * from mosafer"
Adodc1.Refresh
For i = 1 To Adodc1.Recordset.RecordCount
Combo1.AddItem Adodc1.Recordset.Fields("code")
Adodc1.Recordset.MoveNext
Next i
End Sub
البته الان قاطی پاتی شده اگه میتونید کمکم کنید مسئله مرگ و زندگیه...دمتون صلوات

[farshidshd]

سلام

خب اولا کومبو ی معمولی نمیشه باید شی Data Combo رو بزاری تو صفحه

باید قسمت Components گزینه ی Microsoft ADO Data Control 6.0 (SP6) (OLEDB) رو انتخاب کنب و بعد شی DataCombo رو بزاری تو فرم

بعد توی دیتا کومبو مینویسی :


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


قبلش باید دیتا کومبو رو به اون بانکت متصل کنی

به ترتیب زیر عمل کن::

اول وقتی روی دیتا کومبو کلیک کردی تو قسمت Properties زبانه ی Categorized رو انتخاب کن ::

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


بعد به ترتیب شماره گذاری اولی که همون بانکی هست که میخوای بهش متصل بشی ( اینجا Adodc2 هست )

دومی و سومی هم همون فیلدی هست که میخوای اطلاعاتش رو بزاری تو دیتا کومبو

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


در ضمن اون تکستی که میخوای اطلاعات رو نشون بده هم به همین ترتیب بیاد متصل کنی به یه بانک دیگه که توی یه بانک جدا ذخیره بشه


اگه میخوای کدی که انتخاب میکنی ، نام مورد نظر وارد text بشه باید قسمت Data Source و Data Field رو تکمیل کنی.





.

[sara_$68$]

ممنون دوست عزیز...ولی اشتباه من این بود که کد رو تو خاصیت change نوشته بودم باید تو خاصیت Click می نوشتم.
مرسی که کمک کردی