1 pièce(s) jointe(s)
exception EconvertError avec le message("n'est pas une valeur correct)
Salut tout le monde ,
bon voilà j'explique mon problème : j'ai une interface de saisie d'une table nommée Groupe qui contient les champs suivant(Code_groupe,nom_groupe,code_section) .et j'ai deux edit et deux labels pour la saisie du code_groupe et nom_groupe ainsi ainsi que le bouton ajouter (pour ajouter les valeurs saisies qui seront par la suite affichées dans le DBgrid) ce que je veux faire c'est que lorsque l'utilisateur saisie groupe qui existe déjà(donc il saisie un code_groupe déja existant) un message d'erreur s'affichera indiquant que le groupe existe déja voici le code expliquant ce que je viens de dire
j'ai crée une requête ADOQuery2 et dans le propriété sql j'ai écrit :
Code:
select * from groupe where code_groupe = :p
sur le edit1 j'ai profité à donner des paramètre à l'ADOQuery2
Code:
1
2
3
4
5
6
7
8
|
procedure Tfiche_groupes_gestion.Edit1Change(Sender: TObject);
begin
ADOQuery2.Close;
ADOQuery2.Parameters.ParamByName('p').Value:=StrToInt(edit1.Text);
ADOQuery2.Open();
end; |
puis le bouton ajouter
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
28
29
30
|
procedure Tfiche_groupes_gestion.SpeedButton1Click(Sender: TObject);
begin
if (Edit1.text='')and(Edit2.text='') then
showmessage(' veuillez saisir vos données ');
if(ADOQuery2.Active=true)then
begin
MessageDlg('le groupe que vous voulez ajouter existe déja,mtError,[mbCancel],0);
edit1.Clear ;
end
else if MessageDlg('voulez vous ajouter le groupe ',mtConfirmation,[mbYes,mbNo],0)=mrYes then
begin
ADOQuery1.sql.clear;
ADOQuery1.sql.add('Insert into Groupe( code_groupe,nom_groupe,code_sec)values('+quotedstr(EDit1.Text)+','+quotedstr(Edit2.text)+','+quotedstr(DBEdit2.text)+' ) ');
ADOQuery1.ExecSQL;
showmessage('le groupe a été bien ajouté');
end;
ADOQuery1.Close;
//ADOQuery1.Active:=true;
// ADOTable1.Post;
ADOTable1.Refresh;
edit1.Clear;
edit2.Clear;
end; |
mon problème c'est que le message d'erreur s'affiche bien sauf qu'à la fin l'EDI génère une classe d'exception EConvertError vous le trouvez ci joint
quelqu'un peut me guider s'il vous plait merci d'avance :cry:
Cordialement
