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
Partager