Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical
 
PerlMonks  

Re: Can't query SQLite in a while loop

by armstd (Friar)
on Sep 17, 2011 at 13:57 UTC ( #926546=note: print w/ replies, xml ) Need Help??


in reply to Can't query SQLite in a while loop

There are a couple issues with this code that are unrelated to your specific problem, but important to resolve:

my $db_attr = {RaiseError => 1, PrintError => 1}; my $db_error = $DBI::errstr; $dbh = DBI->connect("dbi:SQLite:$name_db","","",$db_attr); if (defined($db_error) && $db_error ne " ") {

First, it looks like you're not checking for connect errors properly. What would you expect to see in $db_error after connect? Second, you're using RaiseError, and checking $DBI::errstr. That is why it's clear these issues are unrelated to your specific problem. You'd be getting an exceptions anyway. You should pick one error or exception mechanism and go with it, not both.

--Dave


Comment on Re: Can't query SQLite in a while loop
Download Code
Re^2: Can't query SQLite in a while loop
by josef (Acolyte) on Sep 18, 2011 at 12:19 UTC
    Hallo armstd, you are right. I will change to PrintError => 0, RaiseError => 0. I found more example about on the Perl DBI book from Q`Reilly http://oreilly.com/catalog/perldbi/chapter/ch04.html. Many thanks for your comment.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://926546]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (21)
As of 2014-07-30 13:30 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite superfluous repetitious redundant duplicative phrase is:









    Results (233 votes), past polls