traitement des exceptions

Version imprimable

bonjour
j'ai des soucis avec le bour de code ci après. Quand on saisit le meme code engagement il ne renvoie pas le message d'erreur '' Cet engagement a déjà ete saisi''
je demande de l'aide , je comprend pas
merci d'avance

Code:

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
procedure TFtypeEngagement.enregistrerClick(Sender: TObject);
var
typeEng:string;
begin
  IF DBEDIT1.text='' then
   begin
   MessageDlg('Veuillez saisir le type engagement !', mtInformation,
      [mbOk], 0);
    exit;
end;
try
   if dbedit1.text<>'' then
   begin
   typeEng:=dbedit1.text;
   if dm.typeengagement.locate('TYPE_ENGAGEMENT' ,typeEng , [loCaseInsensitive	]) then
   begin
    MessageDlg('Cet engagement a été déjà saisi', mtWarning,
      [mbOk], 0);
    exit;
    end;
 end;
finally
  if not dm.ADOConnection1.intransaction then
   dm.ADOConnection1.BeginTrans;
    dm.typeengagement.post;
    end;
end;

27/01/2009, 14h39
Just-Soft

Salut;

le plus logiquement c'est qu'il ne trouve pas ton enregistrement donc pas de correspondance exacte.

Mais si on étudie ton code on se demande pourquoi tu fais la recherche à partir d'un texte saisie dans un DBEdit ? L'erreur est là, faut mettre à la place un Edit.
02/02/2009, 09h52
lepeule

traitement des exceptions

bonjour

OK avec EDIT ça marche
merci pour l'aide . Mais ya t-il une possibilité avec un DBEDIT ? comment le faire avec ?
merci beaucoup !
02/02/2009, 10h59
Just-Soft

Salut;

Si je me permet quel avantage trouve-tu dans l'utilisation d'un DBEdit ?