drewboy has asked for the wisdom of the Perl Monks concerning the following question:
Greetings, Perl Monks.
I have a perl script that connects to an SQL database and adds a new row to it:
For this script to work smoothly, I need this particular operation to succeed all the time. However, on some occassions, I run the script, get the &success page but nothing's been added to the sql table. I wonder if there's a way in Perl to find out if an insertion of data was successful, such that (hypothetically):$dbh = DBI->connect("DBI:$driver:$database:$server:$port",$db_user,$db +_pass); die "DBI error from connect:", $DBI::errstr unless $dbh; $sth = $dbh->prepare($command); die "DBI error with prepare:", $sth->errstr unless $sth; $command = "insert into cardbase (id, picture) values ('".$id."', '".$ +picture."')"; $result = $sth->execute; die "DBI error with execute:", $sth->errstr unless $result; $sth->finish; $dbh->disconnect; &success;
Thank you for your time and help:-)if ($insert_ok) { &success;} else {&failure;}
Note of THANKS:
Thanks Taulmarill, ehdonhon and jeffa for your help! I looked into your suggestions and they really helped me solve my problem.
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Knowing if an Operation is Successful in MySql
by jeffa (Bishop) on Nov 14, 2003 at 13:31 UTC | |
Re: Knowing if an Operation is Successful in MySql
by ehdonhon (Curate) on Nov 14, 2003 at 12:59 UTC | |
Re: Knowing if an Operation is Successful in MySql
by Taulmarill (Deacon) on Nov 14, 2003 at 12:50 UTC |
Back to
Seekers of Perl Wisdom