用perl 访问数据库的问题请教

yzjboy

$dbh = DBI->connect("DBI:mysql:database=$connmysqldb;host=$SerIp", $conmysqluser, $connmysqlpass);
       $q=qq[ select * from testtable limit 1];
       $sth=$dbh->prepare($q);
       $sth->execute or die $dbh->errstr;
       @result = $sth->fetchrow_array;
       $sth->finish;

问题：当联接mysql数据库失败时，就会有出错信息，并且主体程序也会退出，如何保证主体程序继续正常正常下去。请教各位，谢谢！

aaronvox

prepare

execute

do

都可以检测返回值是否真假
你可以用if语句检测下

或者整体用eval捕获

举例说明：

1. 
   
2.         $sql = "$LOCK_SQL
   
3.             update my_task
   
4.                set result = \'$set_result\',
   
5.                    flag = run_flag + 1
   
6.              where task_id = \'$task_id\'
   
7.         ";
   
8. 
   
9.         &PrintLog("$sql",'ExecuteJob');
   
10. 
    
11.         my $rc = $dbh->do($sql);
    
12.         if(!$rc){
    
13.             &PrintLog("DB error:".__LINE__." \n".$sql."\n".$dbh->errstr."\n",'ExecuteJob');
    
14.             return -1;
    
15.         }else{
    
16.             &PrintLog("Affect $rc rows.",'ExecuteJob');
    
17.         }
    
18.         $dbh->commit() or die "commit failed at line ".__LINE__." $!";
    

复制代码

ulmer

原帖由 yzjboy 于 2006-7-26 17:11 发表
$dbh = DBI->connect("DBI:mysql:database=$connmysqldb;host=$SerIp", $conmysqluser, $connmysqlpass);
       $q=qq[ select * from testtable limit 1];
       $sth=$dbh->prepare($q);
...

Hi,

the simple way is to put attribute "RaiseError=>0" in DBI->connect():
i.e.:
my $dbh=DBI->connect($dbsrc, $user, $pwd, {RaiseError=>0, PrintError=>0});
if ($dbh) {
    # do DBI handle
} else {
   # do other things
    print "I am still living\n";
}

Best, ulmer

[ 本帖最后由 ulmer 于 2006-7-26 18:23 编辑 ]

yzjboy

可以了，THNKS  ulmer 、aaronvox