[Resolvido]Atualizador de versão

Pessoal, tenho o banco de dados chamado MVTables, com a seguinte tabela tbl_expira,onde tem os campos, Versão,Expira,Aviso.
Versão: 2.5 - Informar a versão no Front-End
Expira: 25/12/2010 - Data em que o sistema irá expira.
Aviso: 23/12/2010. - Data para aviso, de quando tempo falta para o aplicativo expira.
-------------------------------------------------------------------------------
Assim peguei um exemplo na internet, de outro banco de dados, onde informo a versão,expira e aviso, quando o usuário clica sobre o botão atualizar o mesmo faz a atualização automática do banco MVtables, mais o que estou precisando é, que meu banco de dados MVTables, coloquei uma senha e com está senha ele não conseguir acessar, e não seu onde e como coloco o código para ele acessar.
Segue abaixo partes do código:
----------------------------------------- Botão atualizar.
Private Sub Atualizar_Click()


If (MsgBox("Tem certeza que deseja atualizar os dados ?", vbQuestion + vbYesNo, "Atualizar dados") = vbYes) Then
If Atualizar_Sistema = True Then
MsgBox "A atualização dados foi concluída com sucesso!", vbInformation, "Atualização concluída"
End If

DoCmd.Quit 'fecha o aplicativo

End Sub
-------------------------------------------Segunda partir do código.
Option Compare Database
Const OrigemBanco As String = "C:\Inforseg\Dados\MVTables.mdb"
----------------------------------------------------------------------
Function Atualizar_Sistema() As Boolean
On Error GoTo Erro_Procedimento

DoCmd.SetWarnings False
Dim Base As Database, prp As Property
Dim rst As Recordset


Set Base = DBEngine.OpenDatabase(OrigemBanco, False, False, "")

Err.Clear

'Data de validade
Base.Execute "UPDATE tbl_expira SET tbl_expira.versão = '2.5';"
Base.Execute "UPDATE tbl_expira SET tbl_expira.expira= '30/12/2010';"
Base.Execute "UPDATE tbl_expira SET tbl_expira.aviso= '28/12/2010';"

Base.Close

Set Base = Nothing

MsgBox "O aplicativo Inforseg - V2.5.mdb foi atualizado com sucesso!", vbInformation

DoCmd.Quit

Exit Function

Erro_Procedimento:

Atualizar_Sistema = False

If Err.Number = 3078 Then
MsgBox "O Aplicativo não localizou a tabela para atualização." & Chr(13) & Chr(13) & "Verifique se o arquivo para atualização está correto e tente novamente.", vbCritical, "Erro"

ElseIf Err.Number = 3022 Then
MsgBox "O Aplicativo já fez a atualização.", vbInformation, "Atualização"
Else
MsgBox "Erro " & Err.Number & " (" & Err.Description & ") "
End If

DoCmd.Quit
End Function

Pessoal, quem entendeu o que quero adapatar, favor mim passem como faço isto.

Você pretende impedir o acesso à base de dados é isso? Se for isso pode utilizar a senha no VBA. Basta a brir um módulo ir a tools (ferramentas) Properties e definir uma senha.

Amigo:

Estive a ler o seu post de novo. Está um pouco confuso, mas se você colocou uma senha para impedir o acesso logo o aplicativo não consegue abrir. Não sei se é esse o seu problema, mas se for retorne p.f., para tentar ajuda-lo.

Vou tenta explica, tenho um banco de dados chamado MVTables(Na verdade o MVTables, tem todas tabelas do aplicativo chamado Inforserg), dentro dele criei uma tabela chama tbl_expira, que contém os seguintes campos: Aviso = Valor date,Versão = Valor texto e Expira = Valor Date. E criei um outro banco de dados chamado atualizador de versão, no atualizador é onde informo os novos dados como a versão, aviso e expira, este atualizador funcionar como um validador de aplicativo,e criei um botão no form, chamado "Atualizador", quando eu aciono este botão, ele automáticamente acessa o banco de dados MVTables e atualiza a tbl_expira, com as novas informações,como exemplo:
Aviso: 25/12/2010
Expira:30/12/2010
Versão:2.5
Obs: Ele funciona muito bem, porém quando eu coloco uma senha de segurança no MVTables, o atualizador não conseguir realizar atualização devido a senha, porque isto, para que o usuário final não venha abrir o bando de dados MVTables e informar uma nova data de expiração do aplicativo.
Caso vocês não tenha entendido posso enviar o produto final, para vocês pega o assunto, obrigado!

Bom dia!

Vieira, mandei 2 anexo para você por e-mail, pois não conseguir disponibilizar os arquivos pelo forúm. Favor mim ajuda, o mestre JPaulo, está de férias, ele que mim salva em muitas dicas massas.

GLEIBSON

O nosso Mestre é a nossa tábua de salvação quando estamos enredados nas teias tenebrosas dos códigos (rsrsrs). Tanto quanto eu sei, se você tiver uma senha a proteger a BD, o aplicativo que vai efectuar a actualização não pode efectua-la. O ideal seria que ao iniciar a aplicação a senha fosse pedida. Penso que é isso que você quer. Até agora não recebi nada no email. Melhor enviar isso no formato ZIP, pois por vezes o provedor de email deleta ficheiros que considera suspeitos.

Amigo:

Tire-me uma dúvida

Quando você clica no botão actualizar a bd não lhe pede a senha?

o arquivo atualizador funciona desta forma, quando eu abro o arquivo ele iniciar o formulário principal com dois botões um chamada Atualizador e outro cancelar. Abrir o arquivo atualizador não precisa de senha, quem esta com a senha é o o arquivo MVTables, ele que tem a senha 04160215, por isto o atualizador não conseguir acessa. O que estou precisando é que o arquivo atualizador tenha um código dentro dele com está senha para ele poder acessa o arquivo MVTables. E sobre os arquivos passei para você já compactados pelo winrar

GLEIBSON

Não recebi nada no email. o meu email é sergiovieirasoft@gmail.com.

É Evidente que o actualizador não consegue abrir a base de dados por esta possuir uma password. Agora aguarde que eu estou a estudar o caso.

Veja se este código do Mestre JPaulo resolve

Sub OpenDB()
Dim MinhaPassword As Variant
MinhaPassword = "xpto"
strDbName = "c:\SeuBanco.mdb"
Set objaccess = New Access.Application
Set db = objaccess.DBEngine.OpenDatabase(strDbName, False, False, ";PWD=" & MinhaPassword)
objaccess.OpenCurrentDatabase filepath:=strDbName
End Sub

Para chamar o Sub:

Private Sub SeuBotao_Click()
OpenDB
End Sub

Bom dia!
Vieira, favor mim ajuda a adapta este código do JPaulo, que você mim enviou logo abaixo está parte do código que atualizar a banco de dados MVTables, ainda não tenho muita ideia da lógica dos algoritimos, coloquei parte do código que você passou nele, mesmo assim não da certo, apareci um aviso de erro de senha.

Function Atualizar_Sistema() As Boolean
On Error GoTo Erro_Procedimento

DoCmd.SetWarnings False
Dim Base As Database, prp As Property
Dim rst As Recordset
Dim Password As String


Set Base = DBEngine.OpenDatabase(OrigemBanco, False, False, "")
strDbName = "C:\Inforseg\Dados\MVTables.mdb"
Set objaccess = New Access.Application
Set db = objaccess.DBEngine.OpenDatabase(strDbName, False, False, ";PWD=04160215")
objaccess.OpenCurrentDatabase filepath:=strDbName

Err.Clear

'Data de validade
Base.Execute "UPDATE tbl_expira SET tbl_expira.versão = '2.7';"
Base.Execute "UPDATE tbl_expira SET tbl_expira.expira= '25/12/2010';"
Base.Execute "UPDATE tbl_expira SET tbl_expira.aviso= '20/12/2010';"

Base.Close

Set Base = Nothing

MsgBox "O aplicativo Inforseg - V2.5.mdb foi atualizado com sucesso!", vbInformation

DoCmd.Quit

Exit Function

Erro_Procedimento:

Atualizar_Sistema = False

If Err.Number = 3078 Then
MsgBox "O Aplicativo não localizou a tabela para atualização." & Chr(13) & Chr(13) & "Verifique se o arquivo para atualização está correto e tente novamente.", vbCritical, "Erro"

ElseIf Err.Number = 3022 Then
MsgBox "O Aplicativo já fez a atualização.", vbInformation, "Atualização"
Else
MsgBox "Erro " & Err.Number & " (" & Err.Description & ") "
End If

DoCmd.Quit
End Function

Amigo estou tentando ajudar, mas não sou mágico. Logo que for possível vou postar uma tentativa.

Vieira, estou tentando posta, os arquivos para você mim ajuda, porém não sei o que está havendo, o arquivo esta dando erro com a seguinte mensagem: O arquivo adicionado não é valido: nome do arquivo incorreto. Mim informa como posso enviar o anexo em *.zip, para você.

Tente zipar o arquivo e colocar um nome simples, tipo teste

Ói amigo

Desculpe mas estive fora a trabalho. Tente (sem garantia) testar assim;

Function Atualizar_Sistema() As Boolean
On Error GoTo Erro_Procedimento

DoCmd.SetWarnings False
Dim Base As Database, prp As Property
Dim rst As Recordset
Dim Password As String

Password = "xpto"
Set Base = DBEngine.OpenDatabase(OrigemBanco, False, False, "")
strDbName = "C:\Inforseg\Dados\MVTables.mdb"
Set objaccess = New Access.Application
Set db = objaccess.DBEngine.OpenDatabase(strDbName, False, False, ";PWD=04160215")
objaccess.OpenCurrentDatabase filepath:=strDbName

Err.Clear

'Data de validade
Base.Execute "UPDATE tbl_expira SET tbl_expira.versão = '2.7';"
Base.Execute "UPDATE tbl_expira SET tbl_expira.expira= '25/12/2010';"
Base.Execute "UPDATE tbl_expira SET tbl_expira.aviso= '20/12/2010';"

Base.Close

Set Base = Nothing

MsgBox "O aplicativo Inforseg - V2.5.mdb foi atualizado com sucesso!", vbInformation

DoCmd.Quit

Exit Function

Erro_Procedimento:

Atualizar_Sistema = False

If Err.Number = 3078 Then
MsgBox "O Aplicativo não localizou a tabela para atualização." & Chr(13) & Chr(13) & "Verifique se o arquivo para atualização está correto e tente novamente.", vbCritical, "Erro"

ElseIf Err.Number = 3022 Then
MsgBox "O Aplicativo já fez a atualização.", vbInformation, "Atualização"
Else
MsgBox "Erro " & Err.Number & " (" & Err.Description & ") "
End If

DoCmd.Quit
End Function

Criquio, fiz o que você mim falou, coloquei o nome do arquivo, bem simples a exemplo de Atualizador.zip e dados.zip, mesmo assim, deu a mensagem de erro:O arquivo adicionado não é valido: nome do arquivo incorreto. Como posso enviar por e-mail para algum de vocês mim ajuda nesta empreitada.

Amigo

Não estou a perceber a dificuldade? Mas coloque num site público ou abra uma conta na dropbox que é gratuito e coloque lá. Depois basta disponibilizar o link.

Ola, a todos venho aqui agradecer ao grande mestre JPaulo, que mais uma vez mim passou os caminhos das pedras, já apreendi muito com as dicas deste cara, e é o cara mesmo, grande JPaulo, meu muito obrigado!, por mais está contribuição a minha solicitação e a todos aqui, que vieram mim da este grande apoio nesta solução. Segue abaixo a quem interessa o código 100% funcional.

Function Atualizar_Sistema()
'By JPaulo Maximo Access
On Error GoTo 1

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strDbName As String
Dim MinhaSenha As Variant

MinhaSenha = "04160215"

strDbName = "C:\Inforseg\Dados\MVTables.mdb"
Set objaccess = New Access.Application
Set db = objaccess.DBEngine.OpenDatabase(strDbName, False, False, ";PWD=" & MinhaSenha)
objaccess.OpenCurrentDatabase filepath:=strDbName


Set rs = db.OpenRecordset("tbl_expira", dbOpenDynaset)

rs.Edit
rs!versão = "2.9"
rs!expira = "20/12/2010"
rs!aviso = "15/12/2010"
rs.Update


MsgBox "O aplicativo Inforseg - V2.5.mdb foi atualizado com sucesso! ", vbInformation


1:
If Err.Number = 3078 Then
MsgBox "O Aplicativo não localizou a tabela para atualização." & Chr(13) & Chr(13) & "Verifique se o arquivo para atualização está correto e tente novamente.", vbCritical, "Erro"
ElseIf Err.Number = 0 Then
'erro zero não dá mensagem
ElseIf Err.Number = 3024 Then
MsgBox "Banco não encontrado.", vbCritical, "Atualização"
ElseIf Err.Number = 3022 Then
MsgBox "O Aplicativo já fez a atualização.", vbInformation, "Atualização"
Else
MsgBox "Erro " & Err.Number & " (" & Err.Description & ") "
End If

Set rs = Nothing
Set db = Nothing
DoCmd.Quit
End Function

O Fórum agradece. Tópico resolvido

Eu aproveito e peço desculpa a todos, por não ter visto este tópico porque estive de férias.

Foi resolvido por email.