Hello...
I'm leaving aside the NULL issue for the moment...
Today's project is to get a complete list of column names for each
table in the database, and the value for the first record (row) in each
table. This code does the right thing for 15 tables and then hangs and
quits without an error message on the 16th table:
****************************************************
use warnings;
use Win32::ODBC;
my (@tables) = $db->TableList;
foreach $table (@tables) {
print "$table\n";
$db->Sql ("SELECT * FROM $table");
$db->FetchRow();
my %hash = $db->DataHash;
foreach $key (sort(keys %hash)) {
print "\t$key", '=',$hash{$key}, "\n";
} #end foreach
}
*******************************************************
On the 16th table, the <print "$table\n";> line executes and the
script hangs and quits after a few seconds. I wondered if something was
wrong with the 16th table, so I added
if (($table ne "Table16") and ($table ne "Table17") and ($table ne
"Table18")) after the <print "$table\n";> statement, but to no avail--
apparently the script hangs on the 16th table regardless of what's in the
table.
Any suggestions to get the script to complete would be welcome.
Likewise, a comprehensive treatment of Win32::ODBC would also be
helpful-- I've found some example code on the web, but not much detail.
Thanks again...
-Chris
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
