Abrir bd Access com Senha

Question

Olá,

Em uma ClasseConexao (Excel - 2003 + Access - 2003) tenho:

'---------------------------------------
'CLASSE PARA CONEXÃO COM BANCO DE DADOS
'VIA ADO
'---------------------------------------
Public Conn As New ADODB.Connection
Public Sub Conectar()
Dim nConectar As String
    nConectar = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Almir\base2\base2.mdb" 'E:\Arquivos\AccesExcel\base2\base2.mdb"
    Conn.ConnectionString = nConectar
    Conn.Open
    
End Sub
Public Sub Desconectar()
    Conn.Close
End Sub

Qual seria a adaptação para abrir com senha?

---

jose

Answer 1

Com Password ficaria:

 

...
 nConectar = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Almir\base2\base2.mdb;Jet OLEDB:Database Password=****;"
...



Answer 2

Obrigado Nando,

Deu certo. Agora, havia conseguido com pesquisas assim:

nConectar = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Almir\base2\base.mdb;Jet OLEDB:Database Password=***;Persist Security Info=False"

Qual seria o mais conveniente?

---

jose

Answer 3

As duas formas são identicas porque o valor por defeito de 'Persist Security Info' é False.

Indicar esta opção só serve para demonstrar que este parametro tem determinado valor.

Answer 4

Vlw,

Obrigado Nando.

---

jose