Discussion :

[Alferox]

Bonjour à tous,

Je suis très novice avec Delphi. Je me suis créé une base de données avec SQlite3 sur le modèle suivant :

Form1 avec un TListView.
Je remplis le TListView avec Form1.FormShow et une requête SQL.
Quand je double clique sur une ligne, j'ai la Form2 qui s'ouvre avec ListView1DblClick, Form2.ShowModal

Dans ma Form2 j'ai un petit formulaire avec des TEdit et un bouton Valider.

Quand je clique sur Valider, les infos du formulaire sont ajoutées à la base de données, et la Form2 se ferme avec Form2.Close

Mon problème : Le TlistView situé sur la Form1 ne se met pas à jour. La ligne ajoutée à la base SQL dans la Form2 ne s'affiche pas. Il faut que je ferme le programme et que je le relance pour voir la ligne.

J'ai essayé d'ajouter un bouton refresh sur la Form1 : Button1Click... Form1.Refresh ou Form1.Update ou Form1.Repaint mais ça ne marche pas...

Quelqu'un peut m'aider? Est-ce que FormShow est la bonne solution? J'aimerai que le TListView se mette à jour automatiquement à la fermeture de la Form2

Merci

[SergioMaster]

Bonjour,

plusieurs pistes :
Utiliser une DBGrid au lieu d'une ListView.
Utiliser les LiveBindings pour remplir la liste si vous avez une version XE et plus (un tutoriel sera bientôt mis en ligne)
Utiliser l'évènement AfterOpen de la TQuery pour mettre votre code de remplissage dans cet évènement. Il suffira alors de faire un simple Close/Open pour pouvoir avoir ce fameux "Rafraichir".

Tout dépend de :
1. De la version de Delphi
2. Du set de composants DB utilisé

[Alferox]

Merci pour les infos, j'utilise XE8.
Le composant est TSQLite3Database avec une DLL.

Je vais essayer avec DBGrid

[SergioMaster]

Re,

En FMX ou VCL pour ce qui est de l'interface ?
En tout cas avec XE8 VCL ou FMX l'approche Livebindings est assez facile (OUI, à mes détracteurs, je vend ma salade )
Comme je l'écrivais un tutoriel sera bientôt mis sur le site à ce sujet (je suis toutefois prêt à fournir un lien par MP sur l'article non encore fini : relecture technique et surtout orthographique et grammaticale, une avant première en quelque sorte)

[GoustiFruit]

C'est tout bête.

1- Tu déplaces d'abord le code correspondant à ta requête SQL de ton FormShow vers une nouvelle procédure, nommée par ex. "PopulateList".
2- Tu affiches la Form2 avec un code du genre:

Code :

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

1
2
3
4
if Form2.ShowModal = mrOK then
  // ...
  PopulateList;
end;

Et voilà.

[Alferox]

Super merci beaucoup, ca fonctionne