REPARAR BANCO DE DADOS SEM PERDER A SENHA
Pessoal, estou com uma duvida e não consegui achar uma solução. é o seguinte, eu tenho um banco de dados em Access 2000, e tenho um programa para reparar ele, porem, quando reparo o banco, o mesmo perde a senha. A sintaxe para reparar é a seguinte:
Db.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4" & ".0;Data Source=" & Pathbanco & ";" & "Jet OLEDB:Database Password=12345;", "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & varPath & "Banco.Mdb" & ";" & "Jet.OLEDB:Engine Type = 5;"
Queria saber se tem como eu reparar mantendo a senha, ou poder colocar a senha no banco novamente depois.
Desde já agradeço e espero a ajuda de vocês...
Db.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4" & ".0;Data Source=" & Pathbanco & ";" & "Jet OLEDB:Database Password=12345;", "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & varPath & "Banco.Mdb" & ";" & "Jet.OLEDB:Engine Type = 5;"
Queria saber se tem como eu reparar mantendo a senha, ou poder colocar a senha no banco novamente depois.
Desde já agradeço e espero a ajuda de vocês...
Você está omitindo a senha no novo banco, faça assim:
Set JRO = New JRO.JetEngine
JRO.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sOrigem_path & ";Jet OLEDB:Database Password=1234;", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sDestino_path & ";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Password=1234"
Set JRO = New JRO.JetEngine
JRO.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sOrigem_path & ";Jet OLEDB:Database Password=1234;", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sDestino_path & ";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Password=1234"
Cara, valeu msm... eu jah tinha procurado em varios lugares da net e nunk achava o problema, agora deu certo. Mto obrigado...
Tópico encerrado , respostas não são mais permitidas