Generator
Caros amigos como eu faço para trazer para o delphi o valor atual de um generator.
Fernando Marroco
Curtidas 0
Respostas
Afarias
01/09/2003
use um componente Query (TIBQuery por exemplo) ::
select gen_id(nome_generator, 0) from rdb$database;
e no delphi::
with IBQuery1 do
try
Open;
ValorGenerator := Fields[0].AsInteger;
finally
Transaction.Commit;
end;
T+
select gen_id(nome_generator, 0) from rdb$database;
e no delphi::
with IBQuery1 do
try
Open;
ValorGenerator := Fields[0].AsInteger;
finally
Transaction.Commit;
end;
T+
GOSTEI 0