数据窗口(DW)的DBError事件

ehxz

免费乐捐，感谢支持

String   error_text
CHOOSE CASE SQLDBCode
        CASE 1
                error_text = '违反唯一索引!'
        CASE 1400
                error_text = '字段不能为空!'
        CASE 1407
                error_text = '字段不能为空!'
        CASE 1401
                error_text = '字段太长!'
        CASE 1438
                error_text = '数值大于列允许的最大精度!'
        CASE 2291
                error_text = '出现非法字段!'
        CASE 1031
                error_text = '权限不足!'
        CASE 911
                error_text = '注册名无效!' //权限专用
        CASE 922
                error_text = '特殊字符无效!' //权限专用        
        CASE 1017
                error_text = '非法的用户名或口令,拒绝登录!'
        CASE 12154
                error_text = '不能分解服务名称!'
        CASE 01005
                error_text = '未给出口令或口令错误,拒绝登录!'
        CASE 01935
                error_text = '注册名项输入的名称为系统关键字,禁止作为注册名使用!'
        CASE 540
                error_text = '数据表或视图不存在!'
        CASE 942
                error_text = '数据表或视图不存在!'
        CASE 903
                error_text = '非法列名!'
        CASE 1403
                error_text = '未查找到符合条件的数据!'
        CASE -3
                error_text = '在您读入数据和存盘操作过程中,服务器中的数据已被别的用户或窗口改变,请重新读取数据后再试!'
        CASE 6
                error_text = '网络同数据库服务器的连接已经中断,请关闭应用程序然后重新打开.'
        CASE 50
                error_text = '网络同数据库服务器的连接已经中断,请关闭应用程序然后重新打开.'
        CASE 1920
                error_text = '用户名称与另外的用户或角色名称冲突'
        CASE 988
                error_text = '缺少口令或其非法!'
        CASE 1918
                error_text = '该ORACLE用户不存在!'
        CASE 1940
                error_text = '不能放弃一个当前被连接的操作员,即当前删除的操作员正在使用!'
        CASE ELSE
                IF IsNull(sqlca.SQLErrText) Or sqlca.SQLErrText = '' THEN
                        error_text = '数据操作失败!'
                ELSE
                        error_text = sqlca.SQLErrText
                END IF
END CHOOSE
RETURN MessageBox('错误',error_text,RetrYCancel!,1)

//DBError参数
Buffer                  发生错误所在的缓冲区
Row                    发生第一笔错误的行数
SQLDBCode       数据库错误代码
SQLErrText          数据库错误信息

twtdata

这么强。我顶。

dgsc

关注中 学习中

zeuslsk

新手学习中

fuxiaoyang13

收藏！！！！！！！！！！！111

nbhandey

强，谢谢。