[X10-Fmx]Mise à jour d'un Listbox avec Sqlite

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:

---

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

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:

---

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 :roll:

Citation:

---

Envoyé par docwiki

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"

Bonjour

Merci SergioMaster .

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

Citation:

---

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

Bonjour,

Citation:

---

Envoyé par mario9

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 :arf: 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

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