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

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

Re,

Ce qui me gène c'est ceci:

Code :

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

1
2
3
4
 
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

A mon humble avis cette condition est toujours fausse !!!
@+

**hy00ga** · 30/10/2006, 15h14

Oki .. je crois que je vois le concept. Ce que tu as c'est un TEdit. L'utilisateur entre un nombre dans ce TEdit et toi, tu veux te connecter à la base de donnée et voir si il existe cet enregistrement. je peux pas te donner du Code parce que je l'ai pas sous la main mais l'idée serait la suivante : (en pseudo-code)

Etablir la connexion à la base de donnée
Exécuter la requete SQL.
Si Ton DataSet est vide
Affiche le message d'erreur
Sinon
Effectue ton traitement

Mais en effet, ton code est incorrect... Je peux pas te corriger de tête comme ca car c'est des composants que j'ai jamais utilisé. je verrai ca ce soir en rentrant

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

Envoyé par Claudius40

Re,

Ce qui me gène c'est ceci:

Code :

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

1
2
3
4
 
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

A mon humble avis cette condition est toujours fausse !!!
@+

Effectivement ce que j'ai fait je viens de constater que c'est pas bon, la condition ne sera jamais vérifiée.

Moi je pose mon problème autrement, je veux renvoyer à l'utilisateur un message au cas ou son numéro saisi n'existe pas dans la base.

Comment faire ???

**hadid** · 30/10/2006, 15h24

Envoyé par hy00ga

Oki .. je crois que je vois le concept. Ce que tu as c'est un TEdit. L'utilisateur entre un nombre dans ce TEdit et toi, tu veux te connecter à la base de donnée et voir si il existe cet enregistrement. je peux pas te donner du Code parce que je l'ai pas sous la main mais l'idée serait la suivante : (en pseudo-code)

Etablir la connexion à la base de donnée
Exécuter la requete SQL.
Si Ton DataSet est vide
Affiche le message d'erreur
Sinon
Effectue ton traitement

Mais en effet, ton code est incorrect... Je peux pas te corriger de tête comme ca car c'est des composants que j'ai jamais utilisé. je verrai ca ce soir en rentrant

C'est exactement ça que je veux faire alors j'attends ton aide car je ne connais pas le langage.
Merci d'avance

**hy00ga** · 30/10/2006, 15h30

Envoyé par hadid

C'est exactement ça que je veux faire alors j'attends ton aide car je ne connais pas le langage.
Merci d'avance

Héhé.. tu ne commence pas par le plus simple pour apprendre un language toi

Enfin j'essayerai de voir ce que je peux faire, parce que j'ai pas de BD oracle à la maison pour tester... On verra ca dans 2 petites heures

**Rayek** · 30/10/2006, 15h35

Comme çà, c'est largement suffisant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
oracleDataset1.SQL.Text:= 'select t.*, t.rowid from ops$asy.attestcmp t where t.SAD_REG_NBER='+num_rech.Text;
   OracleDataset1.Open;
// Rajouter un oracleDataset1.Last; au cas où, 
//certain sgbd ne retourne une valeur que si on est aller sur le dernier enregistrement
 
// Si j'ai au moins 1 enregistrement alors c'est vrai, sinon c'est faux
if oracleDataset1.RecordCount > 0 then
  // Si c'est vrai
else
 
  // Si c'est faux

**hadid** · 30/10/2006, 17h21

Envoyé par Malatar

Comme çà, c'est largement suffisant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
oracleDataset1.SQL.Text:= 'select t.*, t.rowid from ops$asy.attestcmp t where t.SAD_REG_NBER='+num_rech.Text;
   OracleDataset1.Open;
// Rajouter un oracleDataset1.Last; au cas où, 
//certain sgbd ne retourne une valeur que si on est aller sur le dernier enregistrement
 
// Si j'ai au moins 1 enregistrement alors c'est vrai, sinon c'est faux
if oracleDataset1.RecordCount > 0 then
  // Si c'est vrai
else
 
  // Si c'est faux

c'est bon cette solution