View Full Version : سوال: سرچ بر اساس چند پارامتر!
niksalehi
سه شنبه 12 اردیبهشت 1391, 16:35 عصر
من کدی رو میخوام که بر اساس دو تا پارامتر ( نام و نام خانوادگی) بیاد و توی تیبل خاصی سرچ کنه
بانکم اکسس هستش و میخوام از adodc استفاه کنم:چشمک:
میدونم که قبلا گفته شده بود اما از صبح دنبال کدشم پیداش نمیکنم!
niksalehi
چهارشنبه 13 اردیبهشت 1391, 15:55 عصر
سوالم انقد بی ربطه؟ یا سخته؟
M.T.P
چهارشنبه 13 اردیبهشت 1391, 16:45 عصر
سوالم انقد بی ربطه؟ یا سخته؟
نه طبق قوانین سایت این سوال شما به بانک اطلاعاتی مربوط میشه و باید در بخش مربوطه ایجاد میشد ، انتقالش بدید.
شما می تونید با کلید واژه AND یا OR چندین شرط رو برای جستجو ملاک قرار بدید.
اینجا (http://www.w3schools.com/sql/sql_and_or.asp) رو ببینید.
naeim_1369
چهارشنبه 13 اردیبهشت 1391, 21:31 عصر
سلام دوست عزیز
شما می توانید با کد زیر جستجو نمائید
در قسمت جنرال دو متغیر تعریف کنید
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
اینو هم بگم که کد بالا نام و فامیلی که شباهتی به نوشته داخل تکست باکس داشته باشه به لیست اضافه میکنه
مثلاً من مینویسم محمد ، هرچی اسم محمد هست رو میاره
یا در قسمت فامیل هم همینطور
امیدوارم به دردت بخوره
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.