连接odbc数据源后，怎样把里面的所有的table列出来？

Question

table1.databasename设好后，
在table1.tablename里就能看到呀。

Answer 1

//conn为一个adoConnection对象
procedure TfrmMain.btnConnClick(Sender: TObject);
var aTableList:TstringList;
    iCount:integer;
begin
 cmbTableName.Items.Clear;  //
try
  aTablelist:=tstringlist.create();
  if (conn.Connected=false) then
    conn.Connected:=true;
  conn.GetTableNames(aTablelist,false);
  for icount:=0 to aTablelist.count-1 do
  begin
    cmbTableName.AddItem(atablelist.strings[icount],nil);
  end;
 finally
  aTablelist.free;
 end;end;
//得到某个表里的所有子段的名
procedure TfrmMain.cmbTableNameChange(Sender: TObject);
var i:integer;
begin
if cmbTablename.Text='' then exit;
rs.Close;
rs.SQL.Clear;
try
rs.SQL.Add('select top 1 * from '+cmbTableName.Text);
rs.Open;
if not rs.Eof then
  begin
   cmbKeyName.Items.Clear;
   for i:=0 to rs.FieldCount-1 do
     begin
       cmbKeyname.AddItem(rs.Fields[i].FullName,nil); 
     end;
  end;
finally
rs.Close;
end;
end;

Answer 2

MyStringList := TStringList.Create;
try
  Session.GetTableNames('DBDEMOS', '*.db',False, False, MyStringList);
  { Add the table names to a list box }
  ListBox1.Items = MyStringList;
finally
  MyStringList.Free;
end;

Answer 3

放入一个Session控件
var
   s:stringlist;
begin
  s:=tstringlist.create;
Session.gettablenaem(s)
end