Office中国论坛/Access中国论坛

标题: 如何删除SQL链接表 [打印本页]

---

作者: accessbenhum    时间: 2012-2-15 17:12
标题: 如何删除SQL链接表
为使数据库更加安全，退出时删除数据库所有链接表（包括SQL链接表）。

请问如何删除所有SQL链接表？

请版本及各位高手指点一下，谢谢了。

---

作者: roych    时间: 2012-2-16 10:09

1. Sub Test()
   
2. Dim Tdf As TableDef
   
3. For Each Tdf In CurrentDb.TableDefs
   
4.     If Len(Tdf.Connect) > 0 Then
   
5.         DoCmd.DeleteObject acTable, Tdf.Name
   
6.     End If
   
7. Next Tdf
   
8. End Sub

复制代码

---

作者: olderdream2007@    时间: 2013-11-15 21:38

roych 发表于 2012-2-16 10:09

这个代码 学习了 谢谢版主

---

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)

Powered by Discuz! X3.3