 |
批量去除通过ODBC连接到SQL Server链接表名前的"DBO_" |
热 ★★★ |
| 批量去除通过ODBC连接到SQL Server链接表名前的"DBO_" |
|
| 作者：朱亦文 文章来源：Access开发者 点击数： 本日：{$DayHits} 更新时间：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
Next
End Sub
|
| 文章录入：tm 责任编辑：tm |
|
上一篇文章： 根据不同的SQL语句获取记录集
下一篇文章： 没有了 |
| 【字体：小 大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】 |
用户登录 
新用户注册 
网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）