dbgrdh1: TDBGridEh;
con1: TADOConnection;
qry1: TADOQuery;
idmsg1: TIdMessage;
ds2: TDataSource;
ds1: TClientDataSet;
con1: TADOConnection;
qry1: TADOQuery;
idmsg1: TIdMessage;
ds2: TDataSource;
ds1: TClientDataSet;
dtstprvdr1: TDataSetProvider;
配置连接
qry.con指向con1
dtstprvdr1 的dataset指向qry1
dtstprvdr1 .option.poAllowCommandText=True
TClientDataSet.providerName=dtstprvdr1
ds2的dataset指向ds1
DBGrid1 datesource 指向 datasource1
在ds1.里面写如下代码
ds1.Close;
ds1.CommandText:='select * from Tree';
ds1.Open;
得到查询的结果如下所示