This is a DBI mailing list and so you will not get much support on Win32::ODBC
problems. If you have the time convert your code to DBI do so ASAP.
Win32::DBIODBC is an 'alpha' implementation (to be honest I can't even get it
to connect to a data source on my machine).
$sth is DBI style, not Win32::ODBC, I would use $db instead.
> while ($sth-FetchRow) {
I guess you meant $sth->FetchRow, but the rest of your code looks Ok.
Have you tried returning the entire row as an array:
while($db->FetchRow()){
my @data = $db->Data();
print join(', ', @data), "\n";
}
or as a hash:
while($db->FetchRow()){
my ($key, $val, %data);
%data = $db->DataHash();
print "$key=>$val\n" while ($key, $val) = each %data;
print "\n";
}
Finally, have you checked your data is what you think it is?
--
Simon Oliver
