dberror

1 choose case sqldbcode
2 case is > 0
3 messagebox( ' 系统提示 ' , ' 错误代号: ' + string (sqldbcode) + ' ~n~n错误原因: ' + ' ~n~n ' + sqlerrtext)
4 case - 1
5 messagebox( ' 系统提示 ' , ' 由于事务对象中缺少了某些参数，未能连接到数据库！ ' )
6 case - 2
7 messagebox( ' 系统提示 ' , ' 无法连接到数据库！ ' )
8 case - 3
9 messagebox( ' 系统提示 ' , ' 指定的键值与当前数据库记录不匹配！ ' )
10 case - 4
11 messagebox( ' 系统提示 ' , ' 向数据库写入二进制类型数据时失败！ ' )
12 case else
13 messagebox( ' 系统提示 ' , ' 保存时出现意外错误！ ' )
14 end choose
15
16 if buffer = primary ! then this .scrolltorow(row) // 滚动到出错行
17
18 this .setfocus()
19
20 return 1

转载于:https://www.cnblogs.com/vcoo/archive/2011/06/03/2072009.html