Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much
 
PerlMonks  

Re: database connection output

by themage (Friar)
on Nov 30, 2006 at 16:53 UTC ( #587006=note: print w/ replies, xml ) Need Help??


in reply to database connection output

hi dreman,

All you need is to create two diferent $dbhs. Example:

my $dbh1=DBI->connect("dbi:Sybase:$server1","$user1", "$pass1" ) or di +e DBI::errstr; my $dbh2=DBI->connect("dbi:Sybase:$server2","$user2", "$pass2" ) or di +e DBI::errstr; $dbh1->do("SOME SQL ON SERVER 1"); $dbh2->do("SOME SQL ON SERVER 2");
It was not that hard, was it? Wasn't this a ask first, think later question?

TheMage
Talking Web


Comment on Re: database connection output
Download Code
Re: database connection output
by jonadab (Parson) on Nov 30, 2006 at 17:12 UTC
    Wasn't this a ask first, think later question?

    Given that his variables names are $dbh and $sth and so on, it may be that he is coding by copy-and-paste and may not fully understand what a DBI handle is.


    Sanity? Oh, yeah, I've got all kinds of sanity. In fact, I've developed whole new kinds of sanity. You can just call me "Mister Sanity". Why, I've got so much sanity it's driving me crazy.
Re^2: database connection output
by davorg (Chancellor) on Dec 01, 2006 at 08:58 UTC
    All you need is to create two diferent $dbhs

    Am I missing something here? It looks to me as tho' he _is_ creating two different database handles. The $dbh variable is lexically scoped to the &SQL subroutine so a new one is created each time the subroutine is called.

    --
    <http://dave.org.uk>

    "The first rule of Perl club is you do not talk about Perl club."
    -- Chip Salzenberg

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (9)
As of 2014-11-26 20:53 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My preferred Perl binaries come from:














    Results (173 votes), past polls