Discussion :

[the watcher]

c'est encore moi les amis
j'ai mis en place cette requête avec IBQUERY

Code :

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

1
2
3
4
5
6
7
If IBQuery2.active then IBQuery2.active:=False;
      IBQuery2.Close;
      IBQuery2.SQL.Clear;
      IBQuery2.SQL.Add('select CODEBENE, NOM, PRENOMS, TYPE_BENE, NUM_CARTE_BENE from BENEFICIAIRE where CODE_AP= :CODE_AP');
      IBQuery2.Params[0].AsString:=Label1.Caption;
      IBQuery2.Open;
      IBQuery2.ExecSQL;

mais qui affiche un erreur de à l'exécution.
Qu'est_ce que je n'ai pas respecté ?

[the watcher]

Voici le message d'erreur affiché :

[Just-Soft]

Salut;

Code :

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

1
2
3
4
5
6
7
8
 
//If IBQuery2.active then IBQuery2.active:=False; // ceci est un test en plus
      IBQuery2.Close; // équivalent à IBQuery2.active:=False; 
      IBQuery2.SQL.Clear;
      IBQuery2.SQL.Add('select CODEBENE, NOM, PRENOMS, TYPE_BENE, NUM_CARTE_BENE from BENEFICIAIRE where CODE_AP= :CODE_AP');
      IBQuery2.Params[0].AsValue:=Label1.Caption; // attention au type attendu
      IBQuery2.Open; // est très suffisant pour voir le résultat
      //IBQuery2.ExecSQL;ceci est aussi en plus, pas besoin dans un select

[Andry]

Ou bien

Code :

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

1
2
3
4
5
6
7
8
 
With IBQuery2 do
begin
    Close;
    SQL.Text := 'select CODEBENE, NOM, PRENOMS, TYPE_BENE, NUM_CARTE_BENE from BENEFICIAIRE where CODE_AP= :CODE_AP';
    ParamByName('CODE_AP').AsString := Label1.Caption;
    Open;
end;

[Cl@udius]

Salut

Tu obtiens ce message d'erreur car tu fais appel successivement à Open et ExecSQL. C'est soit l'un soit l'autre, mais pas les deux en même temps.
Un Open est utilisé avec une requête Select, un ExecSQL pour les requêtes de mise à jour (Insert, Update ou Delete).

@+ Claudius.