Readygo技术搜索引擎 网络搜索 efish 2008-1-14 16:11:54

在ACCESS中，如何得到数据表的列表？

楼主lasthero（3721）2002-07-20 10:34:59 在 VB / 基础类 提问

例如，需要知道表名以“ABC”打头的表有哪些？  
          在SQL-SERVER中，可以通过SYSOBJECTS来查到，在ACCESS中呢？  
  问题点数：0、回复次数：4Top

1 楼jmlmj（jmlmj）回复于 2002-07-20 11:13:06 得分 0

Private   Sub   GetTable()  
      Dim   TableSet   As   ADODB.Recordset  
      Set   TableSet   =   New   ADODB.Recordset  
      Set   TableSet   =   AdoObjInfo.OpenSchema(adSchemaTables,   Array(Empty,   Empty,   Empty,   Empty))              
       
      Table_name   =   ""  
      TableSet.MoveFirst  
      Do   Until   TableSet.eof  
              Select   Case   TableSet!Table_name  
                    Case   "MSysACEs",   "MSysModules",   "MSysModules2",   "MSysObjects",   MSysQueries",   "MSysRelationships",   "MSysAccessObjects"  
                    Case   Else  
                            List1.AddItem   TableSet!Table_name  
              End   Select  
              TableSet.MoveNext  
      Loop  
   
       
  End   SubTop

2 楼hycapril（四月_健康最重要,赚钱也重要~~~）回复于 2002-07-21 09:55:11 得分 0

高手啊Top

3 楼limengchen（LMC）回复于 2002-07-21 11:41:20 得分 0

dim   cnn   as   new   adodb.connection  
  dim   tbl   as   adodb.table  
  dim   strcnn   as   string  
  strcnn="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=..."  
  cnn.open   strcnn  
  for   each   tbl   in   cnn.tables  
  0A       msgbox   tbl  
  next   tbl  
  cnn.close  
  set   cnn=nothing  
  Top