如果将SQL2000数据库中某个表的数据,显示在memo上,初学,不好意思

Question

如题

Answer 1

var
  i : integer;
beginwith ado do
beginclose;
sql.text := 'select * from tb';
open;
first;
while not eof do
begin
  memo1.lines.add(fields.field[0].asstring);
  next;
end;end;end;

Answer 2

procedure form1.button1click(Sender:Tobject);
begin
var 
  i : integer; 
begin with qry do 
begin 
  close;  
  sql.text := 'select * from tb'; 
  open; 
  first; 
  while not eof do 
  begin 
    for i := 0 to fieldscount-1 do 
    memo1.lines.add(fields.field[i].asstring)+' '; 
    next; 
  end;
end; end; end;