Dim strSQL, tmpSQL strSQL = "SELECT title, descript, url, uid FROM searchMachine WHERE " tmpSQL = "(keywords LIKE " Dim Pos Pos = 1 While Pos > 0 Pos = InStr(1, strSearch, " ") If Pos = 0 Then 'We have it the end tmpSQL = tmpSQL & "'%" & strSearch & "%')" Else tmpSQL = tmpSQL & "'%" & Mid(strSearch, 1, Pos) & "%' " & DefaultBoolean & " keywords LIKE " strSearch = Mid(strSearch, Pos + 1, Len(strSearch)) End If End While

مدير الموقع

استاذ جزائري اقدم دروس لطلبة الباكالوريا

Facebook

Twitter

Instagram

شارك هذا المنشور

اشترك في بريدنا الالكتروني لتتوصل باشعار فور نشر موضوع جديد

منشورات مشابهة

لاتوجد منشورات اخرى في هذا القسم.