Discussion :

[philnext]

Bonjour
J'utilise classiquement des TFDQuery connectés à une base de données pour les utiliser avec une TDBGrid.
Tout est OK mais j'aurais parfois besoin de déconnecter ce TFDQuery tout en conservant les données dans le TDBGrid, juste en visualisation, avec bien sûr la perte de certaines fonctions liées à la mise à jour des données mais ça ne me pose pas de pb.
Il me semble que c'était possible avec l'ancienne library 'ADODB' voir : http://etutorials.org/Programming/ma...ed+Recordsets/
Hélas je n'ai pas trouvé comment faire avec les composants Firedac (hormis faire une copie dans une TFDMemTable mais c'est un peu lourd).
Quelqu'un a déjà mis en place ce principe ?

[SergioMaster]

Bonjour,

S'il s'agit de FMX c'est toute la différence (si l'on excepte les colonnes mémo) entre StringGrid et Grid.
Voilà une petite expérience

et son code

Code :

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

1
2
3
4
5
procedure TForm4.Button1Click(Sender: TObject);
begin
FDQuery1.DisableControls;
FDQuery1.Close;
end;

La stringgrid contient toujours les données, la grid ne contiendra, après utilisation du bouton que les données des quelques lignes affichées (et encore n'est-ce que temporaire)

J'avoue ne pas avoir encore fait le test en VCL mais cela va venir, curiosité quand tu me tiens !

Hélas je n'ai pas trouvé comment faire avec les composants Firedac (hormis faire une copie dans une TFDMemTable mais c'est un peu lourd).

une seule instruction c'est lourd ?

[SergioMaster]

Pour VCL, oui, j'ai testé. Je "triche éhontément" en utilisant Livebindings ce qui me permet de ne pas avoir à coder le remplissage de la TStringGrid

et j'en arrive à la même conclusion.

Bien sûr, il y a quelques "pertes" comme la colonne 0 de la DBGrid (colonne qui n'existe d'ailleurs plus en FMX)

Cela étant je ne sais si ces solutions sont acceptables ?

[SergioMaster]

une seule instruction c'est lourd ?

désolé, je n'ai pas tenu compte du changement du datasource donc deux instructions

Code :

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

1
2
3
4
5
6
7
procedure TForm4.Button1Click(Sender: TObject);
begin
FDMemtable1.CloneCursor(fdquery1,true);
FDQuery1.DisableControls;
DataSource1.DataSet:=fdmemtable1;
FDQuery1.Close;
end;

[philnext]

@SergioMaster
Merci pour ces réponses exhaustives, bon je vois que ma demande est un peu incomplète.
Effectivement j'utilise une DBGrid donc du VCL, sans rentrer dans les détails le fonctionnement TDataset(ici un TFDQuery) <> TDBGrid m'intéresse car j'utilise pas mal de fonction interne aux TFDDataset (tri, cumuls..) mais qui n'ont pas besoin de la connexion.
Certes je pourrais faire ce qui est fait avec la Grid FMX mais c'est un peu lourd, je peux aussi copier mon TFDQuery dans un TFDMemTable (ce que je fais dans certains cas, amis pour des tables importantes c'est lourd en perf et en conso. mémoire) mais je pensais qu'il existait un moyen de simplement déconnecter la TConnection.

[philnext]

Bon après différentes recherches ça existe en natif c'est la fonction Offline

Avec au préalable les paramètres :

Code :

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

1
2
  FDQueryLocal.FetchOptions.Mode := fmAll;
  FDQueryLocal.FetchOptions.AutoClose := True;