Usando Hb_RegExSplit para construir um LIKE SQL
Enviado: 26 Jan 2021 21:16
Estou usando em uma rotina de consulta por nomes, se tem forma melhor eu aceito
cTeste := ",JOAO ,, MARIA,JOSE "
cTeste := ",JOAO ,, MARIA,JOSE "
Código: Selecionar todos
cTeste := ",JOAO ,, MARIA,JOSE "
aLike := Hb_RegExSplit( ",", AllTrim( cTeste ) )
FOR EACH oElemento IN aLike
IF Empty( oElemento )
Hb_aDel( aLike, oElemento:__EnumIndex, .T. )
ENDIF
NEXT
cLike := ""
FOR EACH oElemento IN aLike
cLike += "APC.NOME LIKE '%" + AllTrim( oElemento ) + "%'"
IF Len( aLike ) > 1 .AND. oElemento:__EnumIndex < Len( aLike )
cLike += " OR "
ENDIF
NEXT
cQuery := "SELECT " + ;
" * " + ;
"FROM " + ;
" CADASTROSOCIOS APC " + ;
"WHERE " + ;
cLike + ;
"ORDER BY " + ;
" APC.NOME, APC.CODIGO"