VB程序实现删除Access的多个表

网友问：在我的数据库中,有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:\csdn\db1.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
				  
		
9 
7 
3 
1
2
 4 
 8 
: