怎样列出Access所有的表名?

Question

trySELECT MSysObjects.Name, MSysObjects.Type
FROM MSysObjects
WHERE (((MSysObjects.Name) Not Like "msys*") AND ((MSysObjects.Type)=1));

Answer 1

到VBA专栏问Ganzl(甘逐浪)吧，
他是ACCESS的专家：）

Answer 2

ADOConnection.Close ;
ADOConnection.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Test.mdb;Persist Security Info=False';
tableList := TStringList.Create ;
ADOConnection.Open();
ADOConnection.GetTableNames( tableList );

Answer 3

用BDE连接，放一个Seesion控件。
MyStringList := TStringList.Create;
try
  Session.GetTableNames('c:\test.mdb', '*.mdb',False, False, MyStringList);
  { Add the table names to a list box }
  ListBox1.Items = MyStringList;
finally
  MyStringList.Free;
end;

Answer 4

var
mytables:tstringlist;
begin
mytables:=tstringlist.Create ;
adoconnect.GetTableNames(mytables);
if not (mytables.IndexOf(findtablename)=-1) then
 showmessage('find');

Answer 5

唉，来晚了。如果用ado的话可以用GetTableNames(mytables)(小新说的那种)把表名放到一个list中去。

Answer 6

to galeboy(狂风小子): 很好不管是啥方式SQL SERVER,Access,dBase,MyBase......

Answer 7

to caoyq(草民呆瓜): 也可以只是要用DBE

Answer 8

同意galeboy(狂风小子)，只是要用ADO了

Answer 9

但karma(无为)的方法可以试用于大部分开发工具