دسترسي به اطلاعات ديگر فيلدها‍‍

[مهدی قنبری]

من ميخوام با انتخاب يك گزينه از دي بي كمبو كه اطلاعات فيلدي از جدول است به اطلاعات فيلد مقابل آن هم دست يابم

تشكر ازهمه دوستان:لبخندساده:

[xxxxx_xxxxx]

برای اینکه آیتم های DBcombo تون رو از دست ندید به یک Recordset جدید نیاز دارید. با این Recordset جدول رو بر اساس آیتم انتخاب شده DBcombo فیلتر کنید.

[مهدی قنبری]

منظور من اين نيست بطور مثال باانتخاب نام فرداز داخلdbcombo شماره شناسنامه اودر يك Textbox
ظاهر شود:لبخندساده:
راستي كامپيوتر چطور حروف فارسي روتشخيص ميده مثلادر حروف فارسي ما يه (م اول داريم يه م وسط داريم يه م آخر ويه م تنها)؟:متفکر:

[Dr.Bronx]

منظور من اين نيست بطور مثال باانتخاب نام فرداز داخلdbcombo شماره شناسنامه اودر يك Textbox

خوب ایشون هم که همینو گفتن دیگه :متفکر:
من با rs توضیح میدم

اول که باید یک ارتباط با بانک ایجاد کنیم


dim conn as new adodb.connection
dim rs as new adodb.recordset

conn.open "Your Connection is here"

rs.open "select field1 from table1",conn,adopenstatic,adlockoptimistic


combo1.clear
for i = 1 to rs.recordcount
combo1.additem rs("Field1"(
rs.movenext
next i

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

dim rs2 as new adodb.recordset

یک تکست باکس هم روی فرم داریم به نام text1

خوب حالا میایم در رویداد combo.change
می نویسیم


rs2.open "select field1 from table1 where field1 =" & combo1.text,conn,adopenstatic,adlockoptimistic

حالا می نویسیم :

text1 = rs2("field2")

اگر در کدها ایرادی بود عذر می خوام چون وی بی دم دست نبود و چیزی که توی ذهنم بود نوشتم./



م اول داريم يه م وسط داريم يه م آخر ويه م تنها

بالاخره یک "م" داره دیگه . نداره ؟
موفق و موید باشید.