在delphi里怎么获取一个数据库的所有的表

Question

在delphi里怎么获取一个数据库的所有的表

Answer 1

adoconnection1.gettablenames(items);     //调出所有表;

Answer 2

procedure TForm1.BitBtn5Click(Sender: TObject);
begin
with listbox1 do
   begin
    items.clear;
    adoconnection1.gettablenames(items);     //调出所有表;
      end;end;

Answer 3

adoconnection1.gettablenames(items);     
记得还有个BOOLEAN的参数是是否读出系统表吧？

Answer 4

var tbllist:TStringList;
begin
  tblList:=TStringList.create;
  adoconnect1.gettablenames(tbllist);
end;