はじめまして・・・

DWで行っているのなら、DBErrorイベントに次のように記述するとうまく取得できます。

Integer err_cd
String err_txt

err_cd = sqsdbcode         \'これは、DBErrorイベントの引数を保存
err_txt = sqlerrtext          \'これも同じ
buf = buffer                   \'これも同じ

\'先にROLLBACKすることをお勧めします。
ROLLBACK using SQLCA;
\'このIF文はエラーコードによって内容を変えるのもいいかとおもいます。
If err_cd <> 0 then
   MessageBox(\"DB Error!\",\"コード = \" + String(err_cd) + \"~nエラー内容：\" + err_txt)
End If

Return 1      \'これは、メッセージをPBの表示しない様にします。

詳しくは、ヘルプやマニュアルのDBErrorイベントを参照してください。