Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access开发平台

Access快速开发平台--修复因Office新补丁引起的链接表中显示“#已删除的”问题

时 间:2022-05-30 23:07:54
作 者:红尘如烟   ID:10768  城市:成都
摘 要:修复Access快速开发平台中因Office新补丁引起的链接表中显示“#已删除的”问题。
正 文:

'功能用途:此段代码用于修复快速开发平台中因Office新补丁引起的链接表中显示“#已删除的”问题。
'解决方案:将表中主键字段类型是nvarchar的改为varchar类型。
'附加说明:1. 对于个别报错的表,请根据立即窗口输出的信息单独进行手工处理。
'          2. 执行完成后可在立即窗口执行RefreshLinkTables或通过数据库配置界面,
'             点击“设为当前”按钮,刷新链接表。
'创 建 者:Eleven Liu
'创建时间:2022-05-30



Sub FixError_ShowDeletedInLinkTables()
    Dim dbs As Object: Set dbs = CurrentDb
    Dim tdf As Object
    For Each tdf In dbs.TableDefs
        '只有ODBC链接表才做进一步处理
        If tdf.Connect Like "ODBC;*" Then
            Dim idx As Object
            '循环表中所有索引
            For Each idx In tdf.Indexes
                '如果该索引是主索引(主键)
                If idx.Primary Then
                    Dim strPkFields As String: strPkFields = ""
                    Dim strSQL As String: strSQL = ""
                    Dim fld As Object
                    '循环主键索引中的所有字段
                    For Each fld In idx.Fields
                        '如果主键包含文本类型的字段才做处理
                        If tdf.Fields(fld.Name).Type = dbText Then
                            strSQL = strSQL & vbCrLf & "ALTER TABLE [" & tdf.Name & "] ALTER COLUMN" _
                                   & " [" & fld.Name & "] varchar(" & tdf.Fields(fld.Name).Size & ") NOT NULL;"
                        End If
                        strPkFields = strPkFields & ",[" & fld.Name & "]"
                    Next
                    '如果主键没有文本类型字段,strSQL长度会为0
                    If Len(strSQL) > 0 Then
                        '注意这里必须采用删除主键,再修改字段类型,然后重新添加主键的方式。
                        '否则由于索引依赖问题直接修改字段字段类型无法修改成功。
                        '1.删除主键。
                        '2.将主键中所有文本字段的数据类型从nvarchar改为varchar
                        '3.重新添加主键。
                        strSQL = "ALTER TABLE [" & tdf.Name & "] DROP CONSTRAINT [" & idx.Name & "];" & strSQL
                        strSQL = strSQL & vbCrLf & "ALTER TABLE [" & tdf.Name & "] ADD CONSTRAINT" _
                               & " [" & idx.Name & "] PRIMARY KEY(" & Mid$(strPkFields, 2) & ");"
                        '使用平台ServerRunSQL函数执行SQL语句修改字段类型。
                        If ServerRunSQL(strSQL) Then
                            Debug.Print "更新成功 " & tdf.Name
                        Else
                            '如果失败了将执行的SQL语句输出到立即窗口,便于调试排查错误。
                            Debug.Print "更新失败 " & tdf.Name & ",SQL为:"
                            Debug.Print String(100, "-")
                            Debug.Print strSQL
                            Debug.Print String(100, "-")
                        End If
                    End If
                    Exit For
                End If
            Next
        End If
    Next
End Sub




Access快速开发平台QQ群 (群号:321554481)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助