hello everyone,
i recently downloaded the latest version of perl which came with the
following that i installed via the ppm.
new:
activestate perl 5.6.1
ppm 2.20
dbi 1.34
dbd odbc 1.04
old:
activestate perl 5.6.1
ppm 2.1.6
dbi 1.27
dbd odbc .28
the below code runs fine on my older version but gets crazy errors on the
new versions. can anyone help me solve the problems. i'd like to run the
latest versions, if possible :)
perl code:
my $sql = "
SELECT distinct substring(filename,1,4) as
Payor,substring(filename,charindex('-',filename,9)+1,4) as Customer
,max(createdtime) as LastFileDate
FROM masterfile
WHERE substring(filename,1,4) like '[a-z][a-z][a-z][0-9]' AND FILENAME
LIKE '%.CLM' anD DateDiff(day,createdtime,getDate())<14
and filename like '%tst%'
group by
substring(filename,1,4),substring(filename,charindex('-',filename,9)+1,4)
order by substring(filename,1,4)
";
$sth = $dbh->prepare($sql);
$sth->execute();
------------
errors:
DBD::ODBC::st execute failed: [Microsoft][ODBC SQL Server Driver][SQL
Server]Inv
alid object name 'masterfile'. (SQL-42S02)
[Microsoft][ODBC SQL Server Driver][SQL Server]Statement(s) could not be
prepare
d. (SQL-42000)(DBD: st_execute/SQLExecute err=-1) at
C:\perl\scripts\recent_clai
m_data.pl line 65.
DBD::ODBC::st fetchrow_array failed: (DBD: no select statement currently
executi
ng err=-1) at C:\perl\scripts\recent_claim_data.pl line 88.
__________________________________________________
Do you Yahoo!?
Yahoo! Platinum - Watch CBS' NCAA March Madness, live on your desktop!
http://platinum.yahoo.com
