数据窗口(DW)的DBError事件
String error_textCHOOSE 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 数据库错误信息 这么强。我顶。 关注中 学习中 新手学习中 收藏!!!!!!!!!!!111 强,谢谢。
页:
[1]