Discussion :

[jaffael]

Bonjour,
le contexte, je développe une appli en Delphi 7 et Interbase 6, je ne connaissais pas interbase alors j'y suis aller petit à petit. Après plusieurs essais, je me débrouille avec les générateurs, les procédures stockées, et les composants dans delphi tel les lookupcombobox, dbgrid et autres.

voilà mon problème, tout aller bien, j'essai de faire quelque chose de trés simple et ... c'est le drame. je change deux colonnes d'une table pour mettre un contrainte "not null" et une valeur par défaut. Cela pour me permettre de rajouter un champ qui est la concaténation des deux autres (donc ces 2 champs ne doivent pas être null).

Seulement la requête avec le mot Default ne fonctionne pas. Quelqu'un saurait-il m'expliquer ?

en simplifiant au maximun et en utilisant directment IB Console, le code suivant ne fonctionne pas !!

Code :

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

1
2
3
4
5
6
7
8
9
10
DROP TABLE "T_CLIENT";
CREATE TABLE "T_CLIENT"
(
  "CCLI_ID"	INTEGER NOT NULL,
  "CCLI_NOM"	VARCHAR(50) DEFAULT 'NC' NOT NULL,
  "CCLI_PRENOM"	VARCHAR(50) DEFAULT 'NC' NOT NULL,
  "CCLI_FULLNAME"	 COMPUTED BY ("CCLI_NOM" || ' ' || "CCLI_PRENOM"),
CONSTRAINT "CCLI_ID" PRIMARY KEY ("CCLI_ID")
);
INSERT INTO T_CLIENT (CCLI_ID, CCLI_NOM, CCLI_PRENOM) VALUES (1, 'MON_NOM', DEFAULT);

J'obtiens une erreur :

Dynamic SQL Error
SQL error code = -104
Token unknown - line 1, char 76
DEFAULT
Statement: INSERT INTO T_CLIENT (CCLI_ID, CCLI_NOM, CCLI_PRENOM) VALUES (1, 'MON_NOM', DEFAULT)

[Cl@udius]

Salut

La valeur par défaut sera insérée dès lors que tu ne précise pas de valeur pour le champ:

Code :

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

1
2
 
INSERT INTO T_CLIENT (CCLI_ID, CCLI_NOM) VALUES (1, 'MON_NOM');

Voilou,

@+ Claudius

[jaffael]

Merci, pour cette réponse effectivement ceci fonctionne, mais est-il possible de faire la requete en utilisant le mot défaut, car mon but final est de pouvoir ne faire qu'une requête dans delphi construite de la maniére suivante:

je récupère une valeur par un TEDIT, et je fait

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
 
//récupération du nom
if EditNom.Text = '' then sNom:= 'Default'
else sNom:= '''' + StringReplace(sNom, '''', '''''', [rfReplaceAll]) + '''';
 
//récupération du prénom
if EditPrenom.Text = '' then sPrenom:= 'Default'
else sPrenom:= '''' + StringReplace(sNom, '''', '''''', [rfReplaceAll]) + '''';
 
//création requete
requete:= 'INSERT INTO T_CLIENT (CCLI_ID, CCLI_NOM, CCLI_PRENOM)'
 + ' VALUES (GEN_ID("GEN_CLIENT_ID", 1), ' + sNom + ', ' + sPrenom + ')';
 
//appel le IBSQL pour insertion
dataModule1.Insert(requete);

[Cl@udius]

Salut

Bon j'ai 'révisé' un peu ton code.

1° remarque: Utilise QuotedStr, cette fonction double automatiquement les quotes (') de la chaîne.

2° remarque: J'ai retiré l'insertion de CCLI_ID, car je suppose que tu as créé un trigger lié à un générateur dans ta base.

Et enfin je ne saisi pas ce code

Code :

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

1
2
3
 
//appel le IBSQL pour insertion
dataModule1.Insert(requete);

Essaye comme ceci:

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
 
const
  requete = 'INSERT INTO T_CLIENT (CCLI_NOM, CCLI_PRENOM) ' +
            'VALUES (:NOM, :PRENOM)';
begin
  with DataModule1.IBSQL1 do
  begin
    //Assignation de la requête au TIBSQL;
    SQL.Text := requete;
 
    // Nom
    if Trim(EditNom.Text) <> '' then
      ParamByName('NOM').AsString := QuotedStr(EditNom.Text)
    else
      ParamByName('NOM').IsNull := True;
    // Prénom
    if Trim(EditPrenom.Text) <> '' then
      ParamByName('PRENOM').AsString := QuotedStr(EditPrenom.Text)
    else
      ParamByName('PRENOM').IsNull := True;
 
    // appel le IBSQL pour insertion
    ExecQuery;
  end;
end;

@+ Claudius

[jaffael]

Bon j'ai 'révisé' un peu ton code.

1° remarque: Utilise QuotedStr, cette fonction double automatiquement les quotes (') de la chaîne.

2° remarque: J'ai retiré l'insertion de CCLI_ID, car je suppose que tu as créé un trigger lié à un générateur dans ta base.

Et enfin je ne saisi pas ce code

Code :

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

1
2
//appel le IBSQL pour insertion
dataModule1.Insert(requete);

1°, Merci bien, en voilà une remarque qu'elle est judicieuse, je ne connaissais pas cette fontion et effectivment ça me paraît mieux pour le code.

2°, Non, j'ai bien un générateur mais je n'ai pas de trigger, j'ai une procédure stockée car j'ai besoin de connaître l' ID client que je rentre, j'appelle donc cette procédure avant l'insertion, je récupére l'ID dans une variable entiére, et je fait l'insertion avec CCLI_ID.

3°, En fait c'est une fonction de mon dataModule, j'ai fait 3 fonctions assez similaire pour gérer insertion, sélection et update. Ces fonctions sont assez générales et je les utilise presque pour toutes mes tables (est-ce dangeureux ou non ?), je trouve cela assez simple comme ça.
exemple:

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
function TDataModule1.Insert(instruction: string): boolean;
begin
 try
    IBSQLInsert.Close;
    IBSQLInsert.SQL.Clear;
    IBSQLInsert.SQL.Add(instruction);
     try
    IBSQLInsert.ExecQuery;
    if not  IBSQLInsert.Prepared then  IBSQLInsert.Prepare;
    IBSQLInsert.transaction.CommitRetaining;
    result:=True;
    except
    if IBSQLInsert.transaction.InTransaction then
       begin
      IBSQLInsert.transaction.Rollback;
       result:=False;
       end;
    end;
    finally
    IBSQLInsert.Close;
    end;
end;

Je n'utilise donc pas la propriété ParamByName du TIBSQL (cela m'arrive mais que pour les blobs et j'en ai trés peu) et c'est pour cette raison que je cherches à faire une requête SQL pure.

J'ai trouvé cette solution mais je trouve qu'elle me complique un peu la vie, j'aurais préféré utilisé directement 'DEFAULT'.

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
 
//génére l'id client
DataModule1.Select('SELECT NEW_CLIENT_ID FROM CLIENT_AUTOINC');
idClient:= DataModule1.IBSQLSelect.FieldByName('NEW_CLIENT_ID').AsInteger;
DataModule1.IBSQLSelect.Close;
 
rqClCol:= 'CCLI_ID';
rqClVal:= IntToStr(idClient);
 
//récupération du nom
if EditNom.Text <> '' then
begin
 rqClCol:= rqClCol + ', CCLI_NOM';
 rqClVal:= rqClVal + ', ''' + QuotedStr(EditNom.Text) + '''';
end;
 
//récupération du prénom
if EditPrenom.Text <> '' then
begin
 rqClCol:= rqClCol + ', CCLI_PRENOM';
 rqClVal:= rqClVal + ', ''' + QuotedStr(EditPrenom.Text) + '''';
end;
 
//requete d'insertion
DataModule1.Insert('INSERT INTO T_CLIENT (' + rqClCol + ') VALUES (' + rqClVal + ')');

[Cl@udius]

3°, En fait c'est une fonction de mon dataModule, j'ai fait 3 fonctions assez similaire pour gérer insertion, sélection et update. Ces fonctions sont assez générales et je les utilise presque pour toutes mes tables (est-ce dangeureux ou non ?), je trouve cela assez simple comme ça.

Dangereux non, simplement je n'avais pas saisi que c'était une fonction implémentée dans le DataModule.

Une nouvelle remarque sur ta fonction Insert.
Faire un Prepare après l'ExecQuery ne sert à rien, il faut effectuer le Prepare juste avant l'ExecQuery. Le Prepare va vérifier entre autres la présence et la définition des paramètres de la requête.

J'ai trouvé cette solution mais je trouve qu'elle me complique un peu la vie, j'aurais préféré utilisé directement 'DEFAULT'.

Malheureusement pas de mot clé DEFAULT ou terme similaire que tu pourrais transmettre à ta requête.

@+

[jaffael]

Trés bien, merci Cl@udius, finalement ma solution me paraît correcte, bien que ce soit bien plus compliqué pour mon appli (j'ai simplifié pour le post en ne mettant que ID, nom , prenom).

C'est dommage, j'aurais aimé comprendre (j'aime bien comprendre quand ça ne marche pas même si je trouve d'autres solutions, ça renseigne beaucoup sur le fonctionnement des objets) pourquoi interbase n'accepte pas les requête avec le mot "DEFAULT".

En fait, j'avoue que pour le "Prepare", je ne savais pas trop, j'ai récupéré l'insert sur un tutoriel Interbase.

Merci beaucoup de ton aide .