Bom, continuo com o problema do usuário quebrar senha do banco access, e por motivos alheios não posso falar nada, mas estou migrando para mysql 5, e depois vou a forra. Mas por enquanto pra dificultar teria como trocar a senha do banco access via código vb6 ?, se sim, como ficaria para passar a nova senha na conexão, e na chamada aos rpts ?

pensei em criar um arquivo, com uma senha para cada dia do mes, e jogar na pasta do windows de uma maquina, ai no primeiro acesso do dia, verificar a senha correspondente, atualizar no banco, sera que seria possível ??

http://www.vbweb.com.br/dicas_visual.asp?Codigo=2802&Classificacao=

 

 

Em ADO:

 

Dim CNN As ADODB.Connection

Set CNN = New ADODB.Connection

CNN.Mode = adModeShareExclusive
CNN.Open "Provider=Microsoft.JET.OLEDB.4.0;Data Source=c:db1.mdb;Jet OLEDB:Database Password=123;"

CNN.Execute "ALTER Database Password 12 123"

 

Sintaxe é: ALTER DATABASE PASSWORD senhanova senhaAntiga

 

Para tirar a senha é só usar null

 

CNN.Execute "ALTER Database Password NULL 123"

 

at+