Question

Delphi7 如何把SQL语句得到的查询结果显示在Text上？

比如说窗口上已经建立好了数据库连接，还有一个统计按钮，一个StatusBar1组件。 ADOQuery1 的SQL写成是SELECT COUNT(sno) FROM student;
要实现的功能是
当统计按钮一点下去，StatusBar1就显示统计的结果。
请问如何实现？
谢谢！

Answer 1

如果是用adoquery组件的话。
adoquery1.sql.clear;
adoquery1.close;
adoquery1.SQL.add( 'SELECT COUNT(sno) FROM student');
adoquery1.open;
StatusBar1.panels[0].text := ADOQuery1.Fields[0].AsString;

Answer 2

with ADOQuery1 do
begin
SQL.Clear;
SQL.Text := 'SELECT COUNT(sno) FROM student';
Open;
StatusBar1.panels[0].text := ADOQuery1.Fields[0].AsString;
end;