Problème avec un Insert et valeur par default

Version imprimable

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:

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)

17/12/2007, 14h51
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:

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

@+ Claudius

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:

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);

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. :D

Et enfin je ne saisi pas ce code :koi:

Code:

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

Essaye comme ceci:

Code:

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

Citation:
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:

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:

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:

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 + ')');

17/12/2007, 17h20
Cl@udius

Citation:

Envoyé par jaffael

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.

Citation:

Envoyé par jaffael

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. :(

@+
17/12/2007, 17h33
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 ;).