Change varchar variable set into UTF8 in Firebase Database.

Call us now! +44 (0) 2037347158

Post published:16/11/2022
Post category:Databases issues and tips / Firebird

Below is a firebird SQL script which will help you easily change the charset of all fields in your database.

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