错误13--Access快速开发平台自动升级失败的解决方法

时　间:2021-11-10 14:44:21
作　者:欧志华   ID：51519  城市：广州
摘　要:错误13--Access快速开发平台自动升级失败的解决方法。
正　文:

      有学员反应在使用Access快速开发平台的自动升级功能的过程中出现升级失败，如下图错误提示：

跟开发平台的研发同事反应后，得到结果是因为布尔值保存的数据格式导致升级时无法正确识别，反馈给开发平台研发的同事给出了解决的方案。

方案如下:
方案一:
把“Must Update”参数的true和false改成1和0可以解决。

主要就是提示的那个setparameter函数有个bug
处理boolean类型时会出错
可以不要用dbBoolean类型，改成dbLong

方案二:
重定义这个函数。

在函数里面把Boolean类型转换为Long类型，防止出错。
把下面这个函数代码复制粘贴到Main的basRDPRef模块中去。
Public Function SetParameter _
    ( _
          ParameterName As String _
        , Optional DataType As DataTypeEnum = dbText _
        , Optional Value As String = "" _
        , Optional OnServer As Boolean = False _
    ) As Boolean
    If DataType = dbBoolean Then
        SetParameter = UMVSoftRDPLib.SetParameter(ParameterName, dbLong, Value, OnServer)
    Else
        SetParameter = UMVSoftRDPLib.SetParameter(ParameterName, DataType, Value, OnServer)
    End If
End Function

无论是方案一还是方案二修改完以后, 要修改下这个窗体加载事件