Dataset à Tableau (array)

Salut tout le monde


J'ai une fonction (mafonction) qui prend en paramètre un tableau d'objets: ces objets sont définis par un constructeur genre: NouvelObjet(ajouter(item1, item2))
Ce que je voudrais faire c'est extraire les items (item1, item2) d'une base de données (dataset avec deux colonnes: colonneitem1-colonneitem2), créer les objets puis passer le tableau d'objets à ma fonction.Comment dois-je faire?


Merci d'avance

Cela ressemble à un modèle d'objet persistant, ... maintenant, il faut gérer les ID des objets, ... on manque un peu de code (ceux de l'objet ancêtre commun aux objets DB) ...

Code:

---

NouvelObjet(ajouter(item1, item2))

---

, cela ne ressemple pas à un constructeur ...

bonjour

il me semble avoir vu le même post sur le forumBDD
http://www.developpez.net/forums/sho...d.php?t=328026

celà risque de disperser les réponses!
à plus

Citation:

---

Envoyé par ShaiLeTroll

Cela ressemble à un modèle d'objet persistant, ... maintenant, il faut gérer les ID des objets, ... on manque un peu de code (ceux de l'objet ancêtre commun aux objets DB) ...

Code:

---

NouvelObjet(ajouter(item1, item2))

---

, cela ne ressemple pas à un constructeur ...

---

--> tout à fait d'accord :p j'ai mal choisi l'exemple.
Oubliez la déclaration de l'objet: ma question est quelles sont les étapes pour passer d'un dataset à un tableau d'objets ?

Merci pour la réponse rapide :) (si je savais qu'on me répondrait aussi vite, j'aurais posé ma question plus tôt :p

Citation:

---

Envoyé par banban54

bonjour

il me semble avoir vu le même post sur le forumBDD
http://www.developpez.net/forums/sho...d.php?t=328026

celà risque de disperser les réponses!
à plus

---

--> Je savais pas où mettre mon post alors je l'ai mis dans les deux topics qui me semblaient correspondre.
Désolé: je supprime l'autre post tout de suite :oops:

une piste?

Y a les instantobjects qui vont beaucoup t'aider a ce sujet.

http://hcesbronlavau.developpez.com/ModelMakerBO/

effectivement, le modèle instantobjects, semble intéressant, je l'ai survolé, je n'ai pas testé l'utlisation, personne n'avait répondu à mes questions ICI

sinon, pour ta question, il te faut

Code:

---

1 2 3 4 5

TMNBaseObject = class(TPersistent) // MN comme MichelN, trouve ton acronyme pour ne pas mélanger tes objets avec ceux de Delphi ou de lib externe ... // fonctionnalité de base, ... public property TableName: string read FTableName; end;

---

Ensuite, il te faut une Classe par Table, faisons simple pour le Moment, genre

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

TTableOneObject = class(TMNBaseObject) // fonctionnalité métier public constructor ... published // as-tu envie de te lancer dans le RTTI ... si oui TPersistent sinon TObject property ID: Int64 ...; property Champ1: Variant ... property Champ2: Variant ... end;   constructor TTableOneObject.Create... begin inherited;   FTableName := 'TableOne'; end;

---

Tu veux donc charger une collection (tableau d'objet) ..., maintenant c'est pas difficile, il faut décomposer les Taches ...

Code:

---

TMNBaseObject.Load(ID);

---

cela lance une requête et rempli les Objets, à toi de voir ton modèle de persistance, mais c'est ici peut-être ton problème

Ensuite tu veux faire une Collection (tu peux faire un TMNBaseObjectCollection)

TMNBaseObjectCollection hérité d'une TObjectList Par exemple, ou tu ré invente la roue, et tu gère un Array of TObject

TMNBaseObjectCollection.Load([1, 2]); cela va charger l'item ID 1 et l'Item ID 2

Code:

---

1 2 3 4 5 6 7

procedure TMNBaseObjectCollection.Load(const Identifiants: array of Int64); begin for I := Low(Identifiants) to High(Identifiants) do begin Self.Add(TMNBaseObject.Load(Identifiants[I]); end; end;

---

Je voudrais pas te décourager, mais j'ai pondu un modèle de persistant, bon, je ne suis pas fan du principe, mais cela me faisait plaisir de le faire, avec le recul c'est un peu lourd, avec les collègues sont frustés de ne plus faire de DataSet et SQL jamais libéré ... et j'y ai passé un mois, je pense au total, du Provider DB générique (seul MySQl implémenté mais structure pour les autres prêtes), le Moteur Persistant puis le moteur d'affichage, car si plus de DataSet (grave erreur) plus de composant DB ... allez bon UzinaGaz ...

Merci beaucoup pour vos réponses: elles sont très intéressantes (dans un monde parfait où on aurait suffisamment de temps pour faire notre boulot dans les règles de l'art, en optimisant tout ce qui peut l'être, mais hélas, nos patrons sont tous des ******tuuuuttt**** (du moins je suis sûr que le mien en est un) :D
J'ai opté pour une solution plus à ma portée:

Code:

---

1 2 3 4 5 6 7 8 9 10

j := MonDataset.RecordCount; MonDataset.First; SetLength(MonTableau, j); for i = 0 to j do begin MonTableau[i] := FonctionQuiAjouteAuTableauApresTraitement(MonDataset.FieldbyName('Champ1').Value, MonDataset.FieldbyName('Champ2').Value, 1); MonDataset.Next; end //et là j'appelle ma fonction qui prend en paramètre un MonTableau MaFonction(montableau)

---

Encore Merci à tous pour votre aide

bonjour

Code:

---

1 2 3 4 5 6

j := MonDataset.RecordCount; MonDataset.First; SetLength(MonTableau, j); for i = 0 to j -1 do ....

---

sinon il va y avoir violation..

à plus

Citation:

---

Envoyé par banban54

bonjour

Code:

---

1 2 3 4 5 6

j := MonDataset.RecordCount; MonDataset.First; SetLength(MonTableau, j); for i = 0 to j -1 do ....

---

sinon il va y avoir violation..

à plus

---

Et il y a eu violation :p
Merci :)