Discussion :

[mario9]

Bonjour

Je suis incapable de mettre a jour mon listbox après une correction, création ou destruction d'un enrégistrement.

voir extrait du code http://docwiki.embarcadero.com/RADSt...OS_et_Android)

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
 
procedure TForm1.ButtonDeleteClick(Sender: TObject);
var
  TaskName: String;
begin
  TaskName := ListBox1.Selected.Text;
 
  try
    SQLQueryDelete.ParamByName('ShopItem').AsString := TaskName;
    SQLQueryDelete.ExecSQL();
    ItemTable.Refresh;
    LinkFillControlToField1.BindList.FillList;   //  erreur ici existe pas
    if ListBox1.Selected <> nil then
      ButtonDelete.Visible := True
    else
      ButtonDelete.Visible := False;
  except
    on e: Exception do
    begin
      SHowMessage(e.Message);
    end;
  end;
end;

Les enregistrements sont bien crées mais je les vois seulement au démarrage de mon application. Est-ce qu'il a une autre méthode pour rafraichir un listbox.

Merci de votre aide.

Mario

[SergioMaster]

Bonjour,

à mon avis c'est parce que le dataset n'est "ouvert/rempli" qu'une seule fois : execsql au lieu de open (ou active:=true). ?

jusqu'à présent j'ai toujours fait pour ce genre de chose de la manière suivante (avec Firedac)

1-un FDConnection, FDTransaction, FDQuery, FdUpdateSQL << pour le SQL Delete, insert , update et refresh, un FDGUIxCursor et un FDPhysxxxx
2-un tlistbox (le plus souvent un tlistview à la place)
3-une liaison visuelle (Synch de listbox <-> * de fdQuery, champ -> text)

ainsi ton code deviendra simplement

Code :

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

1
2
3
4
5
 
procedure TForm1.ButtonDeleteClick(Sender: TObject);
begin
ItemTable.Delete; // peut être encadré de try except selon les contraintes de la BDD
end;

en tout cas merci d'avoir porté mon attention sur cette page wiki , car j'y lit ceci

Attention : dbExpress, qui est décrit dans ce tutoriel, va devenir obsolète. Cela signifie que dbExpress sera supprimé de RAD Studio dans une prochaine release.

je me doutais bien que dbexpress serait poussé dehors, cette petite phrase me le confirme ! c'est la première fois que j'en ai une confirmation plus "officielle"

[mario9]

Bonjour

Merci SergioMaster .

J'ai fait plusieurs essais mais j'ai un peu de misère a saisir la fonction LinkFillControlToField

LinkFillControlToField1.BindList.FillList

Avec quoi je dois faire le lien du LinkFillControlToField1.BindList.FillList. Ect que je dois enlevé les autres liens quand je l'utilise.

Merci

Je continue mes recherches et essais avec les exemples X10.


Mario

[SergioMaster]

Bonjour,

J'ai fait plusieurs essais mais j'ai un peu de misère a saisir la fonction LinkFillControlToField
Avec quoi je dois faire le lien du LinkFillControlToField1.BindList.FillList. Ect que je dois enlevé les autres liens quand je l'utilise.

je ne comprends pas trop ce questionnement. Bien que les Bindlinks rapides me posent des soucis dés que je déclare les champs de mes requêtes et que j'utilise la propriété customformat j'ai toujours pas réussi à comprendre où je me plante), les liaisons rapides sont extrêmement efficaces tel que j'ai décrit dans mon post précédent

[mario9]

Bonjour

Merci tu avais raison, c'est très simple et ca fonctionne avec aucune ligne de code une vraie petite merveille quand tu réussis.

Ca donne des bons résultats, à force de lire et essayer on travaille beaucoup pour rien mais on apprend de nos erreurs et ca nous permet d'aller dormir plus brillant.(moins niaiseux)....

Merci encore de tes informations.

Mario