hello: i am using a Perl-Tk program to access data in a mysql database. the start of the program is as below:
------------------- start ------------------- #!/usr/bin/perl -w use DBI ; use DBD::mysql ; use Tk ; require Tk::TableMatrix ; use Tk::widgets qw/Dialog/; use subs qw/file_menuitems help_menuitems menubar_menuitems/ ; require Tk::LabEntry ; { . . . . . $db = DBI->connect( $dbconn , $user , $passwd ) ; . . . . . -------------------- end -------------------- i am using the script to allow the user to add, delete, or modify records. as there business rules specifying that the data will reside in three different tables, i do a $db->begin_work before i start the save or delete. (modify does not require multiple table update!) if there is a an error along the way, i do a $db->rollback; otherwise, i do a $db->commit ; the problem i am having arises when i do a rollback. if i do a $rc = $db->rollback ; there is no rollback and $db->errstr is not set. further more, $rc = "". on the other hand, if i do a $rc = $db->rollback or warn $db->errstr ; the rollback fails and i get the following message at the command line: Use of uninitialized value in warn at ./mega.pl line 883. Warning: something's wrong at ./mega.pl line 883. and i print the $rc value: Return Code: 1 a dialog box is shown when ------------- start -------------- if ( defined( $rc ) && $rc > 0 ) { $error = "An error occurred during a rollback operation\n$db->errstr" ; $mbox = $mw->Dialog( -title => 'Error' , -buttons => [ 'Cancel' ] , -default_button => 'Cancel' , -text => "$error" ) ; $mbox->Show ; } -------------- end --------------- with this message: An error occurred during a rollback operation DBI::db=HASH(0x851f8c4)->errstr does mysql not support rollback (documentation indicates that it does!) or is there something obvious that i am missing??? any assist is greatly appreciated. -- regards, allen wayne best, esq "your friendly neighborhood rambler owner" "my rambler will go from 0 to 105" Current date: 44:41:19::313:2002 Birds and bees have as much to do with the facts of life as black nightgowns do with keeping warm. -- Hester Mundis, "Powermom" --------------------------------------------------------------------- Before posting, please check: http://www.mysql.com/manual.php (the manual) http://lists.mysql.com/ (the list archive) To request this thread, e-mail <[EMAIL PROTECTED]> To unsubscribe, e-mail <[EMAIL PROTECTED]> Trouble unsubscribing? Try: http://lists.mysql.com/php/unsubscribe.php