[Resolvido]Senha de banco de dados em ao Abrir recordSet

Bem amigos...é só uma pequena dúvida.. nesta linha

Set dbLocal = ws.OpenDatabase(DirBancoDados & "\Syspen_Be_Local.accdb", False, False, "MS Access;PWD=senha")

Se eu tivesse como senha o numero 1234
Ela ficaria como ai na linha?

Amigão, se você colocar direto não funfa ?

Set dbLocal = ws.OpenDatabase(DirBancoDados & "\Syspen_Be_Local.accdb", False, False, "MS Access;PWD=1234")

Ou então tente defenir como variavel;

Dim strSenha as Variant

strSenha=1234

Set dbLocal = ws.OpenDatabase(DirBancoDados & "\Syspen_Be_Local.accdb", False, False, "MS Access;PWD=" & strSenha)

é so isso mesmo JP.. e que vou coloca-la em um arquivo externo.. o de paramteros, que coloquei no repositório de códigos...
1 - Aplico a senha no arquivo externo
2 - aplico a Função Pública no módulo
3 - Chamo o a função do Arquivo de Paramentros no módulo do Form
3 - Crio uma cariável para receber o valor do Arquivo de parametros (no caso a senha do BD)
4 - Aplico a variável no lugar da senha......

Dessa forma minha senha não ficaria no Front End....

Então se eu mudar a senha do BD, so preciso ir no arquivo externo e modificar, sem ser necessario mexer no front..

Grato
Tenha uma ótima noite

Ops!!! Resolvido

Normalmente funfa sem defenir como variavel, abrindo com o Workspace(0)

Dim dbLocal As DAO.Database
Dim ws As DAO.Workspace
Dim rst As DAO.Recordset

Set ws = DBEngine.Workspaces(0)
Set dbLocal = ws.OpenDatabase(DirBancoDados & "\Syspen_Be_Local.accdb", False, False, "MS Access;PWD=1234")
Set rst = dbLocal.OpenRecordset("teste", dbOpenTable)

Ao mesmo tempo 22:23 rsrsrsrs

Resolvido é Resolvido

Tenha uma otima noite.

No meu caso farei assim:

Parametros_de_Inicializacao "SysPen.par" 'Aqui chamo os parametros contidos em um arquivo externo, que é definido como uma função pública em um módulo no BD
Dim dbLocal As DAO.Database
Dim ws As DAO.Workspace
Dim rst As DAO.Recordset
Dim SenhaBD as String 'Aqui crio a variável para receber o valor contido no Arquivo externo de parâmetros que é (Senha: = 1234)

SenhaBD = Senha 'Aqui carrego a Variavel com o valor contido na linha Senha do Syspen.par que é 1234
Set ws = DBEngine.Workspaces(0)
Set dbLocal = ws.OpenDatabase(DirBancoDados & "\Syspen_Be_Local.accdb", False, False, "MS Access;PWD=" & SenhaBD) 'Aqui a variável
Set rst = dbLocal.OpenRecordset("teste", dbOpenTable)

Dessa forma a senha não acompanha o Front....
ela fica em um arquivo externo, podendo ser alterada de maneira simples...

Grato

Bom dia a todos.

Estou utilizando o código abaixo, para abrir um outro BD que está criptografado (senha), o BD abre perfeitamente, porem me aparece a caixa para digitar a senha. Teria como ocultá-la?

Sub OpenMD_COMERCIAL()
Dim MinhaPassword As Variant
Dim strDbName As String
Dim objAccess As Object
Dim db As Database

MinhaPassword = "minhasenha"
strDbName = "C:\_Attos\Files\MODULOS\MD_COMERCIAL.accdb"
Set objAccess = New Access.Application
Set db = objAccess.DBEngine.OpenDatabase(strDbName, False, False, ";pwd=" & minhasenha)
objAccess.OpenCurrentDatabase filepath:=strDbName

End Sub

Veja onde vai a variável Senha.. o erro não está ai?


MinhaPassword = "minhasenha"
strDbName = "C:\_Attos\Files\MODULOS\MD_COMERCIAL.accdb"
Set objAccess = New Access.Application
Set db = objAccess.DBEngine.OpenDatabase(strDbName, False, False, ";pwd=" & minhasenha)
objAccess.OpenCurrentDatabase filepath:=strDbName

não seria MinhaPassword no lugar de minhasenha?


Cumprimentos.

End Sub

Piloto desculpe, colei a informação errada....segue abaixo como estou utilizando.

Sub OpenMENU_COMERCIAL()

Dim MinhaPassword As Variant
Dim strDbName As String
Dim objAccess As Object
Dim db As Database

MinhaPassword = "123456"
strDbName = "C:\_Attos\Files\SUBMENU\MENU_COMERCIAL.accdb"
Set objAccess = New Access.Application
Set db = objAccess.DBEngine.OpenDatabase(strDbName, False, False, ";pwd=" & MinhaPassword)
objAccess.OpenCurrentDatabase filepath:=strDbName

End Sub

Abraços!!!

Testei aqui... abriu rapidamente a tela do access e fechou.. não pediu senha..


Dim MinhaPassword As Variant
Dim strDbName As String
Dim objAccess As Object
Dim db As Database

MinhaPassword = "123"
strDbName = "D:\Access\Forum\Ramon.Matos\bd.mdb"
Set objAccess = New Access.Application
Set db = objAccess.DBEngine.OpenDatabase(strDbName, False, False, ";pwd=" & MinhaPassword)
objAccess.OpenCurrentDatabase filepath:=strDbName



Cumprimentos.

Talvez o que esteja acontecendo é o seguinte.

Os meus controles funcionam em cascata, sendo.

1º - Tenho um BD com o form MENU PRINCIPAL.

2º - O usuário no MENU PRINCIPAL ao clicar num botão FINANCEIRO, carrega outro BD (Criptografado) com o form SUBMENU FINANCEIRO.

3º - No SUMENU FINANCEIRO ao clicar no botão GERENCIADOR FINANCEIRO ele carrega outro BD (Criptografado) Modulo_FINANCEIRO.

OBS.: Vocês estão se perguntando....para que separar por BDs? É que dentro de cada BD (MENU) eu controlo as permissões dos usuários, habilitando Botoes e Forms. Desta forma esta funcionando perfeito!!!

O que ocorre é! No 2º passo, no SUBMENU FINANCEIRO ao clicar no botão para abrir o GERENCIADOR FINANCEIRO, o SUBMENU FINANCEIRO se fecha (DoCmd.Quit). Porem fica solicitando “senha necessária”, então eu pressiono o ESC (Escape) no espaço da senha esta opção se fecha.

Tem alguma forma de automatizar essa ação de pressionar o ESC sem ser pelo SendKeys.

No evento ao pressionar teclas...

If KeyCode = XX Then
 Seu código
  KeyCode = 0
End If


No form tem nas pripriedades, visualizar teclas = Sim

Na sala de repositório temos um exemplo do Mestre Críquio para descobrir as KeyCodes.. das teclas..

Cumprimentos.