PDA

View Full Version : جستجو براساس کلمات میانی



vahidm
دوشنبه 02 مهر 1386, 23:59 عصر
با سلام من می خوام یک جستجو در برنامه درست کنم که
اگر مثلا همچین کلمه بود
(( سایت برنامه نویسی برنامه نویس ))
که اگر نوشتم نویسی اطلاعات مربوط به آن رکورد رو در dbgrid بنویسه

mf_engineer
سه شنبه 03 مهر 1386, 03:48 صبح
باسلام
من فکر می کنم شما باید در strsql از Like استفاده کنید که باعث می شه هرجا مثل "نویسی " رو دید براتون بیاره
کد:


strsql = Select * from tablename where Like '%"عبارت مورد نظر"%'

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

noorsoft
سه شنبه 03 مهر 1386, 05:03 صبح
باسلام
من فکر می کنم شما باید در strsql از Like استفاده کنید که باعث می شه هرجا مثل "نویسی " رو دید براتون بیاره
کد:

strsql = Select * from Like "عبارت مورد نظر"

دوست عزیز اولا بعد از عبارت From نام دیتابیس را قرار میدن
دوما برای شرط از عبارت Where استفاده میکنن
سوما Like را با % به کار می برن
چهارما رشته را باید بین دبل کوتیشن قرار داد

مبین رنجبر
سه شنبه 03 مهر 1386, 09:18 صبح
کد کامل کاری که می خوای انجام بدی اینه :



Public Function JomleCheck(szInputText As String) As String
JomleCheck = Replace(szInputText, " ", "%")
End Function

Private Sub Text1_Change()
StrInput = JomleCheck(Text1.Text)
Adodc1.RecordSource = "select * from Table1 where (Table1.Field1 like '%" & StrInput & "%') "
Adodc1.Refresh
End Sub



این کد بالا هر چی داخل تکست باکس وارد می کنی رو بین تمام کلمه های موجود در بانک سرچ می کنه ...اگر Adodc رو به دیتا گرید لینک بدی موضوع رو کامل متوجه می شی

البته باید بگم این داخل این کد حتما باید اسم جدول و اسم فیلدی که اون کلمه رو که می خوای سرچ کنی رو بگی

در کد بالا اسم جدول : Table1
اسم فیلد بالا : Field1