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.
Pergunta
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 para o comentário
Compartilhar em outros sites
0 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.