'调用方法:Call sc ' Public Function sc() Dim dbs As Database Dim tdf As TableDef Set dbs = CurrentDb For Each tdf In dbs.TableDefs If Len(tdf.Connect) = 0 And tdf.Attributes = 0 Then DoCmd.DeleteObject acTable, tdf.Name End If Next tdf dbs.Close End Functi ...
比如,将 192.168.1.87的SQL Server 默认实例添加到当前的 SQL Server 实例中,设访问192.168.1.87的登录ID 为 sa, 密码为 use_link_svr,执行如下步骤: use master GO exec master.dbo.sp_addlinkedserver @server = N' 192.168.1.87 ', @srvproduct = N' SQL Server ...