Jump to content
Fórum Script Brasil
  • 0
Sign in to follow this  
brunohjoia

Acessar Banco De Dados Com Senha

Question

Olá! Surgiu uma pequena duvida enquanto eu aperfeiçoava o meu projeto. É que eu preciso acessar um banco de dados com senha, mas sem utilizar o Adodc. Estou usando apenas codigo nesse caso, mas o codigo só consegue acessar bancos de dados sem senha especificada... o codigo que estou usando é esse:

Dim ObjectAccess As New Access.Application
Dim MySQL As String
Dim MyDB As Database

Private Sub cmdRelatorioView_Click()
'Parte que edita a consulta
Set MyDB = Workspaces(0).OpenDatabase(CurDir & "\BancaJornal1.mdb", 0, False)
MySQL = "SELECT * FROM Produtos WHERE Produtos.cod_fornecedor=" & frmFornecedores.txtCodigo
MyDB.QueryDefs("ProdutosConsulta").SQL = MySQL
MyDB.Close
'*******************************************

'Parte que abre o relatorio
With ObjectAccess
.OpenCurrentDatabase CurDir & "\BancaJornal1.mdb", False
      For Each c In .CommandBars
        c.Enabled = False
      Next c
.DoCmd.OpenReport "ContaFornecedores", acViewPreview

.DoCmd.SelectObject acTable, "Descontos", True
.DoCmd.RunCommand acCmdWindowHide
.Reports("ContaFornecedores").Application.DoCmd.Maximize
.Visible = True
End With
'*********************************************************
End Sub

Repare que eu abro o mesmo banco de dados de dois modos diferentes (declarando uma variavel como Database e a outra como access.application), de acordo com a minha necessidade. Mas então... Como é que eu faço, nos dois casos, para definir a senha que o codigo deverá usar para a brir o banco de dados??????? Alguém aí sabe?

Share this post


Link to post
Share on other sites

2 answers to this question

Recommended Posts

  • 0

O método OpenDatabase tem Connect como último parâmetro, certo? Caso positivo, acredito que basta colocar ";pwd=senha" (sim, uma string) nele. Faça o teste aí e veja se dá certo.

Abraços,

Graymalkin

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this  



  • Forum Statistics

    • Total Topics
      148127
    • Total Posts
      643426
×
×
  • Create New...