请问怎样编程获得access数据库的所有表名？

Question

用DataBase控件连接数据库，设置DataBase的Session属性为Session1.GetTableNames(Database1.AliasName,'*.*',False, False, ListBox1.Items);

Answer 1

procedure TForm1.Button1Click(Sender: TObject);var
  SL: TStrings;
  index: Integer;
begin
  SL := TStringList.Create;
  try
    ADOConnection1.GetTableNames(SL, False);
    for index := 0 to (SL.Count - 1) do begin
      Table1.Insert;
      Table1.FieldByName('Name').AsString := SL[index];
      if ADOTable1.Active then ADOTable1.Close;
      ADOTable1.TableName := SL[index];
      ADOTable1.Open;
      Table1.FieldByName('Records').AsInteger := ADOTable1.RecordCount;      Table1.Post;
    end;
  finally
    SL.Free;
    ADOTable1.Close;
  end;
end;

Answer 2

调用ADOConnection组件的GetTableNames方法即可，不过它会连系统表也一块儿显示出来。

Answer 3

调用ADOConnection组件的GetTableNames方法即可，可以连系统表也一块儿显示出来。