Question

delphi怎样才能让数据库数据都显示出来，目前的情况查询后只显示一条结果

用的是ADOQuery
ado.Close;
ado.SQL.Clear;
ado.SQL.Add('select GDH from tpyrk_temp ');
ado.Open;
memo1.Lines.Text:=ado.fieldbyname('GDH').asstring;

Answer 1

Open前的代买是对的。
后面需要循环把数据写进去。
ado.first;
while not ado.eof do
begin
memo1.Lines.add :=ado.fieldbyname('GDH').asstring;

Next;
end;

上面代码Next 改成ado.next 刚才漏写了

追问

ado.Close;
ado.SQL.Clear;
ado.SQL.Add('select GDH from tpyrk_temp ');
ado.Open;
ado.first;
while not ado.eof do
begin
R.Lines.add(ado.fieldbyname('GDH').asstring);
ADO.Next;
这是对的了