Ir para conteúdo
Fórum Script Brasil
  • 0

Acessar Banco De Dados Com Senha


brunohjoia

Pergunta

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?

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...