FUNCAO FILEDATETIME
Estimados amigos do forum.
Existe uma função no VB 6 que retorna a data e a hora em que determinado arquivo de dados sofreu modificação.
Gostaria de saber se é possÃvel formatar o resultado, para separar a data do horário, inserindo texto para
melhor visualização:
Dim DataArq As String
DataArq = FileDateTime(App.Path & [Ô]\Arquivo.mdb[Ô])
MsgBox [Ô]Última atualização da base de dados: < [Ô] & DataArq & [Ô] > [Ô]
Associando a rotina a um botão de comando, retorna a informação:
< 15/06/2012 00:03:56 >
(exemplos de retorno do resultado acima, formatados):
<Atenção! A base de dados foi atualizada em 15/06/2012, Ã s 00:03 min... >
Ou [Ô]Data da última modificação: 15/06/2012 (alterado à s 00:03 min.)[Ô]
Chico.
Existe uma função no VB 6 que retorna a data e a hora em que determinado arquivo de dados sofreu modificação.
Gostaria de saber se é possÃvel formatar o resultado, para separar a data do horário, inserindo texto para
melhor visualização:
Dim DataArq As String
DataArq = FileDateTime(App.Path & [Ô]\Arquivo.mdb[Ô])
MsgBox [Ô]Última atualização da base de dados: < [Ô] & DataArq & [Ô] > [Ô]
Associando a rotina a um botão de comando, retorna a informação:
< 15/06/2012 00:03:56 >
(exemplos de retorno do resultado acima, formatados):
<Atenção! A base de dados foi atualizada em 15/06/2012, Ã s 00:03 min... >
Ou [Ô]Data da última modificação: 15/06/2012 (alterado à s 00:03 min.)[Ô]
Chico.
acho que vc pode fazer isso no proprio (INSERT, UPDATE, DELETE) quando vc inserir, alterar ou mesmo excluir, vc pode criar uma tabela para salvar isso, tipo salve em outra tabela a data e a hora atual que vc esta fazendo a alteração, ai no form onde vc quer que mostre se foi alterado, exibe em um msgbox, ou em um grid ai fica ao seu critério.
foi apenas uma sugestão....
espero ter ajudado
foi apenas uma sugestão....
espero ter ajudado
Rick, antes de implementar a sua dica, resolvi adaptar a função <FileDateTime> para exibir, em duas variáveis, a data e o horário
em que o arquivo de dados foi modificado. Funcionou como eu queria. Conforme cód. abaixo:
Private Sub MnuAtualiz_Click()
Dim DataArq As String, DataArq2 As String
DataArq = FileDateTime(App.Path & [Ô]\Banco de Dados[Ô])
DataArq2 = FileDateTime(App.Path & [Ô]\Banco de Dados[Ô])
DataArq = Format(DataArq, [Ô]dd/mm/yyyy[Ô])
DataArq2 = Format(DataArq2, [Ô]hh:mm:ss[Ô])
MsgBox [Ô]Última atualização da base de dados:[Ô] & Chr(13) & Chr(13) & _
[Ô] * * *[Ô] & Chr(13) & Chr(13) _
& [Ô] [Ô] & DataArq & [Ô] à s [Ô] & DataArq2 & [Ô] h.[Ô], vbOKOnly, [Ô]Informações do Sistema[Ô]
End Sub
Agradeço a sua informação. Provavelmente irei usá-la em outro project que estou concluindo.
Abraços e t +.
Xyko.
em que o arquivo de dados foi modificado. Funcionou como eu queria. Conforme cód. abaixo:
Private Sub MnuAtualiz_Click()
Dim DataArq As String, DataArq2 As String
DataArq = FileDateTime(App.Path & [Ô]\Banco de Dados[Ô])
DataArq2 = FileDateTime(App.Path & [Ô]\Banco de Dados[Ô])
DataArq = Format(DataArq, [Ô]dd/mm/yyyy[Ô])
DataArq2 = Format(DataArq2, [Ô]hh:mm:ss[Ô])
MsgBox [Ô]Última atualização da base de dados:[Ô] & Chr(13) & Chr(13) & _
[Ô] * * *[Ô] & Chr(13) & Chr(13) _
& [Ô] [Ô] & DataArq & [Ô] à s [Ô] & DataArq2 & [Ô] h.[Ô], vbOKOnly, [Ô]Informações do Sistema[Ô]
End Sub
Agradeço a sua informação. Provavelmente irei usá-la em outro project que estou concluindo.
Abraços e t +.
Xyko.
Tópico encerrado , respostas não são mais permitidas