Hi Jablonsky,
Try : $dbh=DBI->connect
('dbi:Oracle:host=192.168.55.116;sid=ORCL;port=1521','testusr','testpwd')
|| die "Database connection not made:
$DBI::errstr";
Just a long shot. That syntax works for me.
jagdish eashwar
On 7/28/07, [EMAIL PROTECTED] <
[EMAIL PROTECTED]> wrote:
>
> Send Perl-Win32-Users mailing list submissions to
> perl-win32-users@listserv.ActiveState.com
>
> To subscribe or unsubscribe via the World Wide Web, visit
> http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
> or, via email, send a message with subject or body 'help' to
> [EMAIL PROTECTED]
>
> You can reach the person managing the list at
> [EMAIL PROTECTED]
>
> When replying, please edit your Subject line so it is more specific
> than "Re: Contents of Perl-Win32-Users digest..."
>
>
> Today's Topics:
>
> 1. trouble connecting to Oracle (Dan Jablonsky)
>
>
> ----------------------------------------------------------------------
>
> Message: 1
> Date: Fri, 27 Jul 2007 08:34:01 -0700 (PDT)
> From: Dan Jablonsky <[EMAIL PROTECTED]>
> Subject: trouble connecting to Oracle
> To: perl-win32-users@listserv.ActiveState.com
> Message-ID: <[EMAIL PROTECTED]>
> Content-Type: text/plain; charset=iso-8859-1
>
> hi all,
> i tried to send this to perl-DBI but it did not get
> through, nevertheless, maybe someone has any ideea,
> please.
> I am executing the following code:
>
> use CGI;
> use DBI;
> use strict;
>
> my $query = new CGI;
>
> print $query->header;
> print $query->start_html("My Page");
>
> print "<BODY BGCOLOR=#FFFFFF>\n";
> print "<LEFT>\n";
>
> print "My List here<BR>\n";
>
>
> &print_prompt($query);
> print "I GOT HERE! -- form printed";
> &do_work($query);
> print "I GOT HERE! -- values processed";
>
> #connect to ORACLE
> print "<\BR>";
> print "I GOT HERE! -- before db connection";
> print "<\BR>";
>
> my $usr = "testusr";
> my $pwd = "testpwd";
> my $dbh =
> DBI->connect('dbi:Oracle:ORCL_192.168.55.116', $usr,
> $pwd) || die "Database connection not made:
> $DBI::errstr";
>
> print "I GOT HERE! -- db connected";
> $dbh->disconnect;
> print "<\BR>";
> print "I GOT HERE! -- db disconnected";
> #
> print $query->end_html;
>
> # SUBROUTINES ###
> sub print_prompt {
> #put some check boxes on the page, submit button, etc.
> }
>
> sub do_work {
> unless ($query->param) {
> print "<b>No query submitted yet.</b>";
> return;
> #get some values, etc.
> }
>
> it never gets after the connection line (it prints
> only:
> I GOT HERE! -- form printed
> I GOT HERE! -- values processed
> I GOT HERE! -- before db connection)
> , HOWEVER I never get any error; I am definitely not
> connecting but I can't see anything wrong here!
>
> WinXP, Oracle 10.2.0.0 server, Oracle 10.2.0 client,
> Perl
> 5.8.6.811,
> any idea what's happening?
>
> Thanks,
> jablonsky
>
>
>
>
>
> ____________________________________________________________________________________
> Boardwalk for $500? In 2007? Ha! Play Monopoly Here and Now (it's updated
> for today's economy) at Yahoo! Games.
> http://get.games.yahoo.com/proddesc?gamekey=monopolyherenow
>
>
> ------------------------------
>
> _______________________________________________
> Perl-Win32-Users mailing list
> Perl-Win32-Users@listserv.ActiveState.com
> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
>
>
> End of Perl-Win32-Users Digest, Vol 12, Issue 7
> ***********************************************
>
_______________________________________________
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
