Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Debukis Ondeteibou

Busca com Like

Por , em ASP Clássico

Recommended Posts

Debukis Ondeteibou    0

Debukis Ondeteibou
Postado

Fiz uma pagina com um form pra pessoa digitar em um campo!

aí na pagina que recebe os dados eu fiz o seguinte:

 

<% Digitado = Request("Busca") %><body><%Set CONEXAO = CreateObject("ADODB.Connection")CONEXAO.Provider = "Microsoft.Jet.OLEDB.4.0"CONEXAO.Open server.MapPath("administracao\database_site.mdb") Set rsDados = Server.CreateObject("ADODB.Recordset")rsdados.open "Select * From noticias where fonte like '& digitado &'", ConexaoWhile not rsdados.eof %><a href="<%=(rsdados("id"))%>"><%=(rsdados("titulo"))%></a> <br /><% rsdados.movenextwend%>

----------------------

tenho certeza que tá errado...

vocês entenderam oq eu kis fazer ???

eu quis que listasse oq foi digitado pela pessoa...igual uma busca mesmo...

 

Dá pra me explicar uma outra forma de fazer isso ???

Compartilhar este post

Link para o post
Compartilhar em outros sites

shumi    0

shumi
Postado

e deu algum erro?o que ta acontecendo de errado?

Compartilhar este post

Link para o post
Compartilhar em outros sites

shumi    0

shumi
Postado

Tenta assim:

<% Digitado = Request("Busca") %><body><%Set CONEXAO = CreateObject("ADODB.Connection")CONEXAO.Provider = "Microsoft.Jet.OLEDB.4.0"CONEXAO.Open server.MapPath("administracao\database_site.mdb")Set rsDados = Server.CreateObject("ADODB.Recordset")Sql = "Select * From noticias where fonte like'"& digitado &"'"Set rsdados = CONEXAO.Execute(Sql)While not rsdados.eof %><a href="<%=(rsdados("id"))%>"><%=(rsdados("titulo"))%></a> <br /><%rsdados.movenextwend%>

Abraços

Compartilhar este post

Link para o post
Compartilhar em outros sites

shumi    0

shumi
Postado

Sql = "Select * From noticias where fonte like'"& digitado &"'"rsdados.open "Select * From noticias where fonte like '& digitado &'", Conexaoa única coisa que fiz foi mudar aqui: '& digitado &'"ao inves disso ai fiz isso: '"& digitado &"'"Lembre-se quando for string você usa aspas simples depois aspas duplas('") e quando for numerico você usa aspas simples(') !Abraços

Compartilhar este post

Link para o post
Compartilhar em outros sites

Debukis Ondeteibou    0

Debukis Ondeteibou
Postado

Vlw! Vou dar uma olhada e vou tentar aplicar qualquer coisa eu posto aki!Agora eu estou com outra dúvida...eu kero fazer um select count para essa busca...pra ver quantos registros axou! mas nao to conseguindo vou postar o código pra você dar uma analisada!

<% Digitado = Request("Busca") %><body><%Set CONEXAO = CreateObject("ADODB.Connection")CONEXAO.Provider = "Microsoft.Jet.OLEDB.4.0"CONEXAO.Open server.MapPath("administracao\database_site.mdb")Set rsDados = Server.CreateObject("ADODB.Recordset")Set SomaRegistros = Server.CreateObject("ADOBD.RECORDSET")SomaRegistros.open "Select Count(digitado) as Soma where '" & digitado & "'", ConexaoSql = "Select * From noticias where noticia like '%"& digitado &"%'"Set rsdados = CONEXAO.Execute(Sql)While not rsdados.eof %><%=SomaRegistros("Soma") %><a href="<%=(rsdados("id"))%>"><%=(rsdados("titulo"))%></a> <br /><%rsdados.movenextwend%>

# Tipo de erro:Objeto Server, ASP 0177 (0x800401F3)Seqüência de classe inválida/busca2.asp, line 15:(

Compartilhar este post

Link para o post
Compartilhar em outros sites

shumi    0

shumi
Postado

e o From na sua SQL???Select bla bla bla FROM tabela WHERE bla bla blaAbraços

Compartilhar este post

Link para o post
Compartilhar em outros sites

Debukis Ondeteibou    0

Debukis Ondeteibou
Postado

Foi um detalhe q eskeci...ficou assim:SomaRegistros.open "Select Count(digitado) as Soma from noticias where '" & digitado & "'", ConexaoMas o erro continua a mesma coisa...A linha 15 tah:Set SomaRegistros = Server.CreateObject("ADOBD.RECORDSET")

Compartilhar este post

Link para o post
Compartilhar em outros sites

shumi    0

shumi
Postado

Tenta assim:

<% Digitado = Request("Busca") %><body><%Set CONEXAO = CreateObject("ADODB.Connection")CONEXAO.Provider = "Microsoft.Jet.OLEDB.4.0"CONEXAO.Open server.MapPath("administracao\database_site.mdb")Sqlsoma = "Select Count(digitado) as Soma From tabela where'"&digitado&"'"Set rssoma = CONEXAO.Execute(Sqlsoma)Sql = "Select * From noticias where noticia like '%"& digitado &"%'"Set rsdados = CONEXAO.Execute(Sql)Response.Write(rssoma("Soma"))While not rsdados.eof %><a href="<%=(rsdados("id"))%>"><%=(rsdados("titulo"))%></a> <br /><%rsdados.movenextwend%>

Abraços

Compartilhar este post

Link para o post
Compartilhar em outros sites

Debukis Ondeteibou    0

Debukis Ondeteibou
Postado

agora ficouTipo de erro:Microsoft JET Database Engine (0x80040E14)A instrução SELECT inclui uma palavra reservada ou um nome de argumento que está incorreto ou faltando, ou a pontuação está incorreta./busca2.asp, line 16Linha 16:Set rssoma = CONEXAO.Execute(Sqlsoma)

Compartilhar este post

Link para o post
Compartilhar em outros sites

shumi    0

shumi
Postado

hauhauhau copiei a sua sql e arrumei veja que não coloquei a tabela!

Sqlsoma = "Select Count(digitado) as Soma From tabela where'"&digitado&"'"

Abraços

Compartilhar este post

Link para o post
Compartilhar em outros sites

shumi    0

shumi
Postado

aqui no where você tem que colocar a coluna que quer consultar!

 

Sqlsoma = "Select Count(digitado) as Soma From tabela where [b]noticia[/b]='"&digitado&"'"

 

Não copie o script leia, entenda!

Compartilhar este post

Link para o post
Compartilhar em outros sites

Debukis Ondeteibou    0

Debukis Ondeteibou
Postado

Nao deu!Tipo de erro:Microsoft JET Database Engine (0x80040E14)Erro de sintaxe (operador faltando) na expressão de consulta 'titulo 'Fla''./busca2.asp, line 16Linha 16 a mesma coisa!! :(Tá assim linha 15 e 16!Sqlsoma = "Select Count(digitado) as soma From noticias where titulo '"&digitado&"'"Set rssoma = CONEXAO.Execute(Sqlsoma)

Compartilhar este post

Link para o post
Compartilhar em outros sites

shumi    0

shumi
Postado

posta seu script denovo inteiro!Abraços

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito