Office中国论坛/Access中国论坛 › Access中国门户旧版 ›Sql ServerOracle其它 › 查看内容

批量去除通过ODBC连接到SQL Server链接表名前的"DBO_"

1970-1-1 08:00| 发布者: 朱亦文| 查看: 2695| 评论: 1

Public Sub RenameLinkTableName()
Dim dbs As Database
Dim tdf As TableDef
Dim strNewName As String
Dim strName As String

Set dbs = CurrentDb
For Each tdf In dbs.TableDefs
      strName = tdf.Name
      If Ucase(Left(strName, 3)) = "DBO" Then
         strNewName = Right(strName, Len(strName) - 4)
         tdf.Name = strNewName
         tdf.RefreshLink
      End If
Next
End Sub

收藏分享邀请

发表评论

帐号		自动登录	找回密码
密码			注册

批量去除通过ODBC连接到SQL Server链接表名前的"DBO_"

最新评论

相关分类