ورود

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



Fery666
چهارشنبه 28 مرداد 1388, 11:25 صبح
با سلام و خسته نباشید به همه دوستان.
من یه برنامه ای نوشتم و می خوام سرچ برنامه به صورتی باشه که شخص تو قسمت جستجو حرفی رو نوشت این حرف هر جایی از متن توی اون فیلد بود رو نشون بده .

مثلا : اگر تو قسمت جستجو نوشتم که شیر آلات هر فیلدی که تو بانک اطلاعاتی تو یه جملش شیر آلات بود رو نشون بده .
یه جورایی مثل سرچ ویندوز ویستا یا سون .

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

اگر بتونین کمکم کنین ممنون میشم.

Tasiyan
چهارشنبه 28 مرداد 1388, 11:33 صبح
جستجو کنید ده ها بار این موضوع عنوان شد
http://barnamenevis.org/forum/showpost.php?p=734141&postcount=2

powerboy2988
چهارشنبه 28 مرداد 1388, 12:22 عصر
Dim s, ms As String
Dim b As Boolean
Set ADC_s = New ADODB.Recordset
ms = "select * from s"
b = False

If Trim(txtId.Text) <> "" Then
If b = False Then
s = " ID_s like '%" + Trim(txtId.Text) + "%'"
b = True
Else
s = s + " and ID_s like '%" + Trim(txtId.Text) + "%'"
End If
End If

If Trim(txtName.Text) <> "" Then
If b = False Then
s = " Name_s like '%" + Trim(txtName.Text) + "%'"
b = True
Else
s = s + " and Name_s like '%" + Trim(txtName.Text) + "%'"
End If
End If

If Trim(txtFamily.Text) <> "" Then
If b = False Then
s = " Family_Athlete like '%" + Trim(txtFamily.Text) + "%'"
b = True
Else
s = s + " and Family_Athlete like '%" + Trim(txtFamily.Text) + "%'"
End If
End If

If b = False Then
s = ms + s
Else
s = ms + " where(" & s & ");"
End If

ADC_s.Open s, cnn, adOpenKeyset, adLockOptimistic, adCmdText
Set DG_Search.DataSource = ADC_s