← All posts tagged зачет

АААААААААААААААААААА

SQL> show table user_messages^
SUID INTEGER Not Null
RUID INTEGER Not Null
MSG VARCHAR(140) Nullable
ID INTEGER Not Null
MSGDATE DATE Not Null
BINARYDATA BLOB segment 80, subtype UNKNOWN Nullable
CONSTRAINT INTEG_35:
Foreign key (SUID) References USER_LIST (UID)
CONSTRAINT INTEG_36:
Foreign key (RUID) References USER_LIST (UID)
CONSTRAINT INTEG_34:
Primary key (ID)


Делаю для этой таблицы триггер:


create exception stringTooLong 'Too long string.';

CREATE PROCEDURE Len (str VARCHAR(140))
RETURNS (len INTEGER) AS
DECLARE VARIABLE pat VARCHAR(140);
BEGIN
len = null;
IF (str IS NULL) THEN EXIT;

pat = '';
len = 0;
WHILE (NOT str LIKE pat) DO BEGIN
pat = pat || '_';
len = len + 1;
END
if (:len > 130) then
begin
exception stringTooLong;
end
END


create trigger strLenTrigger for user_messages active before insert
as
begin
execute procedure Len(new.msg);
end



(Никакие разделители не забыл)

Statement failed, SQLCODE = -104

invalid request BLR at offset 18
-parameter mismatch for procedure LEN








НЕТУ НИКАКОГО НЕСОВПАДЕНИЯ ТИПОВ СУКА БЛЯДЬ НЕНАВИЖУ СУКА СУКА СУКА КРИВОРУКИЕ МУДАКИ ПИСАЛИ