(Resolvido) Consulta Like

[Fabio AVILA]

Ola AMigos ,

To com uma duvida ak e gostaria da opnião de vocês , tem como retornar apenas uma valor especifico usando uma consulta Like , ou seja ele retornar apenas a palavra que digitei ao invés de todas q possuem a mesma incial da palavra pesquisaada. segue o codigo q to usando:

<%
If strSearch <> "" Then
    
           strDBPath = Server.MapPath("bd.mdb")
        
Const adUseClient = 3
    
    Set cnnSearch = Server.CreateObject("ADODB.Connection")
    
cnnSearch.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";"
cnnSearch.CursorLocation = adUseClient

strSQL = "SELECT nome,contato,regiao,email,telefone,celular,uf " _
        & "FROM Representantes " _
        & "WHERE uf LIKE ‘F%’ & TiraAcento(Replace(strSearch, "'", "''")) & "%' " _
        & "OR email LIKE '%" & TiraAcento(Replace(strSearch, "'", "''")) & "%' " _
        & "ORDER BY nome;"

    Set rstSearch = cnnSearch.Execute(strSQL)
intContador = rstSearch.RecordCount



    %>

vlw

[Rafael Spilki]

O like vai retornar o que for igual ou semelhante... e o = como o próprio simbolo significa apenas o que for igual... ex:

where campobd = '"&variaveltexto&"'

Era isso?

[]'s

[Fabio AVILA]

Rafael,

So deixar como abaixo isso ?

& "where uf = '"&variaveltexto&"' & TiraAcento(Replace(strSearch, "'", "''")) & "%' " _

vlw

[Rafael Spilki]

veja como eu coloquei minha variável e veja como você colocou... No caso do operador = (igual) não precisa, nem deve se usar o %, ok?

Além disso... seria interessante você tratar o texto antes de enviar pra query... se essa query por exemplo estiver dentro de um loop poderá repetir uma operação (como de tirar acentos) desnessária várias vezes...

[]'s

[Fabio AVILA]

fiz as alterações mas ta dando erro Erro de compilação do Microsoft VBScript (0x800A0400) , veja como ficou:

strSQL = "SELECT nome,contato,regiao,email,telefone,celular,uf,sigla " _
        & "FROM Scanner " _
        & "where uf = '"&variaveltexto&"' & TiraAcento(Replace(strSearch, "'", "''")) &"    _
        & "OR email = '"&variaveltexto&"' & TiraAcento(Replace(strSearch, "'", "''")) &"  _
        & "ORDER BY nome;"

Aonde que errei ...

vlw

[Rafael Spilki]

Primeiro porque você continua querendo tratar a varíavel dentro da query... isso não é bom e pode incorrer em erros! Tire isso de lá...

além disso sua sintaxe tá meio estranha... seria mais prudente tentar assim:

strSQL = "SELECT nome,contato,regiao,email,telefone,celular,uf,sigla  FROM Scanner where uf = '"&variaveltextosemacento&"' OR email = '"&variaveltextocomacento&"' ORDER BY nome"

[]'s

[Fabio AVILA]

Ola Rafael,

Mais um vez o brigado pela força, funciou ...

vlw