I'm getting lots of "Use of uninitialized value in array element at C:/Perl/lib/Win32/ODBC.pm line 256."
It seems that each matching row in the database returns this line.

Here's how I typically use Win32::ODBC

#!C:/Perl/bin/Perl -wT
use strict;

# <snip>

my $myDb= new Win32::ODBC("$DSN");
if (! $myDb)
{
print STDERR "error connecting to $DSN";
Win32::ODBC::DumpError();
die;
}
else
{
$myDb->Sql("SELECT * FROM courses WHERE coursename = '$query'");
my (fields) = $myDb->FieldNames();

while ($myDb->FetchRow())
{
my (%values) = $myDb->DataHash();
print $values{'coursename'};
}
$myDb->Close();
}


Thanks for any help!

Regent
[email]arthur0421163.com[/email]