Créer une table et une colonne d'incrémentation automatique dans Firebird avec Delphi

Question

Je veux créer une table dans Firebird embedded et définir une colonne pour l'incrémentation automatique, mais je ne peux pas. Je peux créer la table, mais je ne peux pas définir une colonne pour l'incrémentation automatique.

J'utilise:
Firebird 2.5 embedded
Delphi xe3
UniDAC Componnent

ma commande SQL:

with UniSQL1 do 
    begin 
    SQL.Text := 'Create TABLE tab1(EMP_NO EMPNO NOT NULL, '+ 
    'FIRST_NAME   "FIRSTNAME" NOT NULL, '+ 
    'LAST_NAME    "LASTNAME" NOT NULL, '+ 
    'PHONE_EXT    VARCHAR( 4) COLLATE NONE, '+ 
'PRIMARY KEY (EMP_NO) '+ 
    '); '+ 
    'CREATE GENERATOR gen_tab1_EMP_NO; '+ 
    'SET GENERATOR gen_tab1_EMP_NO TO 0; '+ 
    'SET TERM !! ; '+ 
    'CREATE TRIGGER SET_EMP_NO FOR tab1 ACTIVE BEFORE INSERT POSITION 0 AS '+ 
    'BEGIN '+ 
     'if (new.emp_no is null) then '+ 
     'new.emp_no = gen_id(gen_tab1_EMP_NO, 1); '+ 
    'END !!'+ 
    'SET TERM ; !!'; 

    try 
     Execute; 
     ShowMessage('Table Created'); 
    except 
     ShowMessage('Table Not Created'); 
    end; 
    end; 

Answer 1

Essayez et voir où se produit l'erreur. Vous pouvez aussi essayer d'enregistrer votre script et de l'exécuter sur IBExpert ou un autre outil et voir si cela fonctionne correctement.

with UniSQL1 do 
begin 
    SQL.Clear; 
    SQL.Add('Create TABLE tab1('); 
    SQL.Add( EMP_NO EMPNO NOT NULL,'); 
    SQL.Add(' FIRST_NAME "FIRSTNAME" NOT NULL,'); 
    SQL.Add(' LAST_NAME "LASTNAME" NOT NULL,'); 
    SQL.Add(' PHONE_EXT VARCHAR(4) COLLATE NONE,'); 
    SQL.Add(' PRIMARY KEY (EMP_NO)'); 
    SQL.Add(')'); 
    try 
     Execute; 
    except 
     on E:Exception do 
      raise Exception.Create('ERROR 1:' + sLineBreak + E.Message); 
    end; 

    SQL.Clear; 
    SQL.Add('CREATE GENERATOR gen_tab1_EMP_NO;'); 
    try 
     Execute; 
    except 
     on E:Exception do 
      raise Exception.Create('ERROR 2:' + sLineBreak + E.Message); 
    end; 

    SQL.Clear; 
    SQL.Add('SET GENERATOR gen_tab1_EMP_NO TO 0;'); 
    try 
     Execute; 
    except 
     on E:Exception do 
      raise Exception.Create('ERROR 3:' + sLineBreak + E.Message); 
    end; 

    SQL.Clear; 
    SQL.Add('CREATE TRIGGER SET_EMP_NO FOR tab1 ACTIVE BEFORE INSERT POSITION 0 AS'); 
    SQL.Add('BEGIN'); 
    SQL.Add(' if (new.emp_no is null) then'); 
    SQL.Add('  new.emp_no = gen_id(gen_tab1_EMP_NO, 1);'); 
    SQL.Add('END' 
    try 
     Execute; 
    except 
     on E:Exception do 
      raise Exception.Create('ERROR 4:' + sLineBreak + E.Message); 
    end; 
end;