Discussion :

[DJERDJAR YACINE]

bonjour

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

Code :

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

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

[dd_garion]

Tu peux essayer ceci :

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
 
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

[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

[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.

Quelle DB utilises-tu ?
Je suppose que tu utilise un champ de type date dans la DB ?

[DJERDJAR YACINE]

bonjour

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

je m'excuse

[aityahia]

utilise les paramètres dans tes requêtes.

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
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