Discussion :

[jodan33]

Bopnjour,
voici mon probleme , j'utilise une requettte pour rechercher un montant ttc d'une facture à zero, seulement l'exé m'envoie le message d'erreur suivnat :
Parametres CDE_MTTTC non trouvés, voici le code:

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
 
  DMTactile.NewQry(Qry);
          with qry do
          begin
               if active then close;
               SQL.Clear;
               SQL.add ('select ENTETES_RESA.CDE_ACTIF,ENTETES_RESA.CDE_NBNUITS, ENTETES_RESA.CDE_MTTTC, ENTETES_RESA.CDE_DATARRIV');
               SQL.add ('from ENTETES_RESA ');
               SQL.Add('where CDE_MTTTC=''0''  ');        //or CDE_MTTTC is null
               _mtttc:=ParamByName('CDE_MTTTC').Value;
               nbnuits:=FieldByName('CDE_NBNUITS').Value;                                          //ParambyName('CDE_MTTTC').Asinteger:=_mtttc;
                                                           //ParamByName(' CDE_NBNUITS').Asinteger:=nbnuits;
               Open;
                if (_mtttc=0) or (inttostr(_mtttc) = null ) then
                   if(strtoint(s)=nbnuits) then
                        DMTactile.NewQry(Qry2);
                        with qry2 do
                        begin
                             if active then close;
                             SQL.Clear;
                             SQL.Add('update ENTETES_RESA ');
                             SQL.Add('set CDE_ACTIF= ''O''   ');
                             SQL.Add('Where CDE_NBNUITS = strtoint(s)');
               close;
               end;
          DMTactile.DestroyQRY(Qry);
          DMTactile.DestroyQRY(Qry2);
          end;

Merci pour votre aide!!!

[ero-sennin]

Salut,

A première vu, je dirai que c'est un souci de "syntaxe" (à vérifier):

Essaie ceci :

Code :

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

1
2
3
4
5
SQL.add ('select ENTETES_RESA.CDE_ACTIF,ENTETES_RESA.CDE_NBNUITS, ENTETES_RESA.CDE_MTTTC, ENTETES_RESA.CDE_DATARRIV');
SQL.add ('from ENTETES_RESA ');
SQL.Add('where ENTETES_RESA.CDE_MTTTC=''0''  ');        //or CDE_MTTTC is null
_mtttc:=ParamByName('ENTETES_RESA.CDE_MTTTC').Value;
nbnuits:=FieldByName('ENTETES_RESA.CDE_NBNUITS').Value;

A+

[jodan33]

c'est une bonne idée mais cela ne fonctione paas.

[ero-sennin]

Dommage ...

Bon, je me pose une question ... J'avais pas remarqué les " " autour du 0...
Le champ CDE_MTTTC est de quel type ?
Logiquement, si c'est un entier, ou réel, il n'y a pas besoin de guillemets

Sinon, tu peux toujours essayer ceci (histoire de simplifier l'écriture) :

Code :

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

1
2
3
4
5
SQL.add ('select CDE_ACTIF,CDE_NBNUITS, CDE_MTTTC, CDE_DATARRIV');
SQL.add ('from ENTETES_RESA');
SQL.Add('where CDE_MTTTC=0');        //or CDE_MTTTC is null
_mtttc:=ParamByName('CDE_MTTTC').Value;
nbnuits:=FieldByName('CDE_NBNUITS').Value;

Pour ma part, je ne vois que ça comme erreur

[jodan33]

en fait CDE_MTTTC est un double precision dans la base firebird.

[Aka Guymelef]

Attention tu essayes de récupérer les valeurs dans les champs (voire même dans les paramètres pour CDE_MTTTC) avant l'appel de Open ce qui est une erreur puisque tu ne peux pas récupérer les valeurs avant d'exécuter la requête.

[jodan33]

en effet , d'ailleurs j'aimerai que quelqu'un m'explique comment récupérer une valeur (ici un entier) qui résulte d'une requête et l'utiliser pour un traitement dans le code delphi.

[Cl@udius]

Salut

Pour être franc, je ne comprends pas grand chose à ta requête.
Je vois la présence de ParamByName mais pas de paramètres dans ta requête. !!!

Il ne faut pas oublier, en complément de la remarque de Aka Guymelef, ces quelques simples principes:

1. Définition de la propriété SQL de la requête
2. Assignation des valeurs aux paramètres (avec ParamByName)
3. Ouverture de la requête sélection avec Open
4. Lecture des valeurs renvoyées (avec FieldByName)
5. Fermeture de la requête (avec un Commit)

Voila le schéma à suivre.

@+ Claudius

[jodan33]

ha , merci beaucoup pour cette démarche à suivre que je n'ai trouver sur aucun site , et en effet l'open était très mal placé.(d'ailleurs c bon je récupère mes valeurs maintenant).
Pour le commit , j'insère tous simplement 'commit' et ça marche?

[Cl@udius]

ha , merci beaucoup pour cette démarche à suivre que je n'ai trouver sur aucun site , et en effet l'open était très mal placé.(d'ailleurs c bon je récupère mes valeurs maintenant).

Pour le commit , j'insère tous simplement 'commit' et ça marche?

Presque
Quels sont les composants que tu utilises pour accéder à ta BDD Firebird ?

[neilbgr]

Pour que CDE_MTTTC soit considéré comme un paramètre de la requête, il faut la déclarer comme il se doit ; c'est à dire :

Code sql :

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

where CDE_MTTTC = :CDE_MTTTC

Voir des exemples/explications :
http://pagesperso-orange.fr/bardou/m...ametressql.htm
...

[jodan33]

C'est à dire ?, j'utilise Firebird en base de données

[Cl@udius]

C'est à dire ?, j'utilise Firebird en base de données

Oui certes, mais tu utilises bien des composants pour te connecter à ta base, au moins un composant transaction, et des Query, Table, ...

Est-ce que tu utilises les composants de la suite IBExpress fournit avec Delphi (TIBDataBase, TIBTransaction, TIBQuery, ...) ou ceux d'une autre suite?

[neilbgr]

Ho les gars !?
Vous avez vu mon post ?

[Cl@udius]

Ho les gars !?
Vous avez vu mon post ?

Hein, où ça ?

Oui, et j'espère que jodan33 a été lire tes liens sur les requêtes paramétrées.

[jodan33]

Oui, neilbgr j'ai vu et d'ailleurs je m'en suis inspiré.
Pour Cl@udius , j'utilise des TIBQuery

[Cl@udius]

Et bien dans ce cas, et pour répondre à ta question sur le commit, ton TIBquery est relié à un objet TIBTransaction. Donc pour valider ta transaction il suffit de faire un commit ainsi:

Code :

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

TIBTransaction1.Commit;

Il est important de bien gérer ses transactions avec Firebird (et tout SGBD en général). Tu peux consulter ce tuto sur le sujet. A voir également en introduction ce chapitre de la FAQ Interbase/Firebird.

Bonne lecture
@+ Claudius

[neilbgr]

Oui, neilbgr j'ai vu et d'ailleurs je m'en suis inspiré.

Merci

[jodan33]

En fait le probleme de parametre non trouvé n'a pas était résolu tourt de suite mais cette discussion combiné avec quelques autres m'a permis de résoudre ce pbme de paramétre non trouvé.

Merci Beaucoup!!!!!