Postagens
Male
Pessoal,
Estou tentando uma busca interna por mais de uma palavra. O código está funcionando quando roda em um Oracle mas, quando uso o Access, zica. Alguém tem alguma idéia do que pode ser?
Segue:
var_nome = SESSION("BUSCA")
strTexto = Trim(var_nome)
IF strTexto <> "" THEN
strChr = (" ")
iNumChr = 0
For iCont = 1 To Len(Trim(strTexto))
If Mid(strTexto, iCont, 1) = strChr Then
iNumChr = iNumChr + 1
End If
Next
i = 0
VarSQL = " "
strbusca = Split(Trim(var_nome)," ")
For i = 0 To iNumChr
VarSQL = VarSQL & " (('%" & strbusca(i) & "%' = "") OR ('%"& strbusca(i) &"%' <> "" AND CADB_NM_DESCRICAO LIKE (TRANSLATE(UPPER('%"& strbusca(i) &"%'),'ãÃáÁÀÅåàÂâÄäõÕóÓÒòÔôÖöéÉÈèëËÊêíÍÌìïÏÎîÇçÚÙÛÜüúùû','aAaAAAaaAaAaoOoOOoOoOoeEEeeEEeiIIiiIIiCcUUUUuuuu'))))"
Next
END IF
Valeu!
