网友问：在我的数据库中,有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