(Resolvido) Banco de Dados Access

[Paulo Gouvea]

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?...

[Paulo Gouvea]

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."

[Rafael Spilki]

você está testando isso localmente?

Se sim, feche o access antes de fazer esse teste...

Poste aqui o resultado...

[]'s

[Paulo Gouvea]

você está testando isso localmente?

Se sim, feche o access antes de fazer esse teste...

Poste aqui o resultado...

[]'s

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.

[Paulo Gouvea]

Rafael, tem mais alguma dica que possa me dar. Estou num beco sem saída....

Amigos internaltas, alguém pode me ajudar?

[bareta]

bom certamente para isto funcionar

CNN.Mode = adModeShareExclusive

você deve incluir o adovbs.inc (acho q é esse o nome)... ou mude para

CNN.Mode =12

[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.