Administrador de Banco Access

[Marcelo Pescador 0]

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")
else
'Caso não valide a senha, será dada uma mensagem de senha incorreta e voltará
	call fechar_conexao
	response.write "<script>history.back(1);alert('Senha incorreta. Tente novamente.')</script>"
end if
end if
%>

 

 

Help-me !!

 

PS: Se alguém souber como faço pra entrar em contato com o vinícius eu agradeço tb.

[augustoclaro 2]

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.

[Marcelo Pescador 0]

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.

[augustoclaro 2]

tenta dár permissão de gravação no banco de dados, e na pasta.

[Marcelo Pescador 0]

Como faço isso?

[Vinicius Ianni 189]

Isso pode ser um problema de conexão, posta o arquivo de conexão também para darmos uma olhada.

[Marcelo Pescador 0]

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.

[xanburzum 169]

você precisa setar configuraçãoes de permissão para arquivos e pastas...

[Marcelo Pescador 0]

E como faço isso..?

[augustoclaro 2]

vá nas propriedades do arquivo e da pasta e dê permissão de leitura.

[xanburzum 169]

olha este link