ATUALIZAR TABELA ACCESS
Boa tarde a todos
quebrando a cabeça eu ja consegui fazer parte do que queria.
quando eu inicio o sistema ele atualiza com este codigo abaixo
[txt-color=#e80000]Sql = [Ô][Ô]
Sql = Sql & [Ô]UPDATE patrimonio SET [Ô]
Sql = Sql & [Ô]patrimonio.dataatual =[ô][Ô] & Text1.Text & [Ô][ô] [Ô]
Set rsTemp = bancodedados.Execute(Sql, regAfetado)
[/txt-color]
Junto com esta sql tenho dois campos no access que preciso diminuir que é campo data
datacompra e dataatual. Preciso que quando iniciar o programa ele atualize primeiro o campo dataatual que ja esta funcionando e agora falta saber quantos dias tem entre dataatual e data compra para finalizar a primeira parte do projeto.
Como que eu faço isto?
quebrando a cabeça eu ja consegui fazer parte do que queria.
quando eu inicio o sistema ele atualiza com este codigo abaixo
[txt-color=#e80000]Sql = [Ô][Ô]
Sql = Sql & [Ô]UPDATE patrimonio SET [Ô]
Sql = Sql & [Ô]patrimonio.dataatual =[ô][Ô] & Text1.Text & [Ô][ô] [Ô]
Set rsTemp = bancodedados.Execute(Sql, regAfetado)
[/txt-color]
Junto com esta sql tenho dois campos no access que preciso diminuir que é campo data
datacompra e dataatual. Preciso que quando iniciar o programa ele atualize primeiro o campo dataatual que ja esta funcionando e agora falta saber quantos dias tem entre dataatual e data compra para finalizar a primeira parte do projeto.
Como que eu faço isto?
Dim dias As Integer
Sql = [Ô]SELECT dataatual, datacompra FROM patrimonio[Ô]
Set rsTemp = bancodedados.Execute(Sql)
dias = CDate(rsTemp([Ô]dataatual[Ô])) - CDate(rsTemp([Ô]datacompra[Ô]))
IF dias <= 0 Then
MsgBox [Ô]O seu periodo de teste finalizou[Ô], vbOkOnly + vbCritical
Set rsTemp = Nothing
bancodedados.Close
Set bancodedados = Nothing
End
End ifIsso é só um exemplo de como você retorna os dados da tabela mais indico você pesquisar mais sobre SQL, pois isso é o minino que se deve saber
Espero ter ajudado
Tópico encerrado , respostas não são mais permitidas