请问各位大哥：怎样获得Access中的所有表(包括链接表)

Question

try something likeSELECT MSysObjects.Name FROM MsysObjects WHERE (Left$([Name],1)<>"~") AND (Left$([Name],4) <> "Msys") AND (MSysObjects.Type)=1 ORDER BY MSysObjects.Name

Answer 1

用session组件连接access数据库，然后可以用：
Session.GetTableNames(AliasName,'',false,false,listbox1.items);
获取所有的表名

Answer 2

ADO连接：
//var
//  iCount:integer;
//  aTableList:tstringlist;
  
Listbox1.Items.Clear;
 try
  aTableList:=tstringlist.Create ;
  adoconnection1.GetTableNames (aTableList,false);
  for iCount:=0 to aTableList.Count -1 do
    Listbox1.items.add(aTableList.strings[icount]);
 finally
  aTableList.Free;
 end;