Discussion :

[makaphrodite]

bjr à tous
je travail sur delphi 2008 et interbase, je voulai teste si une table est vide pour affiche un msg à l'utilisateur, mais je sais pas comment faire
j'ai une table famille qui contien une liste de produit, quand cette famille contient des produit la liste s'affiche( pour ca c fait) mais il me reste le cas de la liste vide
merci pour votre aide

[Cl@udius]

Salut

Examine la propriété IsEmpty juste après l'ouverture de ta table/query.
Si le DataSet est vide IsEmpty renvoie True.

@+ Claudius

[Just-Soft]

Salut;

Ou encore la propriété EOF mais faut faire attention elle ne renvoie pas toujours le bon résultat.

Tu peux aussi consulter la propriété RECORCOUNT avec la même remarque faite pour EOF.

À mon avis, la propriété ISEMPTY est la plus sûre.

Bon codage.

[Mstreatboy]

Je te conseille le isempty c'est beaucoup + simple.just un if et hop. Documente toi dessus (F1)

[makaphrodite]

merci pour votre reponse, j'arrive pas à trouver à quel endroit l'ajoute

Code :

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

1
2
3
4
 
if Datamodule4.DetailInventaire_QR.IsEmpty = true then
       begin showmessage('cette famille de produit est vide'); end
       else

dans le code suivant ,si qlq'un peut me dire

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
 
procedure TForm_Select_Famille.BitBtn1Click(Sender: TObject);
Var i:Integer;
begin
       Datamodule4.DetailInventaire_QR.open;
 
    With DBGrid1 Do
  Begin
    for i:=0 to SelectedRows.Count-1 do
      begin
       DataSource.DataSet.GotoBookmark(pointer(SelectedRows.Items[i]));
       Datamodule4.Update.SQL.Clear;
       Datamodule4.Update.SQL.Add('select produit.codeproduit from produit where (Produit.famille = ' + quotedstr(DataSource.DataSet.FieldByName('NUMERO').asstring )+ ')');
       datamodule4.Update.open;
 
 
        WITH Datamodule4.update do
             begin
             while not eof do
                  begin
                    DAtamodule4.DetailInventaire_QR.Append;
                    Datamodule4.DetailInventaire_QRCODEPRODUIT.Value :=  Datamodule4.Update_DS.DataSet.FieldByName('CODEPRODUIT').value;
                    DAtamodule4.DetailInventaire_QR.post;
                    next;
                  end;
             end;
      end;
   end;
 
     DAtamodule4.DetailInventaire_QR.CLOSE;
     DAtamodule4.DetailInventaire_QR.open;
     close;
end;

[chaplin]

Le test sur la propriété IsEmpty doit se faire immédiatement après l'appel de la méthode Open du Dataset

Code :

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

1
2
MyDataset.Open
If MyDataset.IsEmpty then ... else ...

Sinon dans l'inspecteur d'objet du Dataset dans l'onglet Evénement, il y a une
événement AfterOpen dans lequel le test de la table peut-être inséré.

Ca revient au même.