IT资讯
批量去除通过ODBC连接到SQL Server链接表名前的"DBO_"
2006-11-23 23:19:52
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 NextEnd Sub