兄弟是"鹰指门"的粉丝吗 在 2011-4-25 晚上10:30，"万朝伟" <[email protected]>写道： > > 更期待点石成金的手指 > > > > 在 2011-4-25，22:10，Anthony WU <[email protected]> 写道： > >> �槭颤N有�d趣呢……… >> >> >> -------- Original Message -------- >> Subject: Re: [PerlChina] DBD::mysql 的 TRANSACTION ���} >> From: 万朝伟 <[email protected]> >> To: [email protected] <[email protected]> >> Cc: "[email protected]" <[email protected]> >> Date: 25/4/2011 22:06 >>> >>> 我对您解决问题的思路很感兴趣 >>> >>> >>> >>> 在 2011-4-25，21:54，smallfish <[email protected]> 写道： >>> >>>> myisam是不支持事务的 >>>> -- >>>> blog: http://chenxiaoyu.org >>>> >>>> >>>> >>>> 2011/4/25 Anthony WU <[email protected]> >>>>> >>>>> 高手！�D成InnoDB後�t�]有���} >>>>> >>>>> >>>>> -------- Original Message -------- >>>>> Subject: Re: [PerlChina] DBD::mysql 的 TRANSACTION ���} >>>>> From: silent <[email protected]> >>>>> To: [email protected] >>>>> Date: 25/4/2011 21:44 >>>>>> >>>>>> myisam ? >>>>>> >>>>>> 在 2011年4月25日 下午9:33，Anthony WU <[email protected]>写 道： >>>>>>> >>>>>>> ����有�]有前��使用�^ DBD::mysql 的 TRANSACTION 模式？ >>>>>>> 我在�����r�l�F DBD::mysql 中的 TRANSACTION �a生不了��有的 rollback 功能。 >>>>>>> 而且�y���^ AutoCommit、begin_work 的�{用中�]有�l生 $@ �S出 又或 $dbh->errstr ��息 >>>>>>> 在不修改原有代�a而只修改 DSN 的 driver name 成 Pg，在同�拥� table �O��中 PostgreSQL Server 下�t�]有���} >>>>>>> 以下是我所用的最���蔚��y��代�a： >>>>>>> >>>>>>> #!/usr/bin/perl >>>>>>> #perl v5.12.3 >>>>>>> use DBI; >>>>>>> use DBI::DBD; >>>>>>> >>>>>>> #my $dbh=DBI->connect ('dbi:Pg:database=TEST;host=localhost', 'root' , '', {AutoCommit => 1}); >>>>>>> #printf ("DBD::Pg::VERSION: %s\n", $DBD::Pg::VERSION); #DBD::Pg::VERSION: 2.17.1 >>>>>>> #mysql server 5.1.55-1 >>>>>>> >>>>>>> my $dbh=DBI->connect ('dbi:mysql:database=TEST;host=localhost', 'root' , '', {AutoCommit => 1}); >>>>>>> printf ("DBD::mysql::VERSION: %s\n", $DBD::mysql::VERSION); #DBD::mysql::VERSION: 4.017 >>>>>>> #postgresql server 8.4.7-1 >>>>>>> printf ("DBI::DBD::VERSION: %s\n", $DBI::DBD::VERSION); #DBI::DBD::VERSION: 12.014120 >>>>>>> printf ("DBI::VERSION: %s\n", $DBI::VERSION); #DBI::VERSION: 1.613 >>>>>>> >>>>>>> $dbh->begin_work (); >>>>>>> $sth = $dbh->prepare ("INSERT INTO messages (title, messages) VALUES(?, ?);"); >>>>>>> $sth->execute ("TITLE", "MESSAGES"); >>>>>>> $dbh->rollback (); >>>>>>> #$dbh->commit (); >>>>>>> $dbh->disconnect (); >>>>>>> exit; >>>>>>> >>>>>>> -- >>>>>>> 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。 >>>>>>> 要向此网上论坛发帖，请发送电子邮件至 [email protected]。 >>>>>>> 要取消订阅此网上论坛，请发送电子邮件至 [email protected]。 >>>>>>> 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN访问此网上论坛。 >>>>>>> >>>>>> >>>>>> -- >>>>>> 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。 >>>>>> 要向此网上论坛发帖，请发送电子邮件至 [email protected]。 >>>>>> 要取消订阅此网上论坛，请发送电子邮件至 [email protected]。 >>>>>> 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。 >>>>> >>>>> >>>>> -- >>>>> 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。 >>>>> 要向此网上论坛发帖，请发送电子邮件至 [email protected]。 >>>>> 要取消订阅此网上论坛，请发送电子邮件至 [email protected]。 >>>>> 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。 >>>> >>>> >>>> -- >>>> 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。 >>>> 要向此网上论坛发帖，请发送电子邮件至 [email protected]。 >>>> 要取消订阅此网上论坛，请发送电子邮件至 [email protected]。 >>>> 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。 >>> >>> -- >>> 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。 >>> 要向此网上论坛发帖，请发送电子邮件至 [email protected]。 >>> 要取消订阅此网上论坛，请发送电子邮件至 [email protected]。 >>> 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。 >> >> > -- > 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。 > 要向此网上论坛发帖，请发送电子邮件至 [email protected]。 > 要取消订阅此网上论坛，请发送电子邮件至 [email protected]。 > 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
-- 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。 要向此网上论坛发帖，请发送电子邮件至 [email protected]。 要取消订阅此网上论坛，请发送电子邮件至 [email protected]。 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
