Como Abrir base de dados com Senha ?
Este exemplo utiliza o objeto Dao Jet. Para outros objetos consulte o Help do VB.
Para abrir o banco é necessário passar a senha no parâmetro Connect. No exemplo abaixo, a senha é “web”.
Dim wrk As Workspace
Dim db As Database
Set wrk = DBEngine.Workspace(0)
Set db = wrk.OpenDatabase(“MYDB.MDB”, false, false, “;PWD=web”)
O parâmetro Connect (4o parâmetro) é case sensitive (diferencia A de a) e – ao contrário do que diz a documentação do VB – os parâmetros exclusive e read-only (2o e 3o parâmetros) devem ser falsos.
