Select Code to Download

Select or download this

#!/usr/bin/perl -w
use strict;
...
    $dbh->disconnect if ($dbh);
    print "Disconnected...\n";
}

Select or download this

DBI connect('Driver={ODBC Driver 17 for SQL Server};Server=FC4FA9\SQLE
+XPRESS;UID=;PWD=;Port=4433','HASH(0x6ba7d0)',...) failed: [Microsoft]
+[ODBC Driver 17 for SQL Server][SQL Server]Login failed for user ''. 
+(SQL-28000) [state was 28000 now 01S00]
[Microsoft][ODBC Driver 17 for SQL Server]Invalid connection string at
+tribute (SQL-01S00) at .\ODBC.pl line 20.