Boa Tarde.
Eu estou com problemas em meu codigo ASP.
Primeiro eu tenho um sistema(formulário) onde ele adicione em banco de dados access. até ai perfeito. Eu tenho outro codigo onde ele tem que verificar a senha e o user no banco mas nao esta funcionando de jeito algum.
Ele dá esse 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 0xb94 Thread 0xcf4 DBC 0x217446c Jet' do Registro.
Ja verifiquei o caminho do banco, a permissão de leitura e tudo mais, esta tudo ok.. mas nao funciona..

Erro
Started By luizgustavo, 07/05/2006, 16:42
5 replies to this topic
#1
Posted 07/05/2006, 16:42
Luiz Gustavo Martins
Web Developer
Web Developer
#2
Posted 07/05/2006, 16:46
Boa Tarde amigo... posta o erro ai pra gente...pra ficar mais facil lhe ajudar
-----------------------------------------------------------------------------------
posta o codigo da verificaçao.. pra que possa ver o que pode ser
-----------------------------------------------------------------------------------
posta o codigo da verificaçao.. pra que possa ver o que pode ser
Edição feita por: DayWalker, 07/05/2006, 16:49.
Marcos Ferreira
#3
Posted 07/05/2006, 16:57
Segue o erro..
<!--#include file="codes/connect.asp"-->
<%
response.buffer = true
dim useraction
dim conn,dsn,rs,sql
useraction = request("action")
select case useraction
case "login"
user = request.form("user")
pass = request.form("pass")
Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
Conn.Open dsn
SQL = "SELECT * FROM users where user='"& user & "' and pass='"& pass &"'"
rs.open sql,conn
if rs.eof and rs.bof then
response.write "Usuário ou Senha Inválidos - Tente Novamente" & "<br>"
else
session("auth") = pass
response.redirect "index1.asp"
end if
end select
%>
o arquivo connect.asp esta certinho !
<!--#include file="codes/connect.asp"-->
<%
response.buffer = true
dim useraction
dim conn,dsn,rs,sql
useraction = request("action")
select case useraction
case "login"
user = request.form("user")
pass = request.form("pass")
Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
Conn.Open dsn
SQL = "SELECT * FROM users where user='"& user & "' and pass='"& pass &"'"
rs.open sql,conn
if rs.eof and rs.bof then
response.write "Usuário ou Senha Inválidos - Tente Novamente" & "<br>"
else
session("auth") = pass
response.redirect "index1.asp"
end if
end select
%>
o arquivo connect.asp esta certinho !
Luiz Gustavo Martins
Web Developer
Web Developer
#4
Posted 07/05/2006, 17:11
bom .. acredito que o erro esta nos seus set´s ... revise eles... aparentemente esta correto.. mas nao sei como esta seu arquivo de conexao com o banco de dados...
Marcos Ferreira
#5
Posted 07/05/2006, 17:23
Meu arquivo connect.asp
<%
dsn = "DBQ=" & Server.Mappath("../database/votura.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
%>
<%
dsn = "DBQ=" & Server.Mappath("../database/votura.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
%>
Luiz Gustavo Martins
Web Developer
Web Developer
#6
Posted 07/05/2006, 20:26
Tente usar essa forma de Conexao :
Ja tive problemas usando o jeito que voce usa..quem sabe
[]'s
Set conexao = Server.CreateObject("ADODB.Connection") conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\pasta\banco.mdb;"
Ja tive problemas usando o jeito que voce usa..quem sabe

[]'s
Edição feita por: Generation, 07/05/2006, 20:27.
Favoritos : | OpenSuse | Opera | Firefox | NetBeans | GMail | Leia As Regras | Use a Busca | Como fazer Perguntas Inteligentes |
“Obstáculos são aquelas coisas medonhas que você vê quando tira seus olhos de seu objetivo” (Henry Ford)
“É impossível para um homem aprender aquilo que ele acha que já sabe.” (Epíteto)
“A única razão da existência do tempo é para que todas as coisas não aconteçam de uma vez.”(Albert Einstein)
“Obstáculos são aquelas coisas medonhas que você vê quando tira seus olhos de seu objetivo” (Henry Ford)
“É impossível para um homem aprender aquilo que ele acha que já sabe.” (Epíteto)
“A única razão da existência do tempo é para que todas as coisas não aconteçam de uma vez.”(Albert Einstein)
1 user(s) are reading this topic
0 membro(s), 1 visitante(s) e 0 membros anônimo(s)