Проверка на дубликаты уникальных идентификаторов - История изменений

SYSDBA в 17:37, 22 декабря 2017

2017-12-22T17:37:01Z

SYSDBA в 17:16, 22 декабря 2017

2017-12-22T17:16:20Z

SYSDBA в 14:26, 20 декабря 2017

2017-12-20T14:26:34Z

SYSDBA в 14:25, 20 декабря 2017

2017-12-20T14:25:52Z

SYSDBA: Новая страница: «Идеология платформы требует чтобы у каждого бизнес-объекта был свой уникальный в предел…»

2017-12-20T14:25:34Z

Новая страница: «Идеология платформы требует чтобы у каждого бизнес-объекта был свой уникальный в предел…»

Новая страница

Идеология платформы требует чтобы у каждого бизнес-объекта был свой уникальный в пределах базы данных целочисленный идентификатор. Данное правило достигается с помощью использования единого генератора [[GD_G_UNIQUE]]. Однако, в результате программных сбоев могут возникнуть дубликаты ИД. Для их отыскания следует использовать запрос, приведенный ниже. Запрос выводит название таблицы и количество записей с ИД, встречающимся в других таблицах, в данной базе данных.

<syntaxhighlight lang="SQL">
EXECUTE BLOCK
RETURNS(tbl VARCHAR(31), cnt INTEGER)
AS
DECLARE VARIABLE rn VARCHAR(31);
DECLARE VARIABLE fn VARCHAR(31);
DECLARE VARIABLE id INTEGER;
DECLARE VARIABLE s INTEGER;
DECLARE VARIABLE c INTEGER;
BEGIN
IF (g_his_create(0, 0) = 0) THEN
EXCEPTION gd_e_exception 'Can''t create huge array';

FOR
SELECT
rf.rdb$relation_name, LIST(TRIM(rf.rdb$field_name))
FROM
rdb$relation_fields rf
JOIN rdb$index_segments idxs ON idxs.rdb$field_name = rf.rdb$field_name
JOIN rdb$indices idx ON idx.rdb$index_name = idxs.rdb$index_name
JOIN rdb$relation_constraints rc ON rc.rdb$index_name = idx.rdb$index_name
AND rc.rdb$relation_name = rf.rdb$relation_name
WHERE
rc.rdb$constraint_type = 'PRIMARY KEY'
AND
rf.rdb$relation_name <> 'GD_RUID'
AND
NOT EXISTS(
SELECT *
FROM
rdb$index_segments idxs_fk
JOIN rdb$indices idx_fk ON idxs_fk.rdb$index_name = idx_fk.rdb$index_name
WHERE
idxs_fk.rdb$field_name = rf.rdb$field_name
AND
idx_fk.rdb$relation_name = rf.rdb$relation_name
AND
idx_fk.rdb$index_name <> idx.rdb$index_name
)
GROUP BY
1
HAVING
LIST(TRIM(rf.rdb$field_name)) = 'ID'
INTO
:rn, :fn
DO BEGIN
s = 0;
c = 0;
EXECUTE STATEMENT
'SELECT SUM(g_his_include(0, id)), COUNT(*) FROM ' || :rn || ' WHERE id > 147000000'
INTO :s, :c;

s = COALESCE(:s, 0);
c = COALESCE(:c, 0);

IF (:c <> :s) then
BEGIN
tbl = :rn;
cnt = :c - :s;
SUSPEND;
END
END

g_his_destroy(0);
END
</sytaxhighlight>

[[Category:База данных]]

← Предыдущая		Версия 14:25, 20 декабря 2017
Строка 68:		Строка 68:
	</sytaxhighlight>		</sytaxhighlight>

−	[[Category:База данных]]	+	[Category:База данных]

@@ Строка 77: / Строка 77: @@
    g_his_destroy(0);
 END
 </syntaxhighlight>
 [[Category:База данных]]

@@ Строка 19: / Строка 19: @@
      FROM
        rdb$relation_fields rf
        JOIN rdb$index_segments idxs ON idxs.rdb$field_name = rf.rdb$field_name
        JOIN rdb$indices idx ON idx.rdb$index_name = idxs.rdb$index_name
@@ Строка 27: / Строка 28: @@
        AND
        rf.rdb$relation_name <> 'GD_RUID'
        AND
        NOT EXISTS(