Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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>Carregando comentários...