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'

[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