vb6 :Data & Combo box

[mehdi-89]

من یک فرم حاوی دو تا کومبو باکس و یک کنترل دیتا دارم
کنترل دیتا دارای شامل نام دانشجو و رشته و نام استاد می باشد
کومبو باکس یک نام دانشجو و نام استاد و رشته می باشد
میخواهم وقتی در کومبو باکس یک مثلا نام استاد را انتخاب کردم در کومبو دو نام همه اساتید موجود در دیتا لیست بشه و وقتی در کومبو یک نام دانشجو را انتخاب کردم نام دانشجویان در کومبو دو لیست شود
لطفا در صورت امکان کد مربوط به برنامه فوق را بنویسید

[ahwazcity]

سلام دوست عزیز شما برای این کار می توانید از یک if ساده استفاده کنید که اگر مقدار کمبو باکس مساوی مثلاً استاد شد کمبو باکس دومی این اسامی رو add کنه به این توجه کن

if cmb1.text="Ostad then
cmb2.additem="Ostad1
.
.
.
.
end if

[samkoper]

با سلام
اين يك نمونه كد كامل كه ميتوني ازش استفاده كني
Adodc1.RecordSource = " select DISTINCT * from YourTabel where YourFild = '" & Combo1.Text & "'"
Adodc1.Refresh
Combo2.Clear
Adodc1.Recordset.MoveFirst
Do While Adodc1.Recordset.EOF = False
Combo2.AddItem (Adodc1.Recordset.Fields!YourFild)
Adodc1.Recordset.MoveNext
Loop
Combo2.SetFocus
موفق باشي

[saelozahra]

با سلام
اين يك نمونه كد كامل كه ميتوني ازش استفاده كني
Adodc1.RecordSource = " select DISTINCT * from YourTabel where YourFild = '" & Combo1.Text & "'"
Adodc1.Refresh
Combo2.Clear
Adodc1.Recordset.MoveFirst
Do While Adodc1.Recordset.EOF = False
Combo2.AddItem (Adodc1.Recordset.Fields!YourFild)
Adodc1.Recordset.MoveNext
Loop
Combo2.SetFocus
موفق باشي
سلام داداش
میگم من از این کد استفاده کردم
ولی بعد از یه بار اجرا
کل رکورد ها رو داخل دیتابیس خالی میکنه
کسی میدونه مشکل از کجاست؟
اینم کدا
Private Sub Form_Load()

keyworddb.Refresh
site_name.Clear
keyworddb.Recordset.MoveFirst
Do While keyworddb.Recordset.EOF = False
site_name.AddItem (keyworddb.Recordset.Fields!keyword)
keyworddb.Recordset.MoveNext
Loop

End Sub

[saelozahra]

کسی نبود جواب بده ؟