<<< 返回 access911.net 编程静态资料库索引页

怎样删除名字前3位是wwt的表?

 

作者:cg1  摘自:access911.net  录入:cg1  时间:2003-4-1  浏览人次:1412


专题地址:http://access911.net/fixhtm/73FAB11E13DC.htm 如果需要更详细的评论或说明,请点击该地址。

 

简述:怎样删除名字前3位是wwt的表?《VBA》

 


问题:

怎样删除名字前3位是wwt的表?

 


方法一:

引用adox
用adox.Catalog 做
for each table in catalog.tables枚举,只要 left(table.name,3)=wwt,就用connection.execute "drop table " & table.name

就可以了
'请引用 ADOX
Dim cat As New ADOX.catalog
Dim tbl As ADOX.Table
cat.ActiveConnection = CurrentProject.Connection
For Each tbl In cat.tables
    If Left(tbl.Name, 3) = "www" Then CurrentProject.Connection.Execute "drop table " & tbl.Name
Next

 


方法二:

用数据提供者 openSchema也可以

Public Sub OpenSchemaX()

    Dim cnn1 As ADODB.Connec.....................
...........

资料库随时有更新,欲查看最新详情请单击专题地址http://access911.net/fixhtm/73FAB11E13DC.htm

 


上一篇:re:参数存储过程如何赋值?adp 如何调用存储过程?

下一篇:从提供者获取数据库模式信息。OpenSchema

2017年2月22日生成静态资料