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