Complément à la création dynamique TADODataSet

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:

---

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:

---

1 2 3 4 5

procedure TObject.FreeInstance; begin CleanupInstance; _FreeMem(Self); end;

---

Avec comme erreur

Code:

---

Invalid pointer operation.

---

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

J'avais essayé ceci

Code:

---

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

---

mais j'ai le code d'erreur

Code:

---

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

---

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

Code:

---

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

---

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

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 !

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

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 ?

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.

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...

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:

---

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:

---

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:

---

1 2 3 4 5

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

---

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.

ok super...

J'y vois + clair maintenant...

Merci pour vos bons conseils