怎么让查询结果返回到grid上(50分)

死

死神十三

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-30

• #1

function selectquery(sql : string;tp : word) :TADOQuery ;
var aQuery : tadoquery;
begin
aQuery := TADOQuery.Create(nil);
aQuery.Connection := dmaconnection.adoconnection1;
aQuery.SQL.Add(sql);
aquery.Close;
if tp = 1 then aquery.open
else aquery.ExecSQL;
result := aquery;
end;

procedure Tselectform.BitBtn1Click(Sender: TObject);
var sql : string;
aquery1 : tadoquery;
begin
sql := 'select * from 系统参数';
aquery1 := selectquery(sql,1);
dbgrid1.DataSource := aquery1.DataSource;
dbgrid1.Refresh;
end;

为什么运行以后dbgrid上没有显示

 

X

xiammy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-30

• #2

procedure Tselectform.BitBtn1Click(Sender: TObject);
var sql : string;
aquery1 : tadoquery;
begin
sql := 'select * from 系统参数';
aquery1 := selectquery(sql,1);
dbgrid1.DataSource := aquery1; // 这里修改！！！！！， aqurey1.DataSoure是用来做主席表的。
dbgrid1.Refresh;
end;

 

C

cqwty

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-30

• #3

加个datasource来连接就可以了，设置好两个的属性，ok

 

绯

绯红之王

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-01

• #4

dbgrid1.DataSource := aquery1.DataSource;
datasource1.DataSet := aquery1;

然后dbgrid的filename要设定！！！

 

H

hw_pds

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-01

• #5

在dbgrid1的窗口加个DataSource,然后修改代码如下：
procedure Tselectform.BitBtn1Click(Sender: TObject);
var sql : string;
aquery1 : tadoquery;
begin
sql := 'SELECT * FROM [function]';
aquery1 := selectquery(sql,1);
DataSource1.DataSet:= aquery1;
dbgrid1.DataSource := DataSource1;
dbgrid1.Refresh;
end;

 

死

死神十三

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-01

• #6

我大概明白了
我在查询结果传给dbgrid以后，会释放aquery1。free
这个时候dbgrid里面就没有数据了
那么怎么让他显示出来？？

 

死

死神十三

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-01

• #7

有没有人帮帮忙啊

 

F

foxphone2003

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-01

• #8

dbgrid1.DataSource := aquery1.DataSource;
问题出在这句话上，你对数据集连接和界面显示过程做的不对
1在Data Access面板上拖一个DataSource控件到窗体上，名ds1
2把dbgrid的DataSource属性设为ds1
3把你上面那句错话改为：ds1.DataSet := aquery1;
然后试试

 

死

死神十三

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-01

• #9

ds1.DataSet := aquery1;
但是我一旦aquery1。free
dbgrid就没有数据阿

 

W

witkey

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-01

• #10

我觉得是这两个属性使用的问题：
aquery.open；
aquery.ExecSQL；
前者可以显示数据集，后者却不能！

 

死

死神十三

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-07

• #11

多人接受答案了。