Transacao com duas Tabelas
Boa Tarde a todos, por favor como faco com uma transacao envolvendo duas tabelas sendo q pego o resultado de uma e transfiro para outra.
e o seguinte tenho uma tabela q se chama ultimos_numeros entao quando eu crio uma nova requisicao ele busca o ultimo numero(requisicao) e soma 1, entao este numero é atualizado na tabela ultimos_numeros e é o numero da requisicao atual. Esta atualizacao so é feita quando eu clico em atualizar a requisicao.
sds
Anderson
e o seguinte tenho uma tabela q se chama ultimos_numeros entao quando eu crio uma nova requisicao ele busca o ultimo numero(requisicao) e soma 1, entao este numero é atualizado na tabela ultimos_numeros e é o numero da requisicao atual. Esta atualizacao so é feita quando eu clico em atualizar a requisicao.
sds
Anderson
Agaraujo
Curtidas 0
Respostas
Aroldo Zanela
10/02/2004
Colega,
Qual é o banco de dados? Qual método de acesso (componentes)?
Qual é o banco de dados? Qual método de acesso (componentes)?
GOSTEI 0
Agaraujo
10/02/2004
o bando de dados é Interbase
o acesso é via SQLDataSet
o acesso é via SQLDataSet
GOSTEI 0
Pro2
10/02/2004
o bando de dados é Interbase
o acesso é via SQLDataSet
exemplo de transação
procedure TDM.IncTrans;
begin
if not Conexao.InTransaction then
begin
TD.TransactionID := 1;
TD.IsolationLevel := xilREADCOMMITTED;
conexao.StartTransaction(TD);
end;
end;
procedure TDM.ComTrans;
begin
Conexao.Commit(TD);
end;
procedure TDM.RolTrans;
begin
Conexao.Rollback(TD);
end;
eu crieu esta tres procedure no datamodule assim eu faço as transações blz
IncTrans;
try
With qryNewRecord.SQL do
begin
Clear;
Add(´UPDATE newrecordgeral SET CODFUNCIONARIO = ´ + inttostr(codigo + 1));
end;
/// aqui vc pode colocar que insert e update desejar
DM.ComTrans; /// se não der nenhum erro commita
Except
dm.RolTrans;// se der elgum erro rollback
GOSTEI 0