Tenho um banco de dados em asp que controla um patrimônio.
Gostaria que, ao alterar um determinado registro, fosse salvo a informação que estava antes, tipo um histórico e não estou conseguindo fazer este histórico.
Tá assim, mas tá salvando a mesma informação nas duas tabelas.
'-------------------------------------------
'Nova parte para inserir e guardar histórico (tabela: tabela_historico)
strQuery = "INSERT INTO tabela_historico (autonum,conta,numero,descricao,serie,localnovo,observacao,documento,data) VALUES ("&autonum&",'"&conta&"','"&numero&"','"&descricao&"','"&serie&"','"&local&"','"&observacao&"','"&documento&"','"&data&"')"
Set ObjRs = objConn.Execute(strQuery)
'-------------------------------------------
strQuery = "UPDATE tabela SET conta = '"&conta&"', numero='"&numero&"', descricao='"&descricao&"', serie='"&serie&"', localnovo = '"&local&"', observacao = '"&observacao&"', documento = '"&documento&"', data = '"&data&"' WHERE autonum ="&autonum
'Caso ocorra um erro esta função de erro será chamada
On error Resume Next
Já procurei em tudo quanto é lugar e não achei nada parecido. Obrigado.
Question
prfcld
Seguinte,
Tenho um banco de dados em asp que controla um patrimônio.
Gostaria que, ao alterar um determinado registro, fosse salvo a informação que estava antes, tipo um histórico e não estou conseguindo fazer este histórico.
Tá assim, mas tá salvando a mesma informação nas duas tabelas.
'-------------------------------------------
'Nova parte para inserir e guardar histórico (tabela: tabela_historico)
strQuery = "INSERT INTO tabela_historico (autonum,conta,numero,descricao,serie,localnovo,observacao,documento,data) VALUES ("&autonum&",'"&conta&"','"&numero&"','"&descricao&"','"&serie&"','"&local&"','"&observacao&"','"&documento&"','"&data&"')"
Set ObjRs = objConn.Execute(strQuery)
'-------------------------------------------
strQuery = "UPDATE tabela SET conta = '"&conta&"', numero='"&numero&"', descricao='"&descricao&"', serie='"&serie&"', localnovo = '"&local&"', observacao = '"&observacao&"', documento = '"&documento&"', data = '"&data&"' WHERE autonum ="&autonum
'Caso ocorra um erro esta função de erro será chamada
On error Resume Next
Já procurei em tudo quanto é lugar e não achei nada parecido. Obrigado.
Link to comment
Share on other sites
0 answers to this question
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.