PEPPLER.ORG
Michael Peppler
Sybase Consulting
Menu
Home
Sybase on Linux
Install Guide for Sybase on Linux
General Sybase Resources
General Perl Resources
Freeware
Sybperl
Sybase::Simple
DBD::Sybase
BCP Tool
Bug Tracker
Mailing List Archive
Downloads Directory
FAQs
Sybase on Linux FAQ
Sybperl FAQ
Personal
Michael Peppler's resume

sybperl-l Archive

Up    Prev    Next    

From: Michael Peppler <mpeppler at peppler dot org>
Subject: Re: DB connection error handling
Date: Oct 15 2004 11:46AM

On Fri, 2004-10-15 at 13:02, phanikumar.pasam@wipro.com wrote:
> > Please can you help me handling the error in DB connection to Sybase
> 
> > Server and DB from perl code myself?

> > I am using Sybperl. and all the libraries exist. I am saying this 
> 
> > because we make DB connection in numerous instances; But we have a 
> 
> > specific requirement to put XYZ logic incase DB connection is not 
> 
> > made. 

Which version of sybperl do you have?

I just tried the following:

#!/usr/bin/perl -w

use strict;

use Sybase::DBlib;

my $db = new Sybase::DBlib 'sa', 'foo', 'localhost';
if(!$db) {
    print "connect failed!\n";
} else {
    print "connect worked\n";
}

__END__

which worked fine:

[mpeppler@localhost DBD-Sybase]$ perl ~/tmp/fail_con.pl
Msg 4002, Level 14, State 1
Server 'localhost',
        Login failed.
DB-Library error:
        Login incorrect.
connect failed!

Michael
-- 
Michael Peppler                              Data Migrations, Inc.
mpeppler@peppler.org                       http://www.peppler.org/
Sybase T-SQL/OpenClient/OpenServer/C/Perl developer available for short or 
long term contract positions - http://www.peppler.org/resume.html