Bem, meu código estava funcionando perfeitamente antes de eu iniciar o insert desse sisteminha simples
Tá dando pau na linha do driver, de acordo com o IE.
Segue o código, agradeço antecipadamente.
<%
act = Request.QueryString("act")
if act = "" then
SQL = "SELECT * FROM tab_noticias ORDER BY id_noticia"
Set con = Server.CreateObject("ADODB.Connection")
con.Open("Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("bd1.mdb") & ";")
Set RS = con.execute(sql)
'con.close
'set con = Nothing
end if
if act = "ver" then
id_noticia = Trim(Request.QueryString("id_noticia"))
SQL = "SELECT * FROM tab_noticias WHERE id_noticia=" & id_noticia
response.write SQL
'Response.End
act = "novo"
Set con = Server.CreateObject("ADODB.Connection")
con.Open("Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("bd1.mdb") & ";")
Set RS = con.execute(sql)
id_noticia = Trim(Request.QueryString("id_noticia"))
titulo = Trim(RS("titulo"))
noticia = Trim(RS("noticia"))
con.close
set con = Nothing
end if
if act = "inserir" then
titulo = Trim(Request.Form("titulo"))
noticia = Trim(Request.Form("noticia"))
SQL = "INSERT INTO tab_noticias (titulo, noticia) VALUES ('" & titulo & _
"', '" & noticia & "')"
response.write SQL
'Response.End
Set con = Server.CreateObject("ADODB.Connection")
con.Open("Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("bd1.mdb") & ";")
con.execute(sql)
con.close
set con = Nothing
Response.Redirect "exemplo.asp"
end if
if act = "update" then
id_noticia = Trim(Request.QueryString("id_noticia"))
titulo = Trim(Request.Form("titulo"))
noticia = Trim(Request.Form("noticia"))
'Update()
end if
%>
<html>
<head>
<title>Untitled</title>
</head>
<body>
<% if act = "" then %>
<% if RS.eof = false then %>
<% while RS.eof = false %>
<a href="exemplo1.asp?act=ver&id_noticia=<% =Trim(RS("id_noticia")) %>"><% =Trim(RS("titulo")) %> - <% =Trim(RS("noticia")) %></a> <br>
<% RS.MoveNext() %>
<% WEND %>
<% end if %>
<% end if %>
<% if act = "novo" then %>
<form name="dados" Method = post <% if id_noticia = "" then %>action="exemplo1.asp?act=inserir" <% else %>action="exemplo1.asp?act=update&id_noticia=<% =id_noticia %>"<% end if %>>
Título: <input type=text name="titulo" value="<% =titulo %>"> <br>
Notícia: <textarea name="noticia"><% =noticia %></textarea>
<p>
<input type="submit">
</form>
<% end if %>
</body>
<%
'RS.close
'Set RS = Nothing
%>
</html>
ERRO:
Tipo de erro:
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 0xa9c Thread 0xc74 DBC 0x1066d9c Jet' do Registro.
/Sistema1_Motorpress/exemplo1.asp, line 36
Pergunta
Guest - Bruno -
Bem, meu código estava funcionando perfeitamente antes de eu iniciar o insert desse sisteminha simples
Tá dando pau na linha do driver, de acordo com o IE.
Segue o código, agradeço antecipadamente.
<% act = Request.QueryString("act") if act = "" then SQL = "SELECT * FROM tab_noticias ORDER BY id_noticia" Set con = Server.CreateObject("ADODB.Connection") con.Open("Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("bd1.mdb") & ";") Set RS = con.execute(sql) 'con.close 'set con = Nothing end if if act = "ver" then id_noticia = Trim(Request.QueryString("id_noticia")) SQL = "SELECT * FROM tab_noticias WHERE id_noticia=" & id_noticia response.write SQL 'Response.End act = "novo" Set con = Server.CreateObject("ADODB.Connection") con.Open("Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("bd1.mdb") & ";") Set RS = con.execute(sql) id_noticia = Trim(Request.QueryString("id_noticia")) titulo = Trim(RS("titulo")) noticia = Trim(RS("noticia")) con.close set con = Nothing end if if act = "inserir" then titulo = Trim(Request.Form("titulo")) noticia = Trim(Request.Form("noticia")) SQL = "INSERT INTO tab_noticias (titulo, noticia) VALUES ('" & titulo & _ "', '" & noticia & "')" response.write SQL 'Response.End Set con = Server.CreateObject("ADODB.Connection") con.Open("Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("bd1.mdb") & ";") con.execute(sql) con.close set con = Nothing Response.Redirect "exemplo.asp" end if if act = "update" then id_noticia = Trim(Request.QueryString("id_noticia")) titulo = Trim(Request.Form("titulo")) noticia = Trim(Request.Form("noticia")) 'Update() end if %> <html> <head> <title>Untitled</title> </head> <body> <% if act = "" then %> <% if RS.eof = false then %> <% while RS.eof = false %> <a href="exemplo1.asp?act=ver&id_noticia=<% =Trim(RS("id_noticia")) %>"><% =Trim(RS("titulo")) %> - <% =Trim(RS("noticia")) %></a> <br> <% RS.MoveNext() %> <% WEND %> <% end if %> <% end if %> <% if act = "novo" then %> <form name="dados" Method = post <% if id_noticia = "" then %>action="exemplo1.asp?act=inserir" <% else %>action="exemplo1.asp?act=update&id_noticia=<% =id_noticia %>"<% end if %>> Título: <input type=text name="titulo" value="<% =titulo %>"> <br> Notícia: <textarea name="noticia"><% =noticia %></textarea> <p> <input type="submit"> </form> <% end if %> </body> <% 'RS.close 'Set RS = Nothing %> </html>ERRO:Link para o comentário
Compartilhar em outros sites
3 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.