USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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      Clique aqui para enviar email para o autor  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.
 


CyberWEB Network Ltda.    © Copyright 2000-2021   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página