Discussion :

[jojo86]

Bonjour, j'ai trouvé un sujet qui m'interesse, mais je ne comprend pas tout...
Ce sujet par d'auto incrementer un champ d'une table voici le lien :
http://www.developpez.net/forums/sho...d.php?t=182982

Je créer une table "toto" avec un champ num en integer et un autre en vachar...

Dans l'autre sujet, William_58 dit qu'il faut créer un generateur... Je ne sais pas ou coller ce code, dois-je l'integrer dans une requete sql???
Voici la partie du code que je ne sais pas ou mettre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
CREATE generator inc_num
SET TERM !! ;
CREATE TRIGGER inc_num_auto FOR toto
BEFORE INSERT AS
BEGIN
    new.num = gen_id(inc_num, 1);
END !!

Je ne sais pas ou mettre ce code alors pour essayé j'ai fait ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
IBQuery.SQL.Add('CREATE generator inc_num'+
                      'SET TERM !! ;'+
'CREATE TRIGGER inc_num_auto FOR toto'+
'BEFORE INSERT AS'+
'BEGIN'+
    'new.num = gen_id(inc_num, 1);'+
'END !!'+
'INSERT INTO  toto (nom,...) VALUES (myname,...);');

Quand j'éxecute, je vous raconte pas le basard...

S'il vous plais, indiquez moi où Mettre ce code. Merci beaucoup !

[qi130]

Certainement que la FAQ Interbase te rendrait service....

[jojo86]

Certainement que la FAQ Interbase te rendrait service....

Non ça ne m'aide pas du tout, car si dans delphi je met

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
CREATE GENERATOR GEN_MON_GENERATEUR;

J'ai un message d'erreur à l'execution qui me dit que l'identificateur n'est pas déclaré ou quelque chose comme ça...

Ou alors c'est qu'il faut mettre la creation du generateur hors d'une procedure?
Moi j'avais essayé ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Tform1.Button1.CLick...
begin
CREATE GENERATOR GEN_MON_GENERATEUR;
end;

Mais peut être qu'il faut que je place

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

CREATE GENERATOR GEN_MON_GENERATEUR;

Hors d'une procedure non????

Merci de votre aide !!!

[Pedro]

Salut
Je pense que tu te mélanges les pinceaux là
En fait:

Code SQL :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
CREATE GENERATOR GEN_MON_GENERATEUR;

est une requête SQL que tu dois exécuter sur ta base Ce n'est pas du code Delphi.

[jojo86]

Oui, et bien quand je le fais, j'ai un message d'erreur...

Je n'y arrive pas...

[Archibald29]

Bonjour,

Pour séparer (dans un premier temps) la partie "Delphi" et la partie "Base de données" tu pourrais par exemple utiliser un outil tel que IBEasy :
http://www.marc-grange.net/telecharger.htm

- possibilité d'exécuter directement les sql
- possibilité de visualiser directement les générateurs créés/existant sur la base
etc...

[Pedro]

Oui, et bien quand je le fais, j'ai un message d'erreur...

Et quel est-il ce message?

[jojo86]

J'arrive à créer le generator mais je n'arrive pas à le créer lors de la création de la base de donnée... je le créer après avec un bouton...

Voici le code avec lequel j'ai essayé de créer le gererator lors de la création de la base :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
var
  IBDataBase: TIBDatabase;
  IBQuery: TIBQuery;
  IBTransaction: TIBTransaction;
  cheminbase:string;
begin
  IBDataBase := TIBDatabase.Create(nil);
  IBQuery := TIBQuery.Create(nil);
  IBTransaction := TIBTransaction.Create(nil);
  try
    IBDataBase.DatabaseName := 'D:\base\FireBird\geneprog.gdb';
    IBDataBase.SQLDialect := 3;
    IBDataBase.Params.Clear;
    IBDataBase.Params.Add('USER "SYSDBA"');
    IBDataBase.Params.Add('PASSWORD "masterkey"');
    IBDataBase.Params.Add('PAGE_SIZE 4096');
    IBDataBase.CreateDatabase;
    IBDatabase.Connected := true;
    IBTransaction.DefaultDatabase := IBDataBase;
    IBQuery.Database := IBDatabase;
    IBQuery.Transaction := IBTransaction;
    try

      IBQuery.SQL.Add('CREATE GENERATOR "autonum";'); 
      IBQuery.SQL.Add('create table Utilisateur(Id integer not null,Utilisateur VarChar(30),'+
                                    'Pass VarChar(50));');
      IBQuery.ExecSQL;
      IBTransaction.Commit;

    except
      IBTransaction.Rollback;
    end;
    IBDataBase.Connected := false;
  finally
    FreeAndNil(IBQuery);
    FreeAndNil(IBTransaction);
    FreeAndNil(IBDataBase);
  end;
end;

Si je fais ça avec ce code j'obtiens le message :
"Le projet Project1.exe a provoqué une classe d'exception EIBInterBaseError avec le message 'Dynamic SQL Error SQL error code = -104
Token unknown -line 2, column1 create.Processus stoppé...."

Sympathique non???!!

J'avance un peu... mais bon j'éspère que vous pourrez m'aider pour mon souci.

Merci !

[SergioMaster]

parce que tu as deux SQL différents , ExecSQL ne peut executer qu'une seule "phrase" à la fois , pas un script

essaies

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
      IBQuery.SQL.Add('CREATE GENERATOR "autonum"');
      IBQuery.ExecSQL;
      IBQuery.SQL.Clear;
      IBQuery.SQL.Add('create table Utilisateur(Id integer not null,Utilisateur VarChar(30),'+
                                    'Pass VarChar(50));');
      IBQuery.ExecSQL;

[Mirmillon]

bonjour

D'abord télécharge la version gratuite de IBExpert
Sers toi d'IBexpert pour gérer ta base
Coté Interbase
1. CREATION DU GENERATEUR

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

CREATE GENERATOR MON_GENERATEUR;

2.CREATION DU DECLENCHEUR OU TRIGGER

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
CREATE TRIGGER MON_TRIGGER FOR MA_TABLE
ACTIVE BEFORE INSERT POSITION 0
AS
begin
  IF (NEW.MON_CHAMP IS NULL) THEN
    NEW.MON_CHAMP= GEN_ID(MON_GENERATEUR,1);

C'est tout pour Firebird

Coté Delphi

Tu met les composants habituels.
Tu te connectes à ta base et tu ouvres l'éditeur de champ :
tu dois impérativment mettre la propriété required à false si MON_CHAMP est NOT NULL sinon tu auras un message d'erreur de Delphi qui vérifie l'existence de donné avant de passer la main à Firebird.

voilà tout doit marcher

Mirmillon

[jojo86]

tu dois impérativment mettre la propriété required à false si MON_CHAMP est NOT NULL

Je ne trouve pas cette propriété...

[jojo86]

Je voudrais créer un triger par prog, voici ce que j'ai fais :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
begin
IBDataBase2.Params.Clear;
IBDataBase2.Params.Add('User_Name=SYSDBA');
IBDataBase2.Params.Add('Password=masterkey');
IBQuery2.SQL.clear;
IBQuery2.SQL.Add('CREATE TRIGGER TEST FOR Utilisateur ACTIVE BEFORE INSERT POSITION 0 AS begin IF (NEW.MON_CHAMP IS NULL) THEN NEW.Id= GEN_ID(autonum,1);');
IBQuery2.ExecSQL;
IBQuery2.Close;
IBDataBase2.close;

Quand j'execute j'ai le message "Dynamic sql error sql error code = -102"

Ca vous dit quelque chose?

[Mirmillon]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Je ne trouve pas cette propriété...

Tu vas dans l'éditeur de champ, tu sélectionnes le champ clé et tu vois la propriété.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

IF (NEW.MON_CHAMP IS NULL) THEN NEW.Id= GEN_ID(autonum,1);

Non c"est

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

IF (NEW.autonum IS NULL) THEN NEW.autonum = GEN_ID( nom du trigger ,1);

Mirmillon

[jojo86]

Merci de ton aide, mais je voudrais créer une bdd dynamique, pourquoi mon code ne fonctionne pas pour créer le triger???

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
IBQuery2.SQL.Add('CREATE TRIGGER TEST FOR Utilisateur ACTIVE BEFORE INSERT POSITION 0 AS begin IF (NEW.MON_CHAMP IS NULL) THEN NEW.Id= GEN_ID(autonum,1);');
IBQuery2.ExecSQL;

Personne ne créer de triger par programation???

[Mirmillon]

Bonjour,

Pour que ton code marche, il faut que le composant IBquery soit fermé lorsque tu ajoutes des lignes SQL. J'ai essayé d'ajouter un trigger via un IBQuery et Tbouton et ça marche. Je te montre le code peut être en le comparant avec le tien tu trouveras ton problème.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
procedure TForm1.Button1Click(Sender: TObject);
begin
IBQuery1.Active:= False;
IBQuery1.SQL.Clear;
IBQuery1.SQL.Add('ICI TON CODE');
IBQuery1.ExecSQL;
end;

Mirmillon

[jojo86]

Je crois que je viens de trouver le soucis...

J'ai juste mis un TIBDatabase et dans Database name, j'ai été chercher ma base de donnée, je passe la propriétée Connected à "True" je rentre mon nom d'utilisateur et mon mot de pass et là j'ai un message d'erreur :"Unavailable database"...

J'en conclu que delphi ne peut se connecter à ma base de donnée... j'utilise firebird embeded, y à t'il une manipulation que je n'ai pas faite lors de l'installation?

C'est bizard, car la base de donnée est corectement créer... et avec IBEasy+, j'arrive à l'ouvrire, et la modifier etc...

Merci de votre aide !

[Mirmillon]

bonjour,

je n'utilise pas firebird Embedded. Peut être sur le forum de Firebird tu aurais la solution.

Mirmillon

[jojo86]

Nikel, j'ai trouvé !!!!!

Voici mon erreur... toute bete, voici la requete que j'envoyais et qui ne fonctionait pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Query2.SQL.Add('CREATE TRIGGER EEEEEEEEEE FOR UTILISATEUR ACTIVE '
+'BEFORE INSERT POSITION 0 AS begin IF (NEW.Id IS NULL) THEN '+
'NEW.Id= GEN_ID(AUTONUM,1);');
IBQuery2.ExecSQL;

Et voici la requete qui fonctione :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Query2.SQL.Add('CREATE TRIGGER EEEEEEEEEE FOR UTILISATEUR ACTIVE '+
'BEFORE INSERT POSITION 0 AS begin IF (NEW.Id IS NULL) THEN '+
NEW.Id= GEN_ID(AUTONUM,1);END;');
IBQuery2.ExecSQL;

Vous ne remarquez rien????

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Query2.SQL.Add('CREATE TRIGGER EEEEEEEEEE FOR UTILISATEUR ACTIVE '+
'BEFORE INSERT POSITION 0 AS begin IF (NEW.Id IS NULL) THEN '+
'NEW.Id= GEN_ID(AUTONUM,1);END;');

Tout ça pour un END; Pffffff !!!

Ouf, enfin !!!

Merci de vos renseignement !!!