Discussion :

[frantzgac]

Bjr.
Je cherche à affecter une chaine vide à un champ VARCHAR d'une base Firebird qui est NOT NULL.
L'affectation d'un champ NULL par une requête du type

Code :

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

update TABLE set CHAMPNOTNULL=quotedstr('') where ...

fonctionne
En revanche

Code sql :

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

FieldByName('CHAMPNOTNULL').AsString='';

affecte une valeur NULL qui déclenche une exception renvoyée par FB.
J'ai résolu le problème par un Trigger BEFORE_INSERT et BEFORE_UPDATE mais je me demande s'il n'y aurait pas plus simple ?

[ShaiLeTroll]

FireBird ne propose pas un UpdateSQL que tu peux modifier ?

[Paul TOTH]

il manque quelques infos dans ta question

quelle version de Delphi
quelle composant BDD

je suis assez surpris qu'un composant récent soit capable de forcer un NULL un champ qui ne l'accepte pas.

[SergioMaster]

Bonjour,

Moi aussi je suis assez surpris !
déjà le premier SQL : update TABLE set CHAMPNOTNULL=quotedstr('') where ...Outre le fait que ce code me semble incorrect , s'il y a quotedstr cela veux dire qu'il est traité dans un programme Delphi dans ce cas l'écriture en serait plutôt

Code :

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

1
2
 
SQL.text:='update TABLE set CHAMPNOTNULL='+quotedstr('')+' WHERE ...';

Il doit certainement y avoir une gestion d'exception quelque part car le SQL présenté ne peut pas AMHA fonctionner, par conscience j'ai quand même regardé si Firedac n'avait pas une fonction macro nommée Quotedstr
S'il s'agit d'un SQL de type commande par exemple
Firedac : FDConnection.ExecSQL('update TABLE set CHAMPNOTNULL=quotedstr('') where ...'); aucune erreur ne sera levée mais cela ne veut pas dire que la mise à jour sera faite

Mais comme l'écrit Paul on n'a ni la version de Delphi, ni les composants utilisés !

de mon point de vue ce SQL est quelque chose d'assez moche à remplacer si possible par une requête paramétrée (même s'il s'agit d'une commande ExecSQL c'est possible)

Code :

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

1
2
3
 
SQL.text:='update TABLE set CHAMPNOTNULL=:unnull WHERE ...';
ParamByName('unnull').asString:='';

[frantzgac]

Bonjour je vous dois des excuses pour la très lacunaire (et fausse) présentation du problème.
J'utilise Delphi 7, (FireBird 2.1.3)
Le composant est un TIBQuery
A la conception le champ BAS_OPTION n'était pas NOT NULL. Le champ était donc à NULL quand on y avait rien placé.
J'ai ajouté ensuite la contrainte NOT NULL. De sorte que tout UPDATE se doit de ne pas laisser ce champ NULL.
La requête SQL d'insertion fonctionnelle est construite comme ceci :

Code :

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

Format('Insert into MAIL_BASE (BAS_ADR,BAS_FEDE,BAS_DEP,BAS_REGION,BAS_ORIGINE,BAS_OPTION) values (%s,%s,%s,%s,%s,%s)', [QuotedStr(StringGrid1.Cells[ColAdresse,j]),QuotedStr(Edit1.text),QuotedStr(Edit2.Text),QuotedStr(Edit3.Text),QuotedStr(Edit5.Text),QuotedStr('')]);

Elle insère dans le champ BAS_OPTION une chaine vide qui donc n'est pas NULL.
Lorsqu'au contraire à un autre endroit du code je veux modifier une ligne de la même table j'essaie ceci dans OnClick d'un DBNavigator

Code :

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

1
2
nbPost : with IBD do begin if FieldByName('BAS_OPTION').IsNull then
            FieldByName('BAS_OPTION').AsString:='';

IBD est un TIBDataset
Et c'est cette instruction qui provoque une exception.
Mettre une chaîne vide dans un champ NOT_NULL (d'un TIBDataset) ne produit pas le même effet que de mettre une value à '' dans une requête SQL.

[seabs]

Bonjour,

Pour résoudre ton problème, tu peux faire l'essai suivant :

Code :

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

1
2
3
4
5
6
nbPost :
   with IBD do 
   begin
      if FieldByName('BAS_OPTION').IsNull then
         FieldByName('BAS_OPTION').AsString:= QuoteStr('');
   end;

Je ne suis pas certain du fonctionnement et pas testé.

Par contre, il est possible d'effectuer

Code :

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

1
2
3
4
5
6
nbPost :
   with IBD do 
   begin
      if FieldByName('BAS_OPTION').IsNull then
         FieldByName('BAS_OPTION').Clear;
   end;

Ainsi, "BAS_OPTION" sera mis à NULL et la base prendra en compte, lors de cette opération, ta valeur par défaut ('');

[Paul TOTH]

Bonjour je vous dois des excuses pour la très lacunaire (et fausse) présentation du problème.
J'utilise Delphi 7, (FireBird 2.1.3)
Le composant est un TIBQuery
A la conception le champ BAS_OPTION n'était pas NOT NULL. Le champ était donc à NULL quand on y avait rien placé.
J'ai ajouté ensuite la contrainte NOT NULL. De sorte que tout UPDATE se doit de ne pas laisser ce champ NULL.
La requête SQL d'insertion fonctionnelle est construite comme ceci :

Code :

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

Format('Insert into MAIL_BASE (BAS_ADR,BAS_FEDE,BAS_DEP,BAS_REGION,BAS_ORIGINE,BAS_OPTION) values (%s,%s,%s,%s,%s,%s)', [QuotedStr(StringGrid1.Cells[ColAdresse,j]),QuotedStr(Edit1.text),QuotedStr(Edit2.Text),QuotedStr(Edit3.Text),QuotedStr(Edit5.Text),QuotedStr('')]);

Elle insère dans le champ BAS_OPTION une chaine vide qui donc n'est pas NULL.
Lorsqu'au contraire à un autre endroit du code je veux modifier une ligne de la même table j'essaie ceci dans OnClick d'un DBNavigator

Code :

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

1
2
nbPost : with IBD do begin if FieldByName('BAS_OPTION').IsNull then
            FieldByName('BAS_OPTION').AsString:='';

IBD est un TIBDataset
Et c'est cette instruction qui provoque une exception.
Mettre une chaîne vide dans un champ NOT_NULL (d'un TIBDataset) ne produit pas le même effet que de mettre une value à '' dans une requête SQL.

si tu as créé un objet TField pour ce champ, il est possible que celui-ci ne sache pas que tu as modifié la structure de la base, c'est un des aspect casse pied des TField statiques d'ailleurs.
Si c'est le cas, tu fais un clic droit sur le TQuery pour gérer les champs (Editeurs de champs), tu supprimes et recrée le champ BAS_OPTION (ou tu regardes dans ses propriétés celle qui correspond au NOT NULL)

[Andry]

Bonne année 2019
Si tu veux modifier, il faudra utiliser ParamByName au lieu de FieldByName.
Cordialement

Andry