通过ConnectionString获取表名

Question

我是说不用创建任何ADO组件实例的情况下

Answer 1

var
  icount:integer;
  atablelist:tstringlist;
begin
 try 
  atablelist:=tstringlist.create;
  ADOConnection1.GetTableNames(atablelist,false);
  for icount:=0 to atablelist.count-1 do 
  begin
    listveiw.items.add(atablelist.strings[icount]);
  end;
 finally
  atablelist.free;
 end;
end;
程序的意思是把 GetTableNames的表名加到listview里  

Answer 2

cg1120(代码最优化)
你还是用到了一的TADOConnection实例ADOConnection1。
是我的问题描述得不够清晰吗？