Вниз
Скачать: CL | DM;

Максимальное значение кода в базе данных   Найти похожие ветки 

 
Jhonny ©   (2002-02-07 07:07) [0]

Здраствуйте народ! Меня мучает один вопрос: как мне узнать максимальное значения кода в базе. Необходимо, чтобы при добавлении записи в базу код наращивался автоматически на единицу.
Я пробовал такой код: Table1.RecordCount + 1, но он считает количество записей в базе. Помогите пожалуйста!

Заранее очень благодарен, Игорь!


 
User_OKA ©   (2002-02-07 07:31) [1]

Если это IB5.x, то нет смысла самому наращивать код на единицу. Есть там генераторы спец. для таких целей. А если тебе нужно узнать значение генератора в программе, то запускай его в процедуре.
Но это уже совсем другая история!


 
Deniz ©   (2002-02-07 07:33) [2]

Select max(id) from Test
но лучше использовать generator

Create generator test_gen;
set term ^;
CREATE TRIGGER biTEST FOR TEST
ACTIVE BEFORE INSERT POSITION 0
as
begin
if (new.id is null) then new.id = Gen_ID(test_gen, 1);
end;
^
create procedure GetNextID
returns (ID integer) as
begin
ID = Gen_ID(test_gen, 1);
end;
^
set term ;^

В программе :
function NextID:integer;
begin
{ IBSP : TIBStoredProc }
IBSP.StoredProcName:="GetNextID";
IBSP.Prepare;
IBSP.ExecProc;
Result:=IBSP.Params[0].AsInteger;
end;
И вызывай с любого места для получения уникального ID.



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.006 c
7-9317
DenKop
2001-11-26 21:20
2002.03.04
Рабочий стол.


4-9347
Beauty_Full
2002-01-03 20:54
2002.03.04
Принтер и все связанное с ним


1-9235
lightix
2002-02-15 15:09
2002.03.04
Подскажите, как из программы передать данные в Excel?


6-9260
Nikolay
2001-12-17 22:15
2002.03.04
только не бейте ногами


1-9238
greenrul
2002-02-14 19:34
2002.03.04
Какая О.С. - идеальная для Delphi5 , если комп не особо мощен




   Наверх