Catch connection error MSSQL

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Hello,

I want to connect to a MSSQL server and catch a connection error if it happens. I used to use on MySQL an eval which, as far as I remember worked fine. However, I can not catch an error if it happens now, if for example the password is wrong. This is what I am using:

print "Connecting to MSSQL terminology database... ";
eval{
 $dbh = DBI->connect("dbi:ODBC:Driver={SQL Server};Server=$SqlDatabase
+Name;UID=$SqlDatabaseUser;PWD=$SqlDatabasePassword", {PrintError => 0
+, RaiseError => 1, AutoCommit => $AutoCommit, FetchHashKeyName => 'NA
+ME_lc',}) ;
 $dbh->{'mysql_enable_utf8'} = 1;
};    
if ($@) {
 print "ERRRRRRRRRRRROR\n";
}
[download]

Any idea what I am doing wrong?

Comment on Catch connection error MSSQL Download Code

Replies are listed 'Best First'.
Re: Catch connection error MSSQL by FloydATC (Deacon) on Oct 09, 2018 at 13:52 UTC
I have not tested this with MSSQL, only MySQL but you should be able to just use `RaiseError => 0` and then check `$DBI::errstr` instead of `$@`. Note the difference between this and `$dbh->errstr` which will not work if `$dbh` is `undef` for whatever reason. -- FloydATC I got 99 problems, most of them have to do with printers.	[reply] [d/l] [select]
Re: Catch connection error MSSQL by 1nickt (Canon) on Oct 09, 2018 at 15:15 UTC
Hi, maybe `$@` is getting clobbered somewhere. Try Try::Tiny: `use Try::Tiny; print "Connecting to MSSQL terminology database... "; try { $dbh = DBI->connect("dbi:ODBC:Driver={SQL Server};Server=$SqlDatabase +Name;UID=$SqlDatabaseUser;PWD=$SqlDatabasePassword +", {PrintError => 0, RaiseError => 1, AutoCommit => $AutoCommit, Fetc +hHashKeyName => 'NAME_lc',}) ; $dbh->{'mysql_enable_utf8'} = 1; } catch { print "ERRRRRRRRRRRROR: $_\n"; # error in $_ };` [download] Hope this helps! The way forward always starts with a minimal test.	[reply] [d/l] [select]
Re: Catch connection error MSSQL by Anonymous Monk on Oct 10, 2018 at 22:01 UTC
Both suggested solutions work (and the original one too) if I add a `or die` to the connect statement. I am not sure why. The script keeps running but the "Died" message is passed.	[reply] [d/l]

Back to Seekers of Perl Wisdom