Función de clase. Reemplace la cadena pasada en una expresión después de la palabra clave Where en la instrucción SQL:
Búsqueda de palabras [Por ejemplo: Xiao Ming]
Búsqueda de frases
Cada palabra en la frase se recuperará
Por ejemplo: xiaoqiang 1 apodo 1 xiaoqiang 1 xiaoqiang xiaoqiang
Búsqueda lógica
Apoyos y operadores.
Por ejemplo: Xiao Ming y Xiao Qiang y Xiao Qiang
Condiciones compuestas:
Por ejemplo: (Xiao Xiaoming o Xiaoming) y (Xiaoqiang o Xiaoxiaoqiang)
Por ejemplo: (Xiao Xiaoming o apodo) y Xiao Xiaoqiang
Por ejemplo: root1and (Guangdong o Beijing)
-----------------------------------------------------------
La copia del código es la siguiente:
ClassCreateCuteryString
Publicobjreg
PublicInttart
Campo público
PrivateBjnode2
Privatestrtext
PublicPropertyLetQueryString (StrValue)
strtext = lcase (strvalue)
Endpropertía
Privatesubclass_initialize ()
Setobjreg = newegexp
strfield = "(título + artículo)"
Endsub
Privatesubclass_merminate ()
Setobjreg = nada
Endsub
PublicDefaultFunctionGettext ()
Dimbladores
Dimstrsky
Sinbjreg
.IngineCase = True
.Global = verdadero
.Pattern = "/s"
blnres = .test (strtext)
Fin
If (Notblnres) entonces
intstart = 2
GetText = strfield y "me gusta '%" & strtext & "%'"
Demás