Hi,
I have a simple perl script, thru which i am trying to update entries in SQL server DB.
use DBI;
use CGI;
my $DSN = 'driver={SQL Server};Server=xxxxxx\SQLEXPRESS;Database=Northwind;UID=sa;PWD=xxxxxxxx';
#Connect the database handle.
$dbh = DBI->connect("DBI:ODBC:$DSN") or die "$DBI::errstr\n";
if($dbh) {
print "DB Connection Success \n";
}
else{
print "DB Connection failure \n";
}
open (OUTPUT, ">C:\PerlScripts\OUTPUT.TXT") || die ("can't open\n");
open (FILE, "<C:\PerlScripts\commands.sql") || die ("can't open commands\n");
while (<FILE>)
{
$sql = $_;
$update = $dbh->do($sql);
if($update)
{ print OUTPUT "Success: Now executing $sql\n";
}
else
{
print OUTPUT "Failure;";
$update = null;
$sql = $_;
$update = $dbh->do($sql);
print OUTPUT "Success: Now executing $sql\n";
}
}
$dbh->disconnect();
However when i run the script i am getting the following error
"Can't open commands". The path specified is correct and a null output file is generated. DB connection is successful. Cant figure out why the sql file is not being read.
OS is windows
Any help is appreciated. Thanks in advance.