[Resolvido] consulta like não funciona. pq?

[rafa-martin 2]

pessoal eu tenho uma tabela de profissionais. lá tem vários profissionais com o nome rafael.

 

aí estou fazendo a seguinte consulta:

 

select * from tblProfissional where nom_profissional like '%rafa%'

 

porém nãó está trazendo nada, mesmo tendo vários rafael na tabela.

 

pq?

 

o banco é access.

[Ted k' 126]

só faça um teste assim:

 

variavel = "rafa"

Set Rs = Conn.Execute("select * from tblProfissional where nom_profissional like '%"&variavel&"%'")

[rafa-martin 2]

a sentença saiu asism:

 

nome="rafa"

select nom_profissional, cpf_profissional, end_profissional, num_profissional, comp_profissional, cep_profissional, cidade_profissional, uf_profissional, telefone_profissonal, dat_nascimento, link_video from tblProfissional WHERE nom_profissional like '%rafa%'

 

e mesmo assim não trouxe. qual pode ser o erro?

[rafa-martin 2]

velho funfou.

 

apenas fiz uma alteração do arquivo e salvei e funfuou.

 

sei lá. mais vlw

 

kra tenho uma outra duvida.

 

eu tenho vários opções de filtro.

 

então no meu select eu faço o seguinte:

 

sql = "select * from tabela where "

 

if request("nome_profissional") <> "" then

sql = sql & " nom_profissional like '%" & request("nome_profissional") & "%' AND"

 

elseif request("cod_pele") <> "" then

sql = sql & " cod_pele= '" & request("cod_pele") & "' AND "

 

elseif request("espec") <> "" then

sql = sql & " especialidade = '" & request("espec") & "' AND "

 

elseif request("cor_cabelo") <> "" then

sql = sql & " cor_cabelo = '" & request("cor_cabelo") & "' AND "

 

elseif request("sexo") <> 0 then

 

sql = sql & " sexo_profissional = " & request("sexo") & " AND "

elseif request("sigla") <> "" then

 

sql = sql & " uf_profissional = " & request("sigla") & " AND "

 

end if

 

como eu faço para tira o AND? pq quando eu fizer o filtro apenas por um campo vai me dar um erro de sintaxe pq terá esse AND no final. como faço para tratar eles?

[rafa-martin 2]

kra como não achei função na net, fiz essa:

 

Function TratarStringSql(pstrSql)

Dim mstrReturn

 

mstrReturn = pstrSql

 

If UCase(Right(Trim(pstrSql), 3)) = "AND" Then

mstrReturn = Mid(Trim(pstrSql), 1, Len(Trim(pstrSql)) - 3)

End If

 

If UCase(Right(Trim(pstrSql), 5)) = "WHERE" Then

mstrReturn = Mid(Trim(pstrSql), 1, Len(Trim(pstrSql)) - 5)

End If

 

TratarStringSql = mstrReturn

 

End Function

 

funfou bacaninha