Question

delphi dbgrid显示数据

教教我怎样使用dbgrid显示数据
我用的ADO,ADOQUERY,DATASOURCE,dbgrid这几个控件
procedure TForm1.Button1Click(Sender: TObject);
var
sqlstr:string;
begin
with adoconnection1 do
begin
try
connected:=true;
showmessage('连接数据库成功');
except;
showmessage('连接数据库失败');
end;
end;
with adoquery1 do
begin
close;
sql.Clear;
sqlstr:='select * from AreaInfo';
sql.add(sqlstr);
execsql;

end;

end;
怎么把查询的结果显示到dbgrid中，谢谢

Answer 1

首先，dbgrid1的datasource属性设置为datasource1，datasource1的dataset属性设置为adoquery1，adoquery1的connection属性设置为adoconnection1
然后
procedure TForm1.Button1Click(Sender: TObject);
var
sqlstr:string;
begin
with adoconnection1 do
begin
try
connected:=true;
showmessage('连接数据库成功');
except;
showmessage('连接数据库失败');
end;
end;
with adoquery1 do
begin
close;
sql.Clear;
sqlstr:='select * from AreaInfo';
sql.add(sqlstr);
open;

end;

end;
注意是open

Answer 2

ADOQUERY
是查询控件DATASOURCE是数据源控件DBGRID是数据表格这三个绑定后执行ADOQUERY就可以显示了。ADOQUERY1.CLOSE;ADOQUERY1.SQL.CLEAN;ADOQUERY1.SQL.ADD('SELECT
语句');ADOQUERY1.OPEN;

Answer 3

很简单的办法，如果sql语句没有返回结果（update、insert这样的），dbgrid的数据源就改为空，此时应该显示的是上条语句的执行结果，比如“影响了多少行”，

Answer 4

在属性面版中，将DATASOURCE的 DataSet 属性设置为 ADOQUERY；
将 dbgrid 的 DataSource 属性设置为 DATASOURCE
即可。