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?
Pergunta
brunohjoia
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 SubRepare 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.