[dbexpress et dbgrille] Comment remplir une dbgrille dans le code ?

Bonjour!

J'aimerais savoir comment remplir un dbgrille dans le code sans déposer un composant datasource sur la feuille.

J'utilise un composant TSQLConnection que je crée dans le code.
J'utilise alors la méthode execute du composant TSQLConnection, qui retourne un objet Pointer (le dernier argument de la liste).

utilise un TStringgrid 8-)

En fait, si j'utilise un TStringGrid, je vais devoir faire une boucle pour le remplir dans le code.

Avec un dbgrid, il me faut simplement trouver le moyen d'affecter l'ensemble de donnée (DataSet) de la source de données (Datasource) du DBGrid avec l'ensemble de données résultats de ma requête (qui se trouve dans l'objet pointer).

Mon problème c'est d'arriver à modifier le DataSource du DBGrid dans mon code.
Merci pour ton aide

Tdataset<-->Tdatsource<-->Tdbgrid, obligatoir
si tu veux modifier ta requete dinamiquement aucun probléme, dbgrid refléte simplement les données qui existe dans le dataset, et Tdatasource sincronise les données enre Tdataset et les autres composant DB (TDBEDIT,TDBGRid,...)

Tout a fait d'accord avec toi.

Mais mon problème c'est justement que je veux modifier dynamiquement le DataSet du DataSource.

J'utilise une fonction dans un DataModule qui permet d'exécuter les requête et de renvoyer les résultats:

Code:

---

1 2 3 4 5 6 7 8 9

function Tv_mdonnees.doSelect(strQuery: string; res:Pointer):boolean; begin try cnn1.Execute(strQuery, nil, res); result:=TRUE; except result:=FALSE; end; end;

---

J'appelle alors cette fonction dans un formulaire, pour remplir le DataSet avec le résultat d'une requpête:

Code:

---

v_mdonnees.doSelect('SELECT * FROM country;', @self.dbgrid1.DataSource.DataSet)

---

Le résultat est que rien ne s'affiche dans ma grille.
La table contient bien des données.

Citation:

---

Envoyé par mkiba

v_mdonnees.doSelect('SELECT * FROM country;', @self.dbgrid1.DataSource.DataSet)
.

---

:traine::aie:
je répéte une dbgrid refléte simplement des données existant dans une Tdataset en passant par une Tdatasource
combien de dataset tu as?
normalment il y as un seul datasource a qui une dbgrid est lier,
tu peut simlement changer la requéte pour changer tt
par example:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Function TDataModule2.ExecSQL(s:string):integer; begin Query1.Close; Query1.SelectSQL.Text:=s; try Query1.Open; Result:=1; except Result:=-1; end; end;

---

dis ce que tu veux exactement, en peut te donner des solutions plus simple, bon nuit

OK.

J'Utilise ceci:
un DBGRid => Un DatasSource => Un DataSet

je créé le datasource dans le code:
(dbgrid.datasource:= TDataSource.Create(self);


je rempli le DataSet avec la fonction que je t'ai envoyée précédemment:
DataModule.doSelect('SELECT * FROM Employee;', @(dbgrid.DataSource.DataSet));


la requête revoie les données puisque dbgrid.DataSource.DataSet.RecordCount renvoie le nombre d'enregistrements contenus dans ma table.


Le problème est que le dbgrid n'affiche pas les données (malgré un refresh du dbgrid et du dataset).


NB:
je créé le DataSource et je rempli le DataSet dan l'événement FormActivate du formulaire.

Citation:

---

Envoyé par mkiba

OK.

J'Utilise ceci:
un DBGRid => Un DatasSource => Un DataSet

je créé le datasource dans le code:
(dbgrid.datasource:= TDataSource.Create(self);

je rempli le DataSet avec la fonction que je t'ai envoyée précédemment:
DataModule.doSelect('SELECT * FROM Employee;', @(dbgrid.DataSource.DataSet));

---

8O
et le Tdataset, tu la crée où? :aie:

Citation:

---

Envoyé par edam

8O
et le Tdataset, tu la crée où? :aie:

---

Je créé le TDataSet dans le code.

Mais j'ai résolu mon problème, il semble que le DBGrid ne peut pas afficher des données provenant d'un DataSet en avant seulement; Comme ceux de DBExpress.

J'ai utilisé des Ensembles de Données ADO et ça marche.


Merci à tous pour vos contributions.