База FireBird как получить текущие значения всех Генераторов инкриментов - Мои статьи - Каталог статей

База FireBird как получить текущие значения всех Генераторов инкриментов

EXECUTE BLOCK RETURNS (GenName varchar(255), GenValue INTEGER) AS DECLARE VARIABLE SQL varchar(255); BEGIN for select RDB$GENERATOR_NAME from RDB$GENERATORS into :GenName do begin SQL = 'SELECT GEN_ID('\|\|GenName\|\|', 0) FROM RDB$DATABASE;'; EXECUTE STATEMENT SQL INTO :GenValue; SUSPEND; END END
1 2 3 4 5 Категория: Мои статьи \| Добавил: NetSoftWare (26.10.2011)
Просмотров: 1541 \| Комментарии: 1 \| Рейтинг: 0.0/0

Delphi заготовки