Select Code to Download

#! c:/perl/bin/perl.exe
#
...
#$dbh = DBI->connect("DBI:ODBC:driver={SQL Server};Server=$server;Data
+base=$database;UID=$dbusername;PWD=$dbpassword") ||  die "$Error_Mess
+age $DBI::errstr";

$dbh = DBI->connect("DBI:ODBC:dsnname;Server=$server;Database=$databas
+e;UID=$dbusername;PWD=$dbpassword")

U:\Doccuments\Scripts\Start>db2.pl
DBI connect('dsnname;Server=ABCB00062\Dev;Database=ukdevxxxx;UID=uk_gg
+g\\xyz12345;
PWD=7seven7','',...) failed: [Microsoft][ODBC Driver Manager] Data sou
+rce
name not found and no default driver specified (SQL-IM002) at U:\Doccu
+ments\Scri
pts\Start\db2.pl line 32