perl5.8 数据库操作错误会弹出"perl.exe应用程序错误"对话框

lanparky

当往数据库里插入已存在的主键时，就会弹出"perl.exe应用程序错误"的对话框，必须得手动关掉它才可以进行下一步操作。但在Perl5.0中不会弹出这样的对话框。请问这是不是5.8个bug啊。怎么才能让它不弹出对话框？
  我的环境：Win2K,Sybase数据库,

flw

错误框是什么样的？文字呢？

lanparky

"0x77f87eeb"指令引用的"0x0000003e"内存。该内存不能为"read"

这种情况只有在插入重复主键时才会出现，其他象数据类型错误就不会弹出

lanparky

eval,怎么用？请指教！

[ 本帖最后由 lanparky 于 2006-9-24 09:34 编辑 ]

lanparky

我试着这样：  eval{  $db->ct_execute($sql);};
可还是会弹出错误的对话框！哪位还有别的解决方法？我想是不是要设置参数的问题，我看了Sybase::CTLib模块，有个参数SkipEED,描述是这样的If set, then I<Extended Error Data> will I<not> be fetched in error
handlers. The default is to fetch extended error data, which includes
things like the index name that caused a duplicate insert error, for
example.
我把SkipEED设置了还是不行
$db=new Sybase::CTlib 'sa', '123', 'mydb', undef,
                           { CON_PROPS => { CS_SYB_CHARSET => 'iso-1' }
                           };
if($db==NULL) {
                print "对不起，数据服务器连接失败，请联系系统管理员！";
                exit;
        }
  $db->{SkipEED}=0;                    ##无论是0还是1都不行
$sql="insert into .....";
$db->ct_execute($sql);

isaachs

connect中加{-PrintError =>0}参数即可

lanparky

$db=new Sybase::CTlib 'sa', '123', 'mydb', undef,
                           { CON_PROPS => { CS_SYB_CHARSET => 'iso-1' ,
                                                           PrintError =>0}
                           };
还是不行。。。。。。。。。。

ulmer

the option 'PrintError =>0' is not belong to  Sybase::CTlib. it's for DBI. forget it!
try to set 'SkipEED' globally:
$Sybase::CTlib::Att{'SkipEED'} = 1;
or obejectly:
$dbh->{'SkipEED'} = 1;
But I think it will perhaps not help you.
Why don't you check the primary key in a table before to insert it, when this primary is not
auto increased, this a good behavior to process a database.

regards, ulmer