批量去除链接表名前的＂DBO_＂_access DAO-access ADO-access ADP

当前位置：主页 > 技巧 > Access技巧 > DAO/ADO/ADP > 正文

批量去除链接表名前的＂DBO_＂

时间：2004-11-23 22:32 来源：AccessFaq 作者：zhuyiwen… 阅读：次

作    者：朱亦文
摘    要：通过ODBC连接到SQL Server后,每个连接表都自己加上了“DBO_”，这样使用起来很麻烦，怎么办呢?

正    文：

    通过ODBC连接到SQL Server后,每个连接表都自己加上了“DBO_”，这样使用起来很麻烦，可以通过调用下面的 RenameLinkTableName 过程来进行批量去除之。

' 用途: 批量去除通过ODBC连接到SQL Server链接表名前的"DBO_"
' 要求引用 Microsoft DAO 3.60 Object Library
' 作者: 朱亦文
' 日期: 2003.12.17 测试通过
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

(责任编辑：admin)

顶一下

(0)

踩一下

(0)

上一篇：查询在不同Web服务器上的数据库
下一篇：VB 6.0与大型数据库的无“数据源”连接