Discussion :

[21247692]

bonjour

j'ai un probleme d'exception et j'arrive de le réglé
voila mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
var
x:integer;
begin
try
x:=strtoint(edit1.Text);
except
on e.Input(edit1.Text)
  do begin
       showmessage('erreur');
      end;
end;

il m'affiche une erreur la voila ( identificateur non declaré 'e' )

je vous remerci d'avance

[gduo200]

Si c'est pour éviter l'erreur de conversion Chaine - > entier, il y a les 3 évenement OnKey .... du TEdit qui te permettent de savoir ce qui est entré par l'utilisateur et ce que tu veux en garder car. par car.

Mieux que cela , il y a TEditMask.

Quand à l'exception, effectivement on se demande ce qu'est "e" ?

[Cl@udius]

Salut

Visiblement tu souhaites intercepter l'erreur de conversion à l'aide d'except mais ton code est plutôt mal construit (sans vouloir te vexer )

Un p'tit exemple de contrôle d'erreur:

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
16
17
18
 
var
  x, y, z: Integer;
begin
  try
    x := StrToInt(Edit1.Text);
    y := StrToInt(Edit2.Text);
 
    z := x div y;
    ShowMessage('x div y = ' + IntToStr(z));
    // ...
  except
    on E: EConvertError do
      ShowMessage('Les valeurs saisies doivent être entières.' + #13#10 +
                  E.Message);
    on E: EDivByZero do
      ShowMessage('La valeur de ''Edit2'' doit être différente de 0');
  end;

Je te conseille de consulter cette rubrique dans les cours de ce site.

@+ Claudius.

[philnext]

pour ton code autant faire :

Code :

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

1
2
3
4
5
6
7
8
9
var
  x:integer;
begin
  try
    x:=strtoint(edit1.Text);
  except
    showmessage('erreur');
  end;
end;

sinon moi j'aime bien

Code :

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

1
2
3
4
5
6
7
var
  x:integer;
begin
  if TryStrToInt(Edit1.Text,x)=false then
    ShowMessage('erreur');
end;

[21247692]

bonjour
comment géré les exceptions des constraints
j'ai utilisé les constraints et je veux afficher tous les exception un par un

1) le code est unique
2) le nom est entre ('djerdjar' et 'laaribi')
3) la date
voila mon code source

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
16
17
18
19
20
21
22
23
24
25
26
 
var
 x:tdatetime;
 a:string;
 
begin
 try
  x:=strtodate(editdate.text);
  a:=editnom.text;
 
  form1.ADOQuery1.Close;
  form1.ADOQuery1.SQL.Clear;
  form1.ADOQuery1.SQL.Add(10,'djerdj','yacine',198i-12-04',.......);
  form1.ADOQuery1.ExecSQL;
 except
  on e:exception do 
   begin
   showmessage('le nom est incorrect');
   break;
  end;
 on e:exception do 
  begin
   showmessage('la date est incorrect');
   break;
  end;
end;

dans ce cas le nom et la date sont incorrect,comment afficher ces exceptions un par un

je vous remerci d'avance

[Laurent Dardenne]

21247692 merci d'utiliser les balises code. Ton code sera ainsi plus lisible et gardera son indentation.

[Cl@udius]

Salut

Pour le contrôle de tes valeurs, tu peux le faire en amont avant d'excuter ta requête.

Pour contrôler la validité d'une date, tu peux utiliser TryStrToDate. (il existe d'autres fonctions de ce type TryStrToInt, TryStrToFloat, etc...). Voir l'aide de Delphi.

Ensuite pour exécuter ta requête, il faut que tu transmette une instruction SQL valide à ton ADOQuery (via la commande SQL.Add dans l'exemple).
La chaîne que tu donnes en exemple déclenchera naturellement une erreur.

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
var
  ID: Integer;
  Nom: string;
  DateNais: TDateTime;
begin
 
  ID := 10;   // A compléter
 
  if not TryStrToDate(EditDate.Text, DateNais) then
  begin
    ShowMessage('La date entrée est incorrecte !');
    Exit;
  end;
 
  Nom := EditNom.Text;
  if (Nom < 'djerdjar') or (Nom > 'laaribi') then
  begin
    ShowMessage('Nom incorrect !');
    Exit;
  end;
 
  with Form1.ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('INSERT INTO MA_TABLE (ID, NOM, DATE_NAIS)');
    SQL.Add('VALUES( :ID, :NOM, :DATE_NAIS)');
    Parameters.ParamByName('ID').Value := ID;
    Parameters.ParamByName('NOM').Value := Nom;
    Parameters.ParamByName('DATE_NAIS').Value := DateNais;
    try
      ExecSQL;
    except
      ShowMessage('Echec lors de l''insertion des données !');
    end;
  end;
end;

@+ Claudius

[21247692]

bonjour

chaque fois il affiche la meme erreur ('la date entrée est incorrect') meme si la date est correcte
normalement si le nom est incorrecte il m'affiche ('le nom est ncorrect') et aprés si la date est incorrecte il m'affiche ('la date est incorrecte') ça veu dir un par un

je vous remreci

[philnext]

Je ne suis pas sûr que les exceptions de Delphi puissent remonter aussi finement les info. ADO, ni que ADO fournisse ce niveau de précision.
Donc pour ton cas 2 solutions :
*Comme déja proposé (et c'est pas du luxe !) faire une validation avant ta requète.
*Sur une erreur remonter le message de ADO style :

Code :

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

1
2
3
4
5
 
    on E:Exception do
    begin
      showMessage(E.Message);
    end;

Je te conseille d'ailleurs de faire les 2 !!

[21247692]

bonjour

je veux afficher chaque erreur à son message qui correspondant c'est a dir
quand il une exception sur le nom il faut etre afficher un message comme suit
showmessage('le nom est incorrect')........ect

je vous remerci

[philnext]

Je pense que tout le monde a compris ton problème. Comme déja indiqué le plus simple c'est de récupérer le E.Message et de regarder ce que tu peux en faire en fonction des erreurs rencontrées.

[21247692]

bonjour

comment le faire pouriez vous m'ader SVP

[Laurent Dardenne]

comment le faire pouriez vous m'aider

Que sont les réponses données ici, sinon de l'aide.
Je suis tenté de dire que c'est à toi désormais de nous aider à t'aider en précisant ce que tu ne comprend pas.

1. Quel SGBDR utilises-tu ?
2. Quelle est le contenu de ta requête ?
3. Quelles contraintes as-tu placé sur les colonnes/tables ?

Si possible déporte le contrôle des régles de gestion au sein d'une procédure stockée.

Recherche-tu une explication au fonctionnement des exceptions ou qu'on te propose une solution à ton problème d'implémentation ?

Cordialement.