Ir para conteúdo

POWERED BY:

Arquivado

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

douglasmesquita

[Resolvido] Erro Sistema de Busca

Por , em ASP Clássico

Recommended Posts

douglasmesquita    0

douglasmesquita
Postado

Bom dia galera, estou fazendo um sistema de busca. Só que a página está dando o seguinte erro:

 

ADODB.Recordset (0x800A0E7D)

A conexão não pode ser usada para realizar esta operação. Ela está fechada ou é inválida neste contexto.

/aqui/templates/buscar.asp, line 13

 

vou postar o código

 

index.asp

<div>
<form method="POST" action="buscar.asp">
<input type="text" name="noticias">
<input type="submit" value="Buscar">
</form>
</div>

 

buscar.asp

<%
'Declara variáveis
Dim meubd, localbd, rsBusca

'Indicando local do Banco de dados
localbd="driver={microsoft access driver (*.mdb)};dbq=" & server.mappath("../bd/bd_aqui.mdb")

'Setando conexões
set meubd=server.createobject("adodb.connection")

'Cria instância Recordset e faz a consulta na tabela Noticias
Set rsBusca = Server.createobject("adodb.recordset")
rsBusca.Open "SELECT * from Noticias where subtitulo LIKE '%"&Request.Form("noticias")&"%'", meubd
%>
<html>
<body>
<table align="center" cellpadding="0" cellspacing="0" width="635">
	<tr>
		<td width="125" valign="top" height="39">	  
		<p align="center"></p>
		</td>
		<td width="510" valign="top" height="39">
		<p align="center"><font face="Arial Black" color="red">Resultado(s) Encontrado(s):</font><p>
		<font face="Arial"><span style="font-size:10pt;">
		</span></font></p>
		<%
		'Verifica se foi encontrado algum registro
		If rsBusca.EOF Then
		Response.Write "Não foi encontrado nenhum registro!"
		Else
		'Lista os clientes se encontrados
		While Not rsBusca.EOF
		<p>Response.Write rsBusca("titulo") & "<br>"</p>
		'Move para o próximo registro
		rsBusca.MoveNext
		Wend
		End If
		%>
		</td>
	</tr>
</table>
</body>
</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

qual a linha do erro?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

a linha de codigo e nao seu numero

Compartilhar este post

Link para o post
Compartilhar em outros sites

ponto&vetor    0

ponto&vetor
Postado

Douglas, você não abriu o banco corretamente. Segue o seu código com algumas correções:

 

'Declara variáveis
Dim meubd, localbd, rsBusca

'Indicando local do Banco de dados
localbd="driver={microsoft access driver (*.mdb)};dbq=" & server.mappath("../bd/bd_aqui.mdb")

'Setando conexões
set meubd=server.createobject("adodb.connection")

'Agora você abre o banco assim
meubd.open localbd

Além disso, use variáveis para facilitar na hora de depurar e organizar seu código:

 

'declarar variáveis para o campo do formulário e string sql
dim sql, noticiasForm
noticiasForm = request.form("noticias")

'faça um if para não ter perigo de pesquisar o vácuo! :D
if noticiasForm <> empty then
   sql = "SELECT * from Noticias where subtitulo LIKE '%"&noticiasForm"%'"
   Set rsBusca = Server.createobject("adodb.recordset")
   rs.open sql, meubd
end if

Espero ter ajudado!

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