Nastavení hodnoty generátoru v uložené proceduře

[Jirka]

Ahoj.
Je nějaký způsob jak nastavit stávající generátor na 0  přímo v stored procedure ?
SET GENERATOR GeneratorName TO 0

[Stanislav Hruška]

Nie je to odpoveď na Tvoju otázku, no možno Ti to pomôže. Ja totiž SP nepoužívam.

Kód: [Vybrat]

class procedure TSQLTexts.ResetGenerator(const AGeneratorName: string);
begin
  var GeneratorName := Trim(AGeneratorName);
  Assert(GeneratorName <> '', '  ResetGenerator: GeneratorName is empty  ');
  var FQry := TFDFunction.NewQry;
  FQry.Name := 'ResetGenerator';
  FQry.SQL.Text := 'SELECT MAX(UNITS.IDUNITS), GEN_ID(' + AGeneratorName + ', -(GEN_ID(' + AGeneratorName + ', 0)))'+
  ' FROM UNITS';
  try
    TFDFunction.QryOpen(FQry);
  finally
    TFDFunction.FreeAndNilQry(FQry);
  end;
end;Mám na mysli spôsob nastavenia samotnej hodnoty. Je to z internetu a funguje to.

[Palino]

Toto mne funguje.

create or alter procedure AAA
as
declare variable SQL varchar(500);
begin
  sql = 'ALTER SEQUENCE GEN_AA_ID RESTART WITH 279580';

  execute statement :sql;

end^

[vandrovnik]

GEN_ID má jako druhý parametr, o kolik se má hodnota změnit, to se dá využít i pro nastavení nové hodnoty, když si nejprve zjistím stávající.

[Jirka]

Toto mne funguje.
  sql = 'ALTER SEQUENCE GEN_AA_ID RESTART WITH 279580';
  execute statement :sql;

Firebird 2.5
Funguje i u mne. Díky.

[Jirka]

GEN_ID má jako druhý parametr, o kolik se má hodnota změnit, to se dá využít i pro nastavení nové hodnoty, když si nejprve zjistím stávající.

I tak se dá, pokud člověk nemůže (nechce)  používat execute statement

[vandrovnik]

I tak se dá, pokud člověk nemůže (nechce)  používat execute statement

Já se tomu EXECUTE STATEMENT snažím vyhýbat, protože jsem radši, když vidím vzájemné závislosti databázových objektů.

[Palino]

select gen_id (GEN_AA_ID, -1*gen_id (GEN_AA_ID, 0)) from rdb$database