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


Code : Sélectionner tout - Visualiser dans une fenêtre à part
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