Discussion :

[mkiba]

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

[edam]

utilise un TStringgrid

[mkiba]

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

[edam]

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

[mkiba]

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 :

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

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 :

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

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.

[edam]

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

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 :

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

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

[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));


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.

[edam]

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));

et le Tdataset, tu la crée où?

[mkiba]

et le Tdataset, tu la crée où?

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.