【PB】DW的DBError事件

- 日理万妓 2022-06-18 05:52 252阅读 0赞

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          数据库错误信息