Jak mogę zmierzyć ilość miejsca zajmowanego przez obiekty typu blob na bazie danych Firebird 2.1?

Question

Mam produkcyjną bazę danych, używając Firebird 2.1, gdzie muszę się dowiedzieć, ile miejsca zajmuje każda tabela, w tym bloby. Część typu blob jest trudna, ponieważ nie jest objęta standardowym raportem statystycznym.

Nie mam łatwego dostępu do pulpitu serwera, więc instalacja UDF itp. Nie jest dobrym rozwiązaniem.

Jak mogę to łatwo zrobić?

Answer 1

można policzyć całkowity rozmiar wszystkich pól BLOB w bazie danych z następującym stwierdzeniem:

EXECUTE BLOCK RETURNS (BLOB_SIZE BIGINT) 
AS 
    DECLARE VARIABLE RN CHAR(31) CHARACTER SET UNICODE_FSS; 
    DECLARE VARIABLE FN CHAR(31) CHARACTER SET UNICODE_FSS; 
    DECLARE VARIABLE S BIGINT; 
BEGIN 
    BLOB_SIZE = 0; 
    FOR 
    SELECT r.rdb$relation_name, r.rdb$field_name 
     FROM rdb$relation_fields r JOIN rdb$fields f 
     ON r.rdb$field_source = f.rdb$field_name 
    WHERE f.rdb$field_type = 261 
    INTO :RN, :FN 
    DO BEGIN 
    EXECUTE STATEMENT 
     'SELECT SUM(OCTET_LENGTH(' || :FN || ')) FROM ' || :RN || 
     ' WHERE NOT ' || :FN || ' IS NULL' 
    INTO :S; 
    BLOB_SIZE = :BLOB_SIZE + COALESCE(:S, 0); 
    END 
    SUSPEND; 
END 

Answer 2

zmodyfikowałem przykład kodu Andreja aby pokazać wielkość każdego pola blob, nie tylko suma wszystkich bąble .

Używane SET TERM, aby skopiować &, wkleić ten fragment bezpośrednio do narzędzi takich jak FlameRobin.

SET TERM #; 
EXECUTE BLOCK 
RETURNS (BLOB_SIZE BIGINT, TABLENAME CHAR(31), FIELDNAME CHAR(31)) 
AS 
    DECLARE VARIABLE RN CHAR(31) CHARACTER SET UNICODE_FSS; 
    DECLARE VARIABLE FN CHAR(31) CHARACTER SET UNICODE_FSS; 
    DECLARE VARIABLE S BIGINT; 
BEGIN 
    BLOB_SIZE = 0; 
    FOR 
    SELECT r.rdb$relation_name, r.rdb$field_name 
     FROM rdb$relation_fields r JOIN rdb$fields f 
     ON r.rdb$field_source = f.rdb$field_name 
    WHERE f.rdb$field_type = 261 
    INTO :RN, :FN 
    DO BEGIN 
    EXECUTE STATEMENT 
     'SELECT SUM(OCTET_LENGTH(' || :FN || ')) AS BLOB_SIZE, ''' || :RN || ''', ''' || :FN || ''' 
     FROM ' || :RN || 
     ' WHERE NOT ' || :FN || ' IS NULL' 
    INTO :BLOB_SIZE, :TABLENAME, :FIELDNAME; 
    SUSPEND; 
    END 
END 
# 
SET TERM ;# 

Ten przykład nie działa z ORDER BY, może bardziej eleganckie rozwiązanie bez EXECUTE BLOCK istnieje.