Busca Em Bd Por Palavra Chave.

[avontzdnb]

opa.. valeuz pelo help no outro tópico.. xD

meu forum esta quase completo.. .. quase porque o fdp pediu mais uma coisa que to meio que quebrando a cabeça para conseguir

uma busca no banco de dados por palavra-chave...

Tipo.. não é bem por palavra chave..

é por usuario e ou por categoria

ou seja.. uma palavra somente.

o que deixa um pouco mais facil.

Vamos la.. rs

eu tenho meu formulario bunitinho, com os dois campos (nome e categoria) para fazer a "filtragem".

eu chamo uma pagina resposta

tem como vocês darem um help

<%dim mysql

codigo = request.QueryString("msg")

icq = request.QueryString("icq")

ConnString="Provider=Microsoft.Jet.OLEDB.4.0; Data Source=e:\home\xxx\dados\xxx.mdb;"

Set Conexao = Server.CreateObject("ADODB.Connection")

Conexao.Open ConnString

Set rs= Server.CreateObject("ADODB.Recordset")

contador = 0

sql = "SELECT * FROM [principal] order by codigo desc"

Set rs = Server.CreateObject("ADODB.Recordset")

rs.Open sql, Conexao

response.Redirect("forum.asp?cmd=ler")

%>

isso é mais ou menos o que eu tenho.. que esta totalmente errado.. ele faz a conexao, e ordena por um codigo...

não é isso que eu quero..

Eu gostaria de digitar o nome, e ele faria uma busca na tabela por esse nome

alguém já tem um codigo pronto para fazer isso?!

xD

valeuz!

[Bicicleta]

pra fazer uma busca, use a seguinte instrução SQL

SELECT * FROM tabela WHERE campo LIKE '%"& Request.Form("campo") &"%'

Essa instrução vai retornar todos os registros que contenham a palavra buscada no campo, mesmo que esteja no começo, no meio ou no fim do campo...

[]s

[avontzdnb]

e eu jogo isso aonde?

<%

elseif (comando="relatorio") then

dim mysql1

nome = request.QueryString("busca1")

icq = request.QueryString("busca2")

ConnString="Provider=Microsoft.Jet.OLEDB.4.0; Data Source=e:\home\acea\dados\dados.mdb;"

Set Conexao = Server.CreateObject("ADODB.Connection")

Conexao.Open ConnString

Set rs= Server.CreateObject("ADODB.Recordset")

SELECT * "FROM Principal WHERE nome LIKE '%"& Request.Form("busca1") &"%'"

SELECT * "FROM Principal WHERE icq LIKE '%"& Request.Form("busca2") &"%'"

%>

dai ele da esse erro aqui

Expected 'Case'

/forum.asp, line 545

SELECT * "FROM Principal WHERE nome LIKE '%"& Request.Form("busca1") &"%'"

-------^

se alguma alma caridosa quizer me ajudar no MSN.. eu aceito xD

leiron@bol.com.br

cya!

[avontzdnb]

ninguém?

[fercosmig]

faz uma adaptação no select e coloca o que o Bicicleta falou!

abraços

[fernando1524]

e ai avontzdnb! vou tentar te dar uma mao!

vamos la...

e no metodo de envio da pagina da pasquisa use POST a invés de Get. e tente o seguinte:

nesta linha tente mudar isso:

<%

elseif (comando="relatorio") then

dim mysql1

nome = request.form("busca1")

icq = request.form("busca2")

ConnString="Provider=Microsoft.Jet.OLEDB.4.0; Data Source=e:\home\acea\dados\dados.mdb;"

Set Conexao = Server.CreateObject("ADODB.Connection")

Conexao.Open ConnString

Set rs= Server.CreateObject("ADODB.Recordset")

SELECT * "FROM Principal WHERE nome LIKE '%"& Request.Form("busca1") &"%'"

SELECT * "FROM Principal WHERE icq LIKE '%"& Request.Form("busca2") &"%'"

%>tenta ai.. se não der post aqui denovo!

espero ter ajudadao!

abraço

[avontzdnb]

valeu fernando.. mas continua dando o mesmo erro

Expected 'Case'

/forum.asp, line 545

SELECT * "FROM Principal WHERE nome LIKE '%"& Request.Form("busca1") &"%'"

-------^

ta foda..... :\

[fernando1524]

avontzdnb só uma coisa q não entendi direito... como é essa busca q você quer fazer?? você tem 2 campos, certo? 1 nome e outro icq? ate ai beleza, mas como você quer fazer a busca, exemplo você digita o nome e ele busca no bd todos os nomes, ou você digita o icq e ele busca os numeros de icq no bd... é isso?? ou você digita o nome e ele busca o nome com o numero do icq junto?

não entendi direito o q você quer... seja um pouco mais claro, q eu posso tentar te ajudar..beleza?!

abraço!

Luiz Fernando Tanaka

[fercosmig]

[avontzdnb]

vo testa agora xD

[Guest - www.mxpbrasil.cjb.net -]

Cara, aquele <%elseif (relatorio="comando") Then

.....

deve ser trocado por

<%if (relatorio="comando") Then

.....

Else if é colocado da segunda condição pra frente...

valeu?

[DELPHI-Man32]

posso me meter ae na parada?

bom, com a pouca experiencia q tenho, faria...

Campo1 = request.form("nome")

Campo2 = request.form("icq")

Conexao e tal.....

Set RS = Server.CreateObject("ADODB.Recordset")

sql= "SELECT * FROM Principal WHERE nome LIKE '%"& Campo1 &"%' or icq LIKE '%"& Campo2 &"%'"

RS.open sql, Conexao, 3,3

e tal.....

num aliviaria mais o cod?

[avontzdnb]

valeuz fercos!! funfo! obrigado pela ajuda via MSN tb! xD