Select Code to Download

$dbh = DBI->connect("DBI:ODBC:driver={SQL Server};Server=$server;Datab
+ase=$database;UID=$dbusername;PWD=$dbpassword") ||  die "$Error_Messa
+ge $DBI::errstr";
print ".......Connection successful\n\n";
...
                    CREATE TABLE [dbo].[$tbl] (@{$tables->{$tbl}})");
    print "Done\n";
}

DBD::ODBC::db do failed: [Microsoft][ODBC SQL Server Driver]Connection
+ is busy with results for another hstmt (SQL-HY000) at U:\Do
...
DBD::ODBC::db do failed: [Microsoft][ODBC SQL Server Driver]Connection
+ is busy with results for another hstmt (SQL-HY000) at U:\Do
ccuments\Scripts\Test\test.pl line 60.
Preparing Mssql2008 table: Data_Centers,....Done

    my $dbh3 = DBI->connect("DBI:ODBC:driver={SQL Server};Server=$serv
+er;Database=$database;UID=$dbusername;PWD=$dbpassword");
    
    $dbh3->do("IF EXISTS (SELECT * FROM sysobjects WHERE id = object_i
+d(N'[dbo].[$tbl]') AND OBJECTPROPERTY(id, N'IsUserTable') = 1) 
                    DROP TABLE [dbo].[$tbl]; 
                    CREATE TABLE [dbo].[$tbl] (@{$tables->{$tbl}})");