Discussion :

[mammistegon]

bonjour ! voila je dois créer une application qui gère une base de données et je suis face à un problème : avant de faire des modifs dans la base de données je vérifie quelques valeurs :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
procedure TfrmAjoutRes.RetourneNbOccurence(OUT nb : integer);
begin
    QueryGroupe.Active := false;
    QueryGroupe.SQL.clear;
    QueryGroupe.SQL.Add('Select * from groupe where num_grp = ' + DBENum.text);
    QueryGroupe.ExecSQL;
    QueryGroupe.Active := true;
    nb := QueryGroupe.RecordCount;
    QueryGroupe.Active := false;
end;

Et delphi ne supporte pas quand je veut désactiver un query avec aucune valeur dedans. Je ne vois pas pourquoi il ne veut pas. Il me dit que cet opération nécessite un enregistrement actuel et que celui a peut être été supprimé... Maintenant il y peut être plus simple pour vérifier des données en base de données, je suis ouvert à toutes les idées.
merci d'avance

[Andry]

Essaie Close à la place de active := false pour voir.

A+

[Benjamin GAGNEUX]

De plus lors de l'interrogation de données, j'utiliserais plutot Open que ExecSQL(prévu pour modification des données).

A+

[Philia]

Note que si tu fais Open, je ne vois pas l'interet de la ligne
active := true

[Giovanny Temgoua]

active := true <==> Open;
active := false <===> Close;

ExecSql est utilisé pour les requêtes qui ne retournent aucun ensemble de donnée (Insert par exemple). Donc il te fallait utiliser Open.

D'autre part, je ferai une requête au lieu d'un recordCount, c'est à dire écrire quelque chose comme

Code :

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

1
2
3
4
5
6
7
8
9
procedure TfrmAjoutRes.RetourneNbOccurence(OUT nb : integer); 
begin 
    QueryGroupe.Close;
    QueryGroupe.SQL.clear; 
    QueryGroupe.SQL.Text := 'Select count(*) as Total from groupe where num_grp = ' + DBENum.text);  
    QueryGroupe.Open; 
    nb := QueryGroupe.FieldByName('Total').AsInteger; 
    QueryGroupe.Close; 
end;

[mammistegon]

merci de vos réponses très précises elles m'on aidé a avancé dans mon application.
merci bcp !