سرچ بر اساس چند پارامتر!

[niksalehi]

من کدی رو میخوام که بر اساس دو تا پارامتر ( نام و نام خانوادگی) بیاد و توی تیبل خاصی سرچ کنه
بانکم اکسس هستش و میخوام از adodc استفاه کنم:چشمک:
میدونم که قبلا گفته شده بود اما از صبح دنبال کدشم پیداش نمیکنم!

[niksalehi]

سوالم انقد بی ربطه؟ یا سخته؟

[M.T.P]

سوالم انقد بی ربطه؟ یا سخته؟

نه طبق قوانین سایت این سوال شما به بانک اطلاعاتی مربوط میشه و باید در بخش مربوطه ایجاد میشد ، انتقالش بدید.

شما می تونید با کلید واژه AND یا OR چندین شرط رو برای جستجو ملاک قرار بدید.

اینجا (http://www.w3schools.com/sql/sql_and_or.asp) رو ببینید.

[naeim_1369]

سلام دوست عزیز
شما می توانید با کد زیر جستجو نمائید


در قسمت جنرال دو متغیر تعریف کنید

dim i as integer
dim j as boolean


private sub ...()I


ado را به اول دیتا بیس منتقل کنید

if adodc1.recordset.bof=false then adodc1.recordset.movefirst

برای متوقف ساختن چرخش while از دو متغیر بالا استفاده کنید


i=1
j=false

حالا چرخشمون شروع میشه!





While i


اگر کنترل آدو جایی برای حرکت داشته باشد

If Adodc1.Recordset.EOF = False Then

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

If Trim(Adodc1.Recordset.Fields("Nam")) Like Trim(text1.text) & "*" And Trim(Adodc1.Recordset.Fields("famil")) Like Trim(text2.text) & "*" then

اضافه کن سطر را به "لیست باکس یک"

List1.AddItem Adodc1.Recordset.Fields!nam & vbTab & Adodc1.Recordset.Fields!famil

اگر کنترل آدو جایی برای حرکت به جلو داشته باشه به سطر بعد بره

if adodc1.recordset.eof = false then Adodc1.Recordset.MoveNext

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

if adodc1.recordset.eof = true then

کد توقف چرخش

i=0
j=true
exit sub
endif
endif
endif
wend
end sub

اینو هم بگم که کد بالا نام و فامیلی که شباهتی به نوشته داخل تکست باکس داشته باشه به لیست اضافه میکنه
مثلاً من مینویسم محمد ، هرچی اسم محمد هست رو میاره
یا در قسمت فامیل هم همینطور
امیدوارم به دردت بخوره