Discussion :

[tarmo57]

Salut tous j'ai un petit problème sur une requête .J'ai un champ de type date dans ma table paradox que je rempli a l'aide d'un Maskedit avec un masque de saisi 01/12/2000.Si je veux le modifier avec une requête et que le champ n'est pas vite ok pas de problème, mais si il est vide j'ai une érreur
ma requête :

Code :

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

1
2
3
4
5
6
7
8
DataModule1.Query1.SQL.Clear;
DataModule1.Query1.SQL.Add('Update matable.DB set Mat = '+ QuotedStr(Mat.Text)
+',Statut = '+ QuotedStr(Statut.Text)
+',Sexe = '+ QuotedStr(Sexe.Text)
+',Nom = '+ QuotedStr(Nom.Text)
+',Date = '+ QuotedStr(Date.Text)
+' where Idmatable ='+ QuotedStr(Id.caption)+'');
DataModule1.Query1.ExecSQL;

et il possible de faire un truc du genre

Code :

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

1
2
3
4
5
6
7
8
9
10
DataModule1.Query1.SQL.Clear;
DataModule1.Query1.SQL.Add('Update matable.DB set Mat = '+ QuotedStr(Mat.Text)
+',Statut = '+ QuotedStr(Statut.Text)
+',Sexe = '+ QuotedStr(Sexe.Text)
+',Nom = '+ QuotedStr(Nom.Text)
if Date.text<>'  ' then begin
+',Date = '+ QuotedStr(Date.Text)
end;
+' where Idmatable ='+ QuotedStr(Id.caption)+'');
DataModule1.Query1.ExecSQL;

comment faire dans le cas d'un champ date vide .Merci de votre aide

[dehorter olivier]

je ne connais pas paradox

mais si les contraintes de la colonne date indique qu'une valeur NULL (et non vide) est interdite, cela n'est pas etonnant que cela renvoie une erreur.
Par ailleurs, un type de champ date est un "numerique" donc une valeur vide au sens chaine (une chaine ne contenant rien; mais pas NULL) n'est pas valide non plus.


donc une valeur de date doit contenir une dates ou un NULL

a+

[tarmo57]

je ne connais pas paradox

mais si les contraintes de la colonne date indique qu'une valeur NULL (et non vide) est interdite, cela n'est pas etonnant que cela renvoie une erreur.
Par ailleurs, un type de champ date est un "numerique" donc une valeur vide au sens chaine (une chaine ne contenant rien; mais pas NULL) n'est pas valide non plus.


donc une valeur de date doit contenir une dates ou un NULL

a+

dans ma table le champ n'est pas obligatoire .

[dehorter olivier]

donc il faut utiliser la syntaxe utilisant les NULLs (si cela existe sous paradox ?)

a+

[tarmo57]

j'ai trouvé une petite astuce, j'ai simplement fais deux requête

me requete principal j'ai retirer le champ date

Code :

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

1
2
3
4
5
6
7
8
 
DataModule1.Query1.SQL.Clear;
DataModule1.Query1.SQL.Add('Update matable.DB set Mat = '+ QuotedStr(Mat.Text)
+',Statut = '+ QuotedStr(Statut.Text)
+',Sexe = '+ QuotedStr(Sexe.Text)
+',Nom = '+ QuotedStr(Nom.Text)
+' where Idmatable ='+ QuotedStr(Id.caption)+'');
DataModule1.Query1.ExecSQL;

et ma deuxieme

Code :

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

1
2
3
4
5
6
if Date1.Text<>'' then begin
DataModule1.Query1.SQL.Clear;
DataModule1.Query1.SQL.Add('Update matable.DB set Date1 = '+ QuotedStr(Date1.text)
+' where Idmatable ='+ QuotedStr(Id.caption)+'');
DataModule1.Query1.ExecSQL;
end;

merci tous le problème est résolu

[tarmo57]

Avec ma requête impossible de supprimer une date ,pourtant dans ma table paradox il n'est pas oblige de remplir le champs.
j'ai le message

le proget a provoqué une classe d'exeption EDBEngineError avec le message 'Différence de type dans une expression'

[dehorter olivier]

comme je l'ai indique normalement un champ date est en realite un nombre.

La chaine date (ex : 25/04/201) est change implicitement par sa valeur numerique.

lorsque la chaine est "vide", la conversion ne peut avoir lieu. Ce qui m'etonne c'est que cela fonctionne avec un update

Code :

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

1
2
UPDATE table SET table.date = ''
WHERE table.date = ''

(requete stupide je l'avoue )

Code :

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

1
2
DELETE FROM table
WHERE table.date = ''

c'est 2 types de requetes ne devraient pas fonctionner

Code :

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

1
2
DELETE FROM table
WHERE table.date IS NULL

par contre celle ci est correcte

[tarmo57]

comme je l'ai indique normalement un champ date est en realite un nombre.

La chaine date (ex : 25/04/201) est change implicitement par sa valeur numerique.

lorsque la chaine est "vide", la conversion ne peut avoir lieu. Ce qui m'etonne c'est que cela fonctionne avec un update

Code :

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

1
2
UPDATE table SET table.date = ''
WHERE table.date = ''

(requete stupide je l'avoue )

Code :

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

1
2
DELETE FROM table
WHERE table.date = ''

c'est 2 types de requetes ne devraient pas fonctionner

Code :

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

1
2
DELETE FROM table
WHERE table.date IS NULL

par contre celle ci est correcte

Merci Oliver mais je ne veux pas faire un delete main impérativement un Update .comment dois je faire ?
merci d'avance de ton aide

[dehorter olivier]

bonjour

il ne s'agit pas d'une suppression donc mais d'une mise a jour.

si tu veux mettre la date a NULL

Code :

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

1
2
UPDATE table SET table.date = NULL
WHERE table.Idmatable = :id_table

la procedure pourrait ressembler a cela :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
DataModule1.Query1.SQL.Clear;
DataModule1.Query1.SQL.Add('Update matable.DB set Date1 = ';
if Date1.Text<>'' then 
begin
     DataModule1.Query1.SQL.Add(QuotedStr(Date1.text));
end else
begin
     DataModule1.Query1.SQL.Add(QuotedStr('NULL'));
end
 DataModule1.Query1.SQL.Add(' where Idmatable ='+ QuotedStr(Id.caption)+'');
DataModule1.Query1.ExecSQL;

a+

[fab256]

Une bonne pratique a dopter est d'utiliser les parametres dans les requetes SQL, c'est plus rapide, permet d'eviter pas mal de problemes de securité et garde le code clair et facile a maintenir

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
with  DataModule1.Query1 do
  begin
  SQL.Clear;
  SQL.Add('Update matable.DB Set Date1 = :ParamDate Where Idmatable = :ParamIdmatable');
  ParamByName('ParamDate').DataType:=ftDate;
  ParamByName('ParamDate').value := NULL;
  if Date1.Text<>'' then ParamByName('ParamDate').AsDate := StrToDate(Date1.text);
  ParamByName('ParamIdmatable').AsString := Id.text;
  ExecSQL;
  end;

[tarmo57]

merci tous , votre aides est exceptionnel .Merci de vos réponces et de prendre le temps