Ola estou com um codigo de autenticação de usuarios mas em uma das paginas há um erro onde diz que nao ha nenhum driver especificado...
segue o pedaço do codigo que esta dando erro:
________________________________________________________
<%
Login = Trim(Request.Form("Login"))
Senha = Trim(Request.Form("Senha"))
Verifica = 0
ConnString = "DBQ=c:\private\columbia.mdb"
ConnString = ConnString & ";Driver={Microsoft Access Driver (*.mdb)}"
Set Connexao = Server.CreateObject("ADODB.Connection")
Connexao.Open ConnString
SQLString = "SELECT * FROM Security WHERE Nome='" & Login & "'"
Set Reg = Connexao.Execute(SQLString)
If Reg.EOF Then
Verifica = 1
End If
%>
___________________________________________________
Pelo pouco que eu entendo o driver esta especificado, certo e seria o nome do banco?
A proposito se alguem tiver uma dica de um bom codigo de usuarios com acesso de niveis de pagina agradeço.
Codigo Pedindo O Driver...
Started By maxcs, 18/09/2004, 23:54
2 replies to this topic
#1
Posted 18/09/2004, 23:54
Eletrohoo Brasil
Seu site de eletrônica com coteúdo 100% gratuito.
Projetos
Downloads
Componentes
Tutorias
Busca externa
E em breve um Fórum completo...
Visite: www.eletrohoo.com.br
Seu site de eletrônica com coteúdo 100% gratuito.
Projetos
Downloads
Componentes
Tutorias
Busca externa
E em breve um Fórum completo...
Visite: www.eletrohoo.com.br
#2
Posted 19/09/2004, 18:17
<%
Login = Trim(Request.Form("Login"))
Senha = Trim(Request.Form("Senha"))
Verifica = 0
Set Connexao = Server.CreateObject("ADODB.Connection")
Connexao.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=c:\private\columbia.mdb"
SQLString = "SELECT * FROM Security WHERE Nome='" & Login & "'"
Set Reg = Connexao.Execute(SQLString)
If Reg.EOF Then
Verifica = 1
End If
%>
TENTA ISSO...
=====================================
isso tem que ser feito soh se vc jah abriu a Reg:
jah tem que ter tido essa linha no seu codigo, se naum acrescente-a
reg.open conexao,3,3
fui..
Login = Trim(Request.Form("Login"))
Senha = Trim(Request.Form("Senha"))
Verifica = 0
Set Connexao = Server.CreateObject("ADODB.Connection")
Connexao.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=c:\private\columbia.mdb"
SQLString = "SELECT * FROM Security WHERE Nome='" & Login & "'"
Set Reg = Connexao.Execute(SQLString)
If Reg.EOF Then
Verifica = 1
End If
%>
TENTA ISSO...
=====================================
isso tem que ser feito soh se vc jah abriu a Reg:
jah tem que ter tido essa linha no seu codigo, se naum acrescente-a
reg.open conexao,3,3
fui..
Edição feita por: LeoB, 19/09/2004, 21:53.
#3
Posted 19/09/2004, 22:24
Funcionou... valeu KILLING
Eletrohoo Brasil
Seu site de eletrônica com coteúdo 100% gratuito.
Projetos
Downloads
Componentes
Tutorias
Busca externa
E em breve um Fórum completo...
Visite: www.eletrohoo.com.br
Seu site de eletrônica com coteúdo 100% gratuito.
Projetos
Downloads
Componentes
Tutorias
Busca externa
E em breve um Fórum completo...
Visite: www.eletrohoo.com.br
0 user(s) are reading this topic
0 membro(s), 0 visitante(s) e 0 membros anônimo(s)