如何删除SQL链接表

accessbenhum

为使数据库更加安全，退出时删除数据库所有链接表（包括SQL链接表）。

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

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

roych

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@

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

这个代码 学习了 谢谢版主