Paulo Gouvea

Bareta, tu acertou na mosca. Muito obrigado pela ajuda, espero que isso possa ajudar a muitos internaltas que como eu buscava essa solução.

Rafael, tem mais alguma dica que possa me dar. Estou num beco sem saída.... Amigos internaltas, alguém pode me ajudar?

Rafael estou usando IIS para testar o script e o banco está fechado. Testei também o script hospedado na NET. Em ambos os casos não funcionou! Agradeço seu interesse e ajuda.

Dim CNN Set CNN = Server.CreateObject("ADODB.Connection") senha = "123456" vPath = "..\restrito\xxxxx.mdb" pPath = Server.MapPath( vPath ) 'Abrindo em mode exclusivo CNN.Mode = adModeShareExclusive 'Abrindo um banco de dados cuja senha é 123456 CNN.Open = "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & pPath & ";" & "JET OLEDB:Database Password=" & senha & ";" 'Alterando a senha de 123456 para 12 CNN.Execute "ALTER Database Password 12 123456 O código correto é esse. O erro apontado é o seguinte: "Não é possível alterar a senha em um banco de dados aberto compartilhado."

Olá pessoal, estou com problemas para alterar a senha do banco de dados access utilizando um script em ASP. Achei na Net esse script e não funcionou! Agradeço qualquer ajuda dos amigos internaltas. Dim CNN Set CNN = Server.CreateObject("ADODB.Connection") senha = "123456" vPath = "..\restrito\xxxxx.mdb" 'Abrindo em mode exclusivo CNN.Mode = adModeShareExclusive 'Abrindo um banco de dados cuja senha é 123456 CNN.Open = "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & pPath & ";" & "JET OLEDB:Database User ID=" & "admin" & "; Password=" & senha & ";" 'Alterando a senha de 123456 para 12 CNN.Execute "ALTER Database Password 12 123456" Onde estou errando?...