Αλλαγή varchar set μεταβλητών σε UTF8 στην Firebird βάση δεδομένων.

Κάλεσε τώρα! +30 2118002930

Αδειοδοτημένος πάροχος Ηλεκτρονικής Τιμολόγησης από την Α.Α.Δ.Ε.

Post published:16/11/2022
Post category:Firebird / Θέματα και συμβουλές για βάσεις δεδομένων

Από κάτω είναι ένα firebird SQL script που θα σας βοηθήσει να αλλάξετε εύκολα το character set όλων των πεδίων μιας βάσης δεδομένων.

execute block
returns (fieldname char(1000),fieldlength int)
as
declare cur cursor for 
  (

select T1.RDB$FIELD_NAME, T1.RDB$FIELD_LENGTH
from RDB$FIELDS T1, RDB$RELATION_FIELDS T2
where T1.RDB$FIELD_TYPE = 37 and
      T2.RDB$VIEW_CONTEXT is null and
      T1.RDB$FIELD_NAME = T2.RDB$FIELD_SOURCE and
      T1.RDB$CHARACTER_SET_ID<>4 and
      not T2.RDB$RELATION_NAME like 'RDB$%' and
      not T2.RDB$RELATION_NAME like 'MON$%'

  );


begin
  open cur;
  while (1=1) do
  begin

    fetch cur into fieldname, fieldlength;

          

update RDB$FIELDS set
RDB$CHARACTER_SET_ID = 4,
RDB$FIELD_LENGTH = :fieldlength*4,
RDB$CHARACTER_LENGTH = :fieldlength
where RDB$FIELD_NAME = :fieldname;




    if (row_count = 0) then leave;
    suspend;
  end
  close cur;
end

execute block

returns (fieldname char(1000),fieldlength int)

declare cur cursor for

(

select T1.RDB$FIELD_NAME, T1.RDB$FIELD_LENGTH

from RDB$FIELDS T1, RDB$RELATION_FIELDS T2

where T1.RDB$FIELD_TYPE = 37 and

T2.RDB$VIEW_CONTEXT is null and

T1.RDB$FIELD_NAME = T2.RDB$FIELD_SOURCE and

T1.RDB$CHARACTER_SET_ID<>4 and

not T2.RDB$RELATION_NAME like 'RDB$%' and

not T2.RDB$RELATION_NAME like 'MON$%'

);

begin

open cur;

while (1=1) do

begin

fetch cur into fieldname, fieldlength;

update RDB$FIELDS set

RDB$CHARACTER_SET_ID = 4,

RDB$FIELD_LENGTH = :fieldlength*4,

RDB$CHARACTER_LENGTH = :fieldlength

where RDB$FIELD_NAME = :fieldname;

if (row_count = 0) then leave;

suspend;

end

close cur;

end