Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Bom dia Galera, bom eu achei um post de Vinícius Luiz que achei bem bacana, porém acredito que ele não estaja completo, pois só tenho a parte 1 e 2 mas parece que tb tem a parte 3 e 4.
Independente disso estou tentando ajustar e está dando o seguinte erro:
"Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][ODBC Microsoft Access Driver] Operation must use an updateable query.
/mdb_admin/logar.asp, line 26"
Segue o código e no final está a linha 26:
response.write "<script>history.back(1);alert('Senha incorreta. Tente novamente.')</script>"
<% Option Explicit %>
<!--#include file="_conexao.asp" -->
<%
'Criando variáveis
Dim localbd, bd, usuario
'Abriremos a conexão criada do include _conexao.asp
call abrir_conexao
'Criaremos um Recordset para selecionar os usuários cadastrados
set usuario=Server.CreateObject("ADODB.Recordset")
'Selecionar de acordo com o Login digitado no campo
usuario.Open "SELECT * from usuario where usuario='"& request.form("usuario") &"'", bd
'Se o usuário não for encontrado, iremos fechar a conexão, dar um alert e voltar
if usuario.EOF then
call fechar_conexao
response.write "<script>history.back(1);alert('Login incorreto. Tente novamente.')</script>"
else
'Caso tenha achado o usuário, o sistema irá verificar a senha
if usuario("senha")=request.form("senha") then
'Se a senha for válida, ele irá gravar um cookie com o codigo do usuario
response.cookies("access")("usuario")=usuario("cod")
'Irá fazer um UPDATE para indicar o último acesso
bd.execute "UPDATE usuario SET ultimoacesso='"&now()&"' WHERE cod="&request.cookies("access")("usuario")&""
'Fecharemos a conexão
call fechar_conexao
'Redirecionaremos para a página principal
response.redirect("default.asp")Help-me !!
PS: Se alguém souber como faço pra entrar em contato com o vinícius eu agradeço tb.
Segue o arquivo conexão:
<%
'Criaremos uma SUB para a conexão para conectarmos com o banco de dados do AccessAdmin
'Detalhe: Não é o banco que será administrado
sub abrir_conexao
localbd = "Driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("bancodedados/configaccessadmin.mdb")
set bd=Server.CreateObject("ADODB.Connection")
bd.open localbd
end sub
'SUB que fechará a conexão
sub fechar_conexao
bd.close
Set bd = nothing
end sub
%>
Esse é o post do vinícius: "http://imasters.com.br/artigo/4369/asp/sistema_de_administracao_remota_de_um_banco_access_parte_02/"
Como eu trabalho com imac, não consigo abrir o banco de dados pois o mac não lé *.mdb, então eu preciaria de um administrador para poder incluir, excluir e alterar campos via on-line, como um sql, mas trabalho com asp e access.
tenta dár permissão de gravação no banco de dados, e na pasta.
Como faço isso?
Isso pode ser um problema de conexão, posta o arquivo de conexão também para darmos uma olhada.
O arquivo de conexão está no post acima!
Meu banco de dados chama-se: banco_rz e o caminho é "dados". esse caminho eu coloco na configuracão de entrada ?
Segue o link que estou utilizando: http://www.arterz.com.br/mdb_admin
No seu banco "configaccessadmin.mdb, lá coluna caminho já coloquei das duas formas, ou seja, somente o nome do meu banco: banco_rz.mdb e tb dados/banco_rz.mdb, mas nenhum deu certo.
você precisa setar configuraçãoes de permissão para arquivos e pastas...
E como faço isso..?
vá nas propriedades do arquivo e da pasta e dê permissão de leitura.
olha este link
Qual o post do vinícius? o que você quer fazer?
Para entrar em contato com ele mande uma MP.
Mande o arquivo de conexão por favor.