Discussion :

[yamino]

Bonjour,

Je fais suite au poste que j'avais créé ici

ShaiLeTroll m'avait montrer comment créer dynamiquement un TADODataset et ça marche nickel je le conseil franchement... C'est un fameux gain de temps....

J'ai cependant une petite question :
Si j'essaye ceci :

Code :

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

1
2
3
4
  GetQuery('SELECT * FROM users ORDER BY name', dsUsers, Self);
  dsUsers.Free;
  GetQuery('SELECT * FROM users ORDER BY name', dsUsers, Self);
  dsUsers.Free;

il plante ici :

Code :

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

1
2
3
4
5
procedure TObject.FreeInstance;
begin
  CleanupInstance;
  _FreeMem(Self);
end;

Avec comme erreur

Code :

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

Invalid pointer operation.

[ShaiLeTroll]

J'avais proposé une fonction, tu semble l'avoir transformé en procédure, cela peut-être une piste ...

[yamino]

J'avais essayé ceci

Code :

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

DBGrid1.DataSource.DataSet := GetQuery('SELECT * FROM products ORDER BY name', dsProducts, Self);

mais j'ai le code d'erreur

Code :

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

Access violation at address 004BFB52 in module 'Test.exe'. Read of address 00000030.

[yamino]

Tant que j'y suis, comment faire un requery() (non disponible dans le composant TADODataSet) sans passer par

Code :

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

1
2
    dsFindUsers.DataSet.Close;
    dsFindUsers.DataSet.Open;

Méthode pas très propre à mon gout...

[ShaiLeTroll]

Pas Propre, Euh, je l'ai tellement souvent en Paradox lors de son utilisation Multi-thread pour garantir les écritures et permettrent l'accès distant ...

Essaye Refresh, mais Open\Close, ne me choque pas !

dsProducts c'est quoi un DataSet ou un DataSource ?
DBGrid1.DataSource est-il créé ?
Tu devrais relire le précédent sujet, tu verras, que j'avais prévu l'histoire du DataSource autrement !

[yamino]

J'ai créé une procédure qui fait close / open sur mon composant et je l'ai appelé requery... on va dire que c'est une manière de me rassurer

dans ta manière de faire, comment puis-je lier un dbEdit qui change en fonction du record que je sélectionne dans mon dbGrid ?

[Aka Guymelef]

Tout simplement en leur liant le même DataSource. Donc lorsque le DataSet bouge suivant l'enregistrement sélectionné dans la grille, la valeur du DBEdit sera modifié elle aussi en conséquence pour refléter l'enregistrement courant.

[yamino]

Effectivement j'avais sauté un post dans la discussion précédente avec ShaiLeTroll... Grand merci pour votre efficacité

Il devrait exister un post avec toutes des fonctions comme celle-ci qui sont intéressantes et qui nous permettent de nous simplifier grandement la vie...

[yamino]

Juste un complément pour que les choses soient clairs dans mon esprit :

Je dois faire comme ceci pour lier le DataSource à mes composants ?

Code :

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

1
2
3
4
5
6
7
8
procedure TfrmMain.FormCreate(Sender: TObject);
begin
  DBGrid1.DataSource := TDataSource.Create(DBGrid1);
  DBGrid1.DataSource.DataSet := GetQuery('SELECT * FROM products ORDER BY name', DBGrid1.DataSource);
 
  dbedit1.DataField := 'name';
  dbedit1.DataSource := DBGrid1.DataSource;
end;

Pour manipuler mes données :

Code :

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

1
2
3
4
5
6
procedure TfrmMain.Button1Click(Sender: TObject);
begin
  DBGrid1.DataSource.DataSet.Edit;
  DBGrid1.DataSource.DataSet.FieldByName('name').AsString := 'Canard en marbre';
  DBGrid1.DataSource.DataSet.Post;
End;

Pour libérer la mémoire :

Code :

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

1
2
3
4
5
procedure TfrmMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  DBGrid1.DataSource.Free;
  Application.Terminate;
end;

[Aka Guymelef]

Je dirais que DBGrid1.DataSource.Free; est en trop vu qu'il est créé avec comme Owner le DBGrid1 donc quand DBGrid1 sera supprimé il en ira de même pour le DataSource.

[yamino]

ok super...

J'y vois + clair maintenant...

Merci pour vos bons conseils