query datasource dynamique

Version imprimable

bonjour
j'ai un probleme les données ne s'affichent pas sur la dbgrid

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
      S_Requete                             :   string;
        AdoQuerrytest                         :   Tadoquery;
        AdoDatatsource                        :   Tdatasource;
Begin
        try
              AdoQuerrytest                   :=  Tadoquery.Create(nil);
              AdoQuerrytest.ConnectionString  :=  DataModuleFininfo.ADOConnection1.ConnectionString;
              AdoDatatsource                  :=  Tdatasource.Create(nil);
 
              S_requete                       :=  'select * from cli';
 
              AdoQuerrytest.sql.clear;
              AdoQuerrytest.sql.text          :=   S_Requete;
 
              AdoDatatsource.dataset          :=    AdoQuerrytest;
              AdoDatatsource.enabled          :=    true;
              FrmFininfo.cxGrid1DBTableView1.DataController.DataSource    := AdoDatatsource;
              AdoQuerrytest.active            :=   true;
 
         finally
              AdoQuerrytest                   .free;
              AdoDatatsource                  .free;
         end;

merci

03/05/2007, 12h01
Rayek

Tu n'as rien à faire de plus vu que Le TQuery est un descendant d'un TDataSet

Citation:
Envoyé par Reçu par mp
Code:

1 2 3 4 5 6 AdoQuerrytest.sql.clear; AdoQuerrytest.sql.text := S_Requete; AdoQuerrytest.open; AdoQuerrytest.active :=true; FrmFininfo.cxGrid1DBTableView1.DataController.DataSource.DataSet := AdoQuerrytest;
je veux affecter le dataset du query sur le dataset de la grille or ca pars en erreur
( FrmFininfo.cxGrid1DBTableView1.DataController.DataSource.DataSet := AdoQuerrytest

que faire ?
merci
Tu ne peux pas relier un DbGrid directement avec un TxxxQuery, il te faut passer par un TDataSource

Et il en sera de même pour la majorité des composants visuels de base de données (DbEdit, DbImage, DbGrid, etc ...)

Donc en clair, il faut relier le Datasource à ton Query puis relier le DbGrid au DataSource

ok merci mais je cree dynamiquement le query donc il faut
creer le datasource dynamiquement je suppose ....
je n'ai jamais fais comment fait t'on?
merci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
      S_Requete                         :   string;
        AdoQuerrytest                   :   Tadoquery;
Begin
        try
              AdoQuerrytest                   :=  Tadoquery.Create(nil);
              AdoQuerrytest.ConnectionString  :=  DataModule1.ADOConnection1.ConnectionString;//.ADOConnection1;
              S_requete                       :=  'selectxxx';
                    AdoQuerrytest.sql.clear;
                    AdoQuerrytest.sql.text    :=   S_Requete;
                    AdoQuerrytest.open;
                    AdoQuerrytest.first;
 
                    FrmFininfo.cxGrid1DBTableView1.DataController.DataSource.DataSet    := AdoQuerrytest.DataSource.dataset;
              // end;
         finally
              AdoQuerrytest                   .free;
         end;

Comme avec le TAdoQuery, sauf que tu dois le faire avec un TDataSource :P
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 var MonDataSource : TDataSource; S_Requete : string; AdoQuerrytest : Tadoquery; Begin AdoQuerrytest := Tadoquery.Create(nil); AdoQuerrytest.ConnectionString := DataModule1.ADOConnection1.ConnectionString;//.ADOConnection1; S_requete := 'selectxxx'; AdoQuerrytest.sql.clear; AdoQuerrytest.sql.text := S_Requete; AdoQuerrytest.open; AdoQuerrytest.first; MonDatasource := TDataSource.Create(nil); MonDataSource.Dataset := AdoQuerryTest; FrmFininfo.cxGrid1DBTableView1.DataSource := MonDataSource; end;
J'ai viré le free du AdoQuerry, car si tu détruis la source de données de ta cxGrid1TableView, tu n'auras aucune donnée d'affichée.

Je te conseil de mettre ces composants en dur, ca sera plus simple à gérer

PS: Merci d'utiliser les balises de code (avec le #) quand tu mets des bouts de programme, ca garde l'indentation et ca utilise une coloration syntaxtique (euh.. pas sur du mot la :aie:)