Afficher un message d'erreur dans un programme !

**hadid** · 30/10/2006, 12h58

Bonjour,
je veux afficher un message dans mon programme ci_dessous :

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
39
40
41
 
procedure TForm1.ButtonRECHClick(Sender: TObject);
var trouve : boolean;
 
begin
   OracleDataset1.Close;
   oracleDataset1.SQL.Text:= 'select t.*, t.rowid from ops$asy.attestcmp t where t.SAD_REG_NBER='+num_rech.Text;
   OracleDataset1.Open;
if  (oracleDataset1.SQL.Text = num_rech.Text) then
      trouve:= true
else
    begin
     trouve := false;
     MessageBox(Handle,'Reférence déclaration inexistante', 'Information', MB_OK);
    end;
    if (trouve = true)  then
    begin
 
         if ((numdoss.Text <> '') or (numdi.Text <> '') or (types.Text <> '') or (chassis.Text <> '') or (datecir.Text <> '') or (model.Text <> '') or (datedoss.Text <> '') )  then
             begin
                numdoss.ReadOnly:=true;
                numdi.ReadOnly:=true;
                types.ReadOnly:=true;
                chassis.ReadOnly:=true;
                datecir.ReadOnly:=true;
                model.ReadOnly:=true;
                datedoss.ReadOnly:=true;
             end
         else
             begin
                numdoss.ReadOnly:=false;
                numdi.ReadOnly:=false;
                types.ReadOnly:=false;
                chassis.ReadOnly:=false;
                datecir.ReadOnly:=false;
                model.ReadOnly:=false;
                datedoss.ReadOnly:=false;
             end
 
         end;
     end;

Ce message doit s'afficher uniquement quand :
if (oracleDataset1.SQL.Text <> num_rech.Text)

mais tel que c'est fait dans mon code, le message s'affiche à toutes les conditions, que faire ?

Quelqu'un peut -il me donner un coup de main

Merci

**qi130** · 30/10/2006, 13h12

Envoyé par hadid

mais tel que c'est fait dans mon code, le message s'affiche à toutes les conditions, que faire ?

Bah c'est que la condition d'affichage est remplie alors...

Il y a quoi dans num_rech.Text ? Comment c'est alimenté ?

**hadid** · 30/10/2006, 13h17

num_rech est un entier (type number) que l'utilisateur entre dans une zone de saisie.

**hy00ga** · 30/10/2006, 13h34

Si num_rech.Text est un entier (sous forme de string) et que tu le compare avec oracleDataset1.SQL.Text qui contient ta requête SQL (qui me parait bizzare d'ailleur), cette condition ne sera forcément jamais remplie et il va toujours passer dans le else... il y a une erreur dans ta conception ... tu ne compare pas les bonnes choses je pense

**hadid** · 30/10/2006, 14h19

Envoyé par hy00ga

Si num_rech.Text est un entier (sous forme de string) et que tu le compare avec oracleDataset1.SQL.Text qui contient ta requête SQL (qui me parait bizzare d'ailleur), cette condition ne sera forcément jamais remplie et il va toujours passer dans le else... il y a une erreur dans ta conception ... tu ne compare pas les bonnes choses je pense

Ce que vous dites est vrai mais le problème ce que je ne connais pas bien le langage.
Pouvez vous me dire comment je pourrais envoyer un message quand le num_rech n'existe pas dans le base ???

Tout mon problème c'est de dire que le numéro saisi par l'utilisateur est trouvé ou pas dans la base.

Merci

**Cl@udius** · 30/10/2006, 14h25

Salut,

Si le N° saisi par l'utlisateur n'existe pas dans la base, alors ton DataSet ne contiendra aucun enregistrement.

Examine la propriété RecordCount ou IsEmpty de ton DataSet, pour détecter ce genre de situation.

@+

**qi130** · 30/10/2006, 14h27

Alors, Num_rech n'est pas un number....

Ce serait pas un TEdit, par hasard ? ou quelque chose d'approchant ...

Il nous faudrait aussi le mode de connexion utilisé , ça conditionne les propriétés accessibles pour compter le nb d'éléments retournés par la requète...