verifier une date avec TRY CATCH

Version imprimable

30/07/2007, 14h11
DJERDJAR YACINE

verifier une date avec TRY CATCH
bonjour

j'ai une table client
client(mat,nom,datn)
voila ma requete de l'inserssion:
Code:

1 2 3 4 query.Close; query.SQL.Clear; query.SQL.Add('insert into badia values ('+edit1.Text+','+''''+edit2.Text+''''+','+''''+edit3.Text+''''+')'); query.ExecSQL;
cette requete elle marche tré bien mais je veux verifier la (datn) avec le
'try catch' c'est a dir j'affiche un mesage d'erreur dans le (showmessage)
exp
31/02/2007==>showmessage('la date est incorrect')

je vous remerci d'avance

Tu peux essayer ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
var
   myDate : TDateTime;
begin
try
  myDate := strtoDate(edit.text);
  query.Close;
  query.SQL.Clear;
  query.SQL.Add('insert into badia values  ('+edit1.Text+','+''''+edit2.Text+''''+','+''''+edit3.Text+''''+')');
  query.ExecSQL;
except
  on e:exception do
     begin
       showmessage (e.message)
     end;
  end; //try

30/07/2007, 14h45
DJERDJAR YACINE

bonjour
j'ai recupérere les erreurs de exception par un showmessage mais il y a un probleme car qunad j'insert une date correct il m'affiche une erreur

je vous remerci
30/07/2007, 14h50
dd_garion

Quel est le message d'erreur?

Fort à parier que c'est un problème de conversion ou alors un problème de quote. :aie:

Quelle DB utilises-tu ?
Je suppose que tu utilise un champ de type date dans la DB ?
30/07/2007, 14h54
DJERDJAR YACINE

bonjour

non c'est ma faute car j'ai fait
mydate:=strtoint(edit3.text) à la place de 'strtodat'

je m'excuse

utilise les paramètres dans tes requêtes.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var
   myDate : TDateTime;
begin
try
  myDate := strtoDate(edit.text);
  query.Close;
  query.SQL.Clear;
  query.SQL.Add('insert into badia (champ1,Champ2,Champ3) values  (:Champ1,:Champ2,:Champ3)');
  query.ParamByName('Champ1').Value := Edit1.Text
  query.ParamByName('Champ2').Value :=StrToDate(Edit2.Text) //soit Champ2 et de type Date.
  query.ParamByName('Champ3').Value := Edit3.Text
 
  query.ExecSQL;
except
  on e:exception do
     begin
       showmessage (e.message)
     end;
  end; //try

:tagcode: