通过ODBC连接到SQLSERVER2K后,表如何去掉DBO

yodong

通过ODBC连接到SQLSERVER2K后,每个连接表都自己加上了DBO三个字母,有100多个表,如果一个个去改名,好费事,有什么办法编程自动去掉此三个字母,
以前记得有一位网友问过此问题,别的朋友给过一个函数的,可惜当时没有摘录下来.现在要用到了,却找不到了,那位朋友知道吗?

zhuyiwen

编写刷新链接表的程序，重新命名链接表。

yodong

zhuyiwen版主：能否告知思路。

zhuyiwen

未测试：

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)) = "DBO" Then
            strNewName = Right(strName, Len(strName) - 4)
            tdf.Name = strNewName
            tdf.RefreshLink
        End If
    Next
End Sub

ljwei692

直接将链接表更改名字可行吗？

yodong

问题是100多个表如何个个去改呢？谢谢zhuyiwen版主，我这就去试。

cg1

access本来就有RENAME方法，不用太麻烦的

自己用RENAME作为关键字搜索一下帮助，看看，如果还不会再来问吧

http://access911.net/index.asp?board=4&recordid=78FAB51E11DC

yodong

谢谢cg1版主，原来还有那么多方法。

zhuyiwen

测试通过:

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

yedaoan

谢谢