网 友问：在我的数据库中,有shoes,cache,还有20086in 20087in 20088out这样的数据表 我想请问一下要怎样才能删除带有2开头的表呢？ 最好能用sql的语句 不然能够得到表的名字然后再删也可以

答：因为Access将用户表的信息存放在了MSysObjects系统表内，因此，从MSysObjects表查询2开头的用户表名称的Select语句可以写为：

select   name   from   MSysObjects   where   type=1   and   flags=0 and name like '2%'具体的VB代码如下： 

    
     Private
     
     Sub
      Command1_Click()   
   

       
    Dim
     cn
    As
     ADODB.Connection   
    

       
    Dim
     rs
    As
     ADODB.Recordset   
   

       
    Dim
     str
    As
    
    String
      
   

       
    Set
     cn =
    New
     ADODB.Connection   
        
    Set
     rs =
    New
     ADODB.Recordset  
   

        str =
    "select   name   from   MSysObjects   where   type=1   and   flags=0 and name like '2%'"
     
   

        cn.Open
    "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=c:csdndb1.mdb;User ID=Admin;Password=;"
      
   

        rs.Open str, cn, adOpenKeyset, adLockReadOnly  
   

       
    While
    
    Not
     rs.EOF   
   

            cn.Execute
    "drop table ["
     & rs(0) &
    "]"
   

            rs.MoveNext   
   

        Wend   
   

        MsgBox (
    "删除以2开头的数据表成功！"
   

        rs.Close   
   

        cn.Close   
   

       
    Set
     rs =
    Nothing
      
   

       
    Set
     cn =
    Nothing
      
    
    End
    
    Sub