PROBLEMAS COM SENHA VIA CODIGO COM ACCESS 2003
Olá novamente, pessoal!
Preciso proteger o banco de dados em Access mas já tentei todas as dicas do site e de outros lugares e nada funciona! Creio que seja problema de versão, pois todas as dicas que eu vi eram para Access 97 ou 2000, então talvez com o 2003 seja diferente, sei lá.
Quando eu rodo o programa dá a mensagem "Senha inválida" ,mas eu tenho certeza de que a senha está certa.
Obrigado!
Preciso proteger o banco de dados em Access mas já tentei todas as dicas do site e de outros lugares e nada funciona! Creio que seja problema de versão, pois todas as dicas que eu vi eram para Access 97 ou 2000, então talvez com o 2003 seja diferente, sei lá.
Quando eu rodo o programa dá a mensagem "Senha inválida" ,mas eu tenho certeza de que a senha está certa.
Obrigado!
Ajuda, para não dizer que é imprescindÃvel, indicar a forma como está abrindo a conexão com a base de dados access.
Isso... coloque a STRING DE CONEXAO...
Olha, sou novato pra caramba e não sei se é isso que vocês pediram:
Sub ADOAbrirBDProtegido()
Dim CNN As New ADODB.Connection
CNN.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "\Projetos.mdb;Jet " & _
"OLEDB:Database Password=teste;"
CNN.Close
End Sub
é assim que eu estou tentando conectar com senha atualmente, inclusive peguei esse código aqui no fórum.
Valeu pessoal!
Sub ADOAbrirBDProtegido()
Dim CNN As New ADODB.Connection
CNN.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "\Projetos.mdb;Jet " & _
"OLEDB:Database Password=teste;"
CNN.Close
End Sub
é assim que eu estou tentando conectar com senha atualmente, inclusive peguei esse código aqui no fórum.
Valeu pessoal!
Pois é. mas parece que pegou mal. Eis uma string correcta:
Public Function ConexaoDados() As Connection
base = PstrCamDados & "\mvdoctab.mdb"
Set dbDados = New ADODB.Connection
With dbDados
.Provider = "Microsoft.Jet.OLEDB.4.0"
.Properties("Data Source") = base
.Properties("Jet OLEDB:Database Password") = "password"
.Open
End With
End Function
Public Function ConexaoDados() As Connection
base = PstrCamDados & "\mvdoctab.mdb"
Set dbDados = New ADODB.Connection
With dbDados
.Provider = "Microsoft.Jet.OLEDB.4.0"
.Properties("Data Source") = base
.Properties("Jet OLEDB:Database Password") = "password"
.Open
End With
End Function
Sub ADOAbrirBDProtegido()
Dim CNN As New ADODB.Connection
cnnstr = " Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Projetos.mdb;Jet OLEDB:Database password='teste';"
CNN.Open cnnstr
CNN.Close
End Sub Entendeu.... tente teste com ' ' ..... 'teste'
Falou
Eu tentei das duas formas citadas e não consegui, continua dando a mensagem "Senha inválida" [S21]
Nem a tentativa baseada no Joao Matheus nem a tentativa baseada no Germanir funcionaram, eu tà ' começando a acreditar que este VB tem algo contra mim! é humanamente impossÃvel! Outras pessoas já tentaram e dá na mesma!
Se vocês ainda tiverem alguma idéia eu até doou um rim pra vocês! [S20]
Nem a tentativa baseada no Joao Matheus nem a tentativa baseada no Germanir funcionaram, eu tà ' começando a acreditar que este VB tem algo contra mim! é humanamente impossÃvel! Outras pessoas já tentaram e dá na mesma!
Se vocês ainda tiverem alguma idéia eu até doou um rim pra vocês! [S20]
Como você colocou a senha no banco de dados?
Coloque os passos:
Coloque os passos:
1 - Abri o Banco de Dados em modo exclusivo
2 - Fua em Ferramentas - Segurança - Definir senha do banco de dados
3 - Coloquei a senha "teste" e fechei o banco de dados
Daà em diante toda vez que eu abro o BD ele pede a senha, eu coloco, então aparece aquela pergunta chata se eu quero abrir o BD pois pode não ser seguro e bla bla bla, então eu clico em Abrir e entro normalmente
2 - Fua em Ferramentas - Segurança - Definir senha do banco de dados
3 - Coloquei a senha "teste" e fechei o banco de dados
Daà em diante toda vez que eu abro o BD ele pede a senha, eu coloco, então aparece aquela pergunta chata se eu quero abrir o BD pois pode não ser seguro e bla bla bla, então eu clico em Abrir e entro normalmente
[txt-color=#ff0000]TAKEME, DEVE SER ALGUM PROBLEMA AI NO SEU COMPUTADOR,
POIS O EXEMPLO QUE VC ME MANDOU FUNCIONOU AUTOMATICAMENTE..
NAO SO ABRIU O BD COM SENHA, COMO VISUALIZOU AS TABELAS E ETC...
DEVE SER ALGUM CONFLITO AI COM SEU ACCESS 2003!!!!
AQUI DEU TUDO CERTO!!!!!!!!!
VALEUUU[/txt-color]
POIS O EXEMPLO QUE VC ME MANDOU FUNCIONOU AUTOMATICAMENTE..
NAO SO ABRIU O BD COM SENHA, COMO VISUALIZOU AS TABELAS E ETC...
DEVE SER ALGUM CONFLITO AI COM SEU ACCESS 2003!!!!
AQUI DEU TUDO CERTO!!!!!!!!!
VALEUUU[/txt-color]
PÃ ', valeu Germanir, vou verificar oq diabos está havendo aqui, ainda bem que você testou pra mim! [S20]
Valeu pelo help, problema resolvido então!
[]'s [S79] [S85]
Valeu pelo help, problema resolvido então!
[]'s [S79] [S85]
Tópico encerrado , respostas não são mais permitidas