Bom Dia a todos estopu com um problema no meu sistema de BD , tenho duas paginas destinadas a buscar um valor em um banco de dados uma indepoendente da outra, uma delas funciona normalmente mas na hora que entro na outra a conexao não abre, eu tentei fechar uma conexao, abrir outra e vice versa mas não funciona, alguém poderia me ajudar ??? aqui esta o codigo da pagina, as duas são semelhantes só muda o caminho de onde esta o bd e as variaveis e campos:
<html>
<head>
</head>
<body>
<%
Set conecta = Server.CreateObject("ADODB.Connection")
sql = "SELECT * FROM Hardware WHERE Produto Like '" & Request.Form("pro") & "%' and ID like '" & Request.Form("idd") & "%' and Part like '" & Request.Form("par") & "%' and preço like '" & Request.Form("prec") & "%' order by ID"
set recset= conecta.execute(sql)
If recset.EOF Then
Response.Write "Não Foi Encontrado Nenhum Registro!"
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][Driver ODBC para Microsoft Access]Erro geral Não é possível abrir a chave 'Temporary (volatile) Jet DSN for process 0xb00 Thread 0xc1c DBC 0x1da3cc4 Jet' do Registro.
a linha que mostra o erro é essa: conecta.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/") & "\db2.mdb"&";"
Pergunta
Rodrikill
Bom Dia a todos estopu com um problema no meu sistema de BD , tenho duas paginas destinadas a buscar um valor em um banco de dados uma indepoendente da outra, uma delas funciona normalmente mas na hora que entro na outra a conexao não abre, eu tentei fechar uma conexao, abrir outra e vice versa mas não funciona, alguém poderia me ajudar ??? aqui esta o codigo da pagina, as duas são semelhantes só muda o caminho de onde esta o bd e as variaveis e campos:
<html>
<head>
</head>
<body>
<%
Set conecta = Server.CreateObject("ADODB.Connection")
conecta.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/") & "\db2.mdb"&";"
sql = "SELECT * FROM Hardware WHERE Produto Like '" & Request.Form("pro") & "%' and ID like '" & Request.Form("idd") & "%' and Part like '" & Request.Form("par") & "%' and preço like '" & Request.Form("prec") & "%' order by ID"
set recset= conecta.execute(sql)
If recset.EOF Then
Response.Write "Não Foi Encontrado Nenhum Registro!"
Else
Response.write "<table border= 1 width = 830><tr><td align = center><font size=4><b>Produto" & "</font></b></td>"
Response.Write "<td align = center><font size=4><b>" & "Preço" & "</font></b></td>"
Response.Write "<td align = center><font size=4><b>" & "Part Number" & "</font></b></td>"
Response.Write "<td align = center><font size=4><b>" & "ID" & "</font></b></td>" & "</tr>"
While not recset.EOF
Response.write "<tr><td align = center>" & recset("Produto") & "</td>"
Response.Write "<td align = center>" & RecSet("preço") & "</td>"
Response.Write "<td align = center>" & RecSet("Part") & "</td>"
Response.Write "<td align = center>" & RecSet("ID") & "</td>" & "</tr>"
recset.MoveNext
Wend
response.write "</table>"
end if
recset.close()
conecta.close()
set recset = nothing
set conecta = nothing
%>
<form action = "Pesquisa.asp" method = "get">
<input type = "submit" value="Voltar">
</form>
</body>
</html>
o erro que da ao abrir a pagina é o seguinte :
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][Driver ODBC para Microsoft Access]Erro geral Não é possível abrir a chave 'Temporary (volatile) Jet DSN for process 0xb00 Thread 0xc1c DBC 0x1da3cc4 Jet' do Registro.
a linha que mostra o erro é essa: conecta.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/") & "\db2.mdb"&";"
Link para o comentário
Compartilhar em outros sites
4 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.