Re: [PerlChina] DBD::mysql 的 TRANSACTION 問題

Anthony WU Mon, 25 Apr 2011 07:10:25 -0700

�槭颤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]<mailto:[email protected]>> 写道：

myisam是不支持事务的
--
blog: http://chenxiaoyu.org

2011/4/25 Anthony WU <[email protected]<mailto:[email protected]>>


    高手！�D成InnoDB後�t�]有���}


    -------- Original Message  --------
    Subject: Re: [PerlChina] DBD::mysql 的 TRANSACTION ���}
    From: silent < <mailto:[email protected]>[email protected]
    <mailto:[email protected]>>
    To: [email protected] <mailto:[email protected]>
    Date: 25/4/2011 21:44

    myisam ?

    在 2011年4月25日 下午9:33，Anthony WU <[email protected]
    <mailto:[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.014120printf ("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] <mailto:[email protected]>。
        要取消订阅此网上论坛，请发送电子邮件至
        [email protected]
        <mailto:[email protected]>。
        若有更多问题，请通过
        http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上
        论坛。

--您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers

    讨论组”论坛。
    要向此网上论坛发帖，请发送电子邮件至 [email protected]
    <mailto:[email protected]>。
    要取消订阅此网上论坛，请发送电子邮件至
    [email protected]
    <mailto:[email protected]>。
    若有更多问题，请通过
    http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

--您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨

    论组”论坛。
    要向此网上论坛发帖，请发送电子邮件至 [email protected]
    <mailto:[email protected]>。
    要取消订阅此网上论坛，请发送电子邮件至
    [email protected]
    <mailto:[email protected]>。
    若有更多问题，请通过
    http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。


--

您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。要向此网上论坛发帖，请发送电子邮件至 [email protected]<mailto:[email protected]>。要取消订阅此网上论坛，请发送电子邮件至[email protected]<mailto:[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 访问此网上论坛。

Re: [PerlChina] DBD::mysql 的 TRANSACTION 問題

回复