|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Banco de Dados)
|
|
 |
Título da Dica: Abrir Banco de Dados com Senha - DAO & ADO
|
 |
|
|
|
Postada em 8/10/2000 por Webmaster
webmaster@vbweb.com.br
Caso você tenha definido uma senha para seu banco de dados, abra-o desta maneira:
DAO
Sub DAOAbrirBDProtegido()
Dim DB As DAO.Database
'O parâmetro pwd (q é a senha - 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.
Set DB DBEngine.OpenDatabase(App.Path & "\SeuBD.MDB", _
False, False, ";pwd=senha")
DB.Close
End Sub
ADO
Sub ADOAbrirBDProtegido()
Dim CNN As New ADODB.Connection
CNN.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path &"\SeuBD.MDB;Jet " & _
"OLEDB:Database Password=senha;"
CNN.Close
End Sub
Onde "senha" é a sua senha. Quer dizer, subistitua "senha" pela senha do banco de dados.
|
|
|
|
|
