Select Code to Download

    
    my $userid   = q{};
    my $password = q{};    
    my $strCnn = "Provider=SQLOLEDB; Data Source=$Servername; Initial 
+Catalog=$Tablename; Integrated Security=SSPI;";
    $dbh = DBI->connect( "dbi:ADO:$strCnn", $userid, $password, { Rais
+eError => 1, AutoCommit => 0 } ) or 
        croak "Cannot connect: $DBI::errstr";

    my $data_source = qq/dbi:ODBC:driver={SQL Server};Server=$Serverna
+me;database=$DataBaseName;Regional=No;/;
    my $user = q//;
    my $password = q//;
    $dbh = DBI->connect($data_source, $user, $password)
              or die "Can't connect to $data_source: $DBI::errstr";