Recuperando valores autoincrement BDP

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (0)  (0)


 

Não existe sustentação interna para recuperar os valores que são atribuídos às colunas autoincrement, mas você pode criar uma solução simples. O exemplo mostrado aqui não é a única solução , apenas apresenta uma solução usada geralmente com a tecnologia de DataSnap. O TDataSetProvider tem um evento de AfterUpdateRecord onde recupera o valor atribuído do autoinc. Este evento é acionado depois que um registro foi introduzido ou alterado.

A funcionalidade equivale ao evento  RowUpdated do BdpDataAdapter.


Veja o exemplo abaixo:

 

procedure TWinForm.BdpDataAdapter1_RowUpdated

(sender: System.Object; e: Borland.Data.Provider.BdpRowUpdatedEventArgs);var
 
bdpCmd: BdpCommand;
  iPK: Integer;begin  if (e.Status = updatestatus.Continue) and     (e.StatementType = StatementType.Insert) then   begin     bdpCmd := BdpCommand.Create('SELECT @@IDENTITY',bdpConnMain);     iPK := Integer(bdpCmd.ExecuteScalar);     e.Row['CustNo'] := iPK;     e.Row.AcceptChanges;   end;end;
 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?