Pessoal, coloquei umas páginas no servidor e as que fazem conexão com o bd não funcionam... me retorna o seguinte erro:
Microsoft JET Database Engine error '80004005'
Unrecognized database format 'c:\home\lucieneceh\databases\arquivo.mdb'.
/login.asp, line 35
Eles tem um passo-a-passo para conexão... eu segui todo ele... mas dá erro nesta linha:
adoCon.Open strCon
Olha o código completo d teste q eu fiz:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<% Sub LoginIncorreto()
Session("Logado")=""
Response.Redirect("default.asp?log=f")
Response.End()
End Sub
usuario= request.form("usuario")
senha=request.form("senha")
Dim adoCon, strCon
Dim caminho_banco
'Definindo caminho do banco
caminho_banco = Server.MapPath("../databases/arquivo.mdb")
'Definindo string de conexão
strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & caminho_banco
'Criando objeto
Set adoCon = Server.CreateObject("ADODB.Connection")
'Abrindo conexão
adoCon.Open strCon
Set rs01 = Server.CreateObject("ADODB.RecordSet")
Set rs02 = Server.CreateObject("ADODB.RecordSet")
sql = "SELECT * FROM LOGA WHERE login='" &usuario& "'"
set rs01 = adoCon.Execute(sql)
If rs01.eof then
LoginIncorreto()
Else
if rs01.fields("senha")=senha then
Session.Timeout=3
session("Login")=rs01.fields("login")
Session("Logado")="OK"
Session("nome")=rs01.fields("nome")
Response.Redirect("ola.asp")
Else
LoginIncorreto()
End if
End If
adoCon.Close
Set adoCon = Nothing
rs01.Close
Set rs01 = Nothing
rs02.Close
Set rs02 = Nothing
%>
Tenho certeza que o erro não é no meu código, mas enfim... toh postando aki só pra desencargo...
Pergunta
Ceh
Pessoal, coloquei umas páginas no servidor e as que fazem conexão com o bd não funcionam... me retorna o seguinte erro:
Eles tem um passo-a-passo para conexão... eu segui todo ele... mas dá erro nesta linha:
Olha o código completo d teste q eu fiz:<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Sub LoginIncorreto() Session("Logado")="" Response.Redirect("default.asp?log=f") Response.End() End Sub usuario= request.form("usuario") senha=request.form("senha") Dim adoCon, strCon Dim caminho_banco 'Definindo caminho do banco caminho_banco = Server.MapPath("../databases/arquivo.mdb") 'Definindo string de conexão strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & caminho_banco 'Criando objeto Set adoCon = Server.CreateObject("ADODB.Connection") 'Abrindo conexão adoCon.Open strCon Set rs01 = Server.CreateObject("ADODB.RecordSet") Set rs02 = Server.CreateObject("ADODB.RecordSet") sql = "SELECT * FROM LOGA WHERE login='" &usuario& "'" set rs01 = adoCon.Execute(sql) If rs01.eof then LoginIncorreto() Else if rs01.fields("senha")=senha then Session.Timeout=3 session("Login")=rs01.fields("login") Session("Logado")="OK" Session("nome")=rs01.fields("nome") Response.Redirect("ola.asp") Else LoginIncorreto() End if End If adoCon.Close Set adoCon = Nothing rs01.Close Set rs01 = Nothing rs02.Close Set rs02 = Nothing %>Tenho certeza que o erro não é no meu código, mas enfim... toh postando aki só pra desencargo...
[ ]'s
Link para o comentário
Compartilhar em outros sites
6 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.