if not dm.IBTransaction1.Intransaction then
dm.IBTransaction1.StartTransaction;
Dm.IBQyAgemp.SQL.Clear;
Dm.IBQyAgemp.SQL.Add('insert into empresa (cod_empresa) values
(:cod_empresa)');
Dm.IBQyAgemp.ParamByName('cod_empresa').AsString:='AAAA';
Try
Dm.IBQyAgemp.ExecSQL;
dm.IBTransaction1.Commit; // Comita a transação se tudo deu certo
Except
dm.IBTransaction1.Rollback; //volta tudo como era antes.
ShowMessage('Erro ao salvar dados');
End;
--- Em delphi-br@yahoogrupos.com.br, "delphi6_2005"
<[EMAIL PROTECTED]> escreveu
> Como executar um transação no interbase.
>
> Para executar uma query no interbase necessito antes iniciar um
> transação no banco? como poderia fazer?
>
> Dm.IBQyAgemp.SQL.Clear;
> Dm.IBQyAgemp.SQL.Add('insert into empresa (cod_empresa) values
> (:cod_empresa)');
> Dm.IBQyAgemp.ParamByName('cod_empresa').AsString:='AAAA';
> Dm.IBQyAgemp.ExecSQL;
>
> Agradeço a ajuda dos amigos.
>
> Paulo
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
