Discussion :

[PhilLU]

Bonjour,
Je souhaite mettre un champ à NULL
Mes tentatives sont infructueuses
soit le champ est vide (donc pas NULL)
soit le string 'NULL' est affiché (ce qui n'est pas NULL comme attendu

Voici mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Query.Active:=False;
Query.SQL.Clear;
Query.SQL.add('UPDATE Resultats set ');   
Query.SQL.add('R_Image = ');  
Query.SQL.add(quotedStr(''));
Query.SQL.add(',R_DateTime = ');
Query.SQL.add(quotedStr(''));
Query.SQL.add(',CRC_Image=(''));            //ici mettre à NULL
Query.SQL.add('WHERE  R_Image = '+quotedStr(DBADVGrid_Resultats.Cells[Acol,Arow]));
Query.SQL.add(';');
Query.ExecSQL(true) ;

Le reste fonctionne parfaitement
Merci pour votre aide
PhilLu

[GoustiFruit]

Je ferais quelque chose comme ça:

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
with Query do begin
  Active := FALSE;
  SQL.Clear;
  SQL.Add('UPDATE Resultats');
  SQL.Add('SET R_Image = :p0, R_DateTime = :p1, CRC_Image = :p2');
  SQL.Add('WHERE  R_Image = :p3;');
  Params[0].Clear;
  Params[0].Bound := TRUE;
  Params[1].Clear;
  Params[1].Bound := TRUE;
  Params[2].Clear;
  Params[2].Bound := TRUE;
  Params[3].AsString := DBADVGrid_Resultats.Cells[Acol,Arow];
  ExecSQL;
end;

[SergioMaster]

Bonjour,

comme il s'agit d'une query , le plus simple est bien de mettre NULL

Code :

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

1
2
3
4
5
6
7
8
 
// version composants BDE 
with Query do
 begin 
  SQL.Text:='UDPATE RESULTATS SET R_IMAGE=NULL, R_DATETIME=NULL, CRC_IMAGE=NULL WHERE R_IMAGE=:V';
  paramByName('V').asString:=DBADVGrid_Resultats.Cells[Acol,Arow];
  ExecSQL;
 end;

soit le string 'NULL' est affiché

affiché où ? dans la grille ? j'ai l'impression que R_IMAGE est un blob me trompe-je ?

[PhilLU]

Bonjour,

comme il s'agit d'une query , le plus simple est bien de mettre NULL

Code :

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

1
2
3
4
5
6
7
8
 
// version composants BDE 
with Query do
 begin 
  SQL.Text:='UDPATE RESULTATS SET R_IMAGE=NULL, R_DATETIME=NULL, CRC_IMAGE=NULL WHERE R_IMAGE=:V';
  paramByName('V').asString:=DBADVGrid_Resultats.Cells[Acol,Arow];
  ExecSQL;
 end;

affiché où ? dans la grille ? j'ai l'impression que R_IMAGE est un blob me trompe-je ?

Salut et merci pour ta réponse
Malheureusement, j'utilise SQLExpress et Datasnap

R_Image est le nom de la photo, pas un blob.
Dans la grille, le CRC contient si l'image est attribuée à cet enregistrement, le CRC de l'image.
Ce champ fait partie de la clé composée du nom de l'image et du CRC.
ce CRC doit être unique ou NULL (donc pas vide ou 'NULL' (string))
Merci pour tes idées
Bon dimanche

[SergioMaster]

Malheureusement, j'utilise SQLExpress et Datasnap

d'où la bonne idée d'indiquer dés le début quels composants sont utilisés
mais en fait cela ne change rien à la syntaxe du SQL , juste à l'utilisation des paramètres.

Quant à :

donc pas vide ou 'NULL' (string)

NULL et vide (notes bien pas de quote) c'est la même chose dans la plupart des BDD (non renseignée non plus )
donc quant tu dit

ce CRC doit être unique ou NULL

et selon ta demande , mon SQL est correct et devrait faire ce que tu demandes c.a.d. mettre à NULL les 3 champs selon une valeur de la colonne R_IMAGE passée par paramètre.

Maintenant, avec dbExpress, il y a des subtilités de déclaration de paramètres et de champs

[PhilLU]

d'où la bonne idée d'indiquer dés le début quels composants sont utilisés
mais en fait cela ne change rien à la syntaxe du SQL , juste à l'utilisation des paramètres.

Quant à :

NULL et vide (notes bien pas de quote) c'est la même chose dans la plupart des BDD (non renseignée non plus )
donc quant tu dit
et selon ta demande , mon SQL est correct et devrait faire ce que tu demandes c.a.d. mettre à NULL les 3 champs selon une valeur de la colonne R_IMAGE passée par paramètre.

Maintenant, avec dbExpress, il y a des subtilités de déclaration de paramètres et de champs

En utilisant ce code:

Code :

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

1
2
3
4
5
6
7
8
Query.Active:=False;
Query.SQL.Clear;
                with Query do
 begin
  SQL.Text:='UDPATE RESULTATS SET R_IMAGE=NULL, R_DATETIME=NULL, CRC_IMAGE=NULL WHERE R_IMAGE=:V';
  paramByName('V').asString:=DBADVGrid_Resultats.Cells[Acol,Arow];
  ExecSQL;
 end;

Delphi me retourne une erreur de syntaxe

[PhilLU]

Je ferais quelque chose comme ça:

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
with Query do begin
  Active := FALSE;
  SQL.Clear;
  SQL.Add('UPDATE Resultats');
  SQL.Add('SET R_Image = :p0, R_DateTime = :p1, CRC_Image = :p2');
  SQL.Add('WHERE  R_Image = :p3;');
  Params[0].Clear;
  Params[0].Bound := TRUE;
  Params[1].Clear;
  Params[1].Bound := TRUE;
  Params[2].Clear;
  Params[2].Bound := TRUE;
  Params[3].AsString := DBADVGrid_Resultats.Cells[Acol,Arow];
  ExecSQL;
end;

Merci pour ta réponse
Je reçois malheureusement un message:
"Le pilote dbExpress ne supporte pas le type de données TDBXTypes.UNKWOWN. Message d'erreur du fournisseur: ."