I'm experimenting with the Win32::ODBC module and having (what I perceive to be) a really weird problem. I hardly ever use Perl, and I'm a novice in every sense of the word, so bear with me.
I'm running code from the examples given in the documentation for the module, substituting in variables that actually exist in place of the variables listed there. When I try to print anything, the variables in the print function don't show up. For example, when I run:
if ($GILES_RESEARCH->Catalog( '', '', '', "'TABLE','SYSTEM_TABLE'") ) { my %Data; print "Available tables:\n"; while ($GILES_RESEARCH->FetchRow( \%Data ) ) { print "\t$Data{TABLE_NAME} is a $Data{TABLE_TYPE} (owned by '$Data{TABLE_SCHEM}')\n"; } }
I get:
Available tables: is a (owned by '')
The funny thing is that " is a (owned by '')" prints EXACTLY as many times as there are tables. So the connection is being made, but the values aren't being read by print. The Catalog() method isn't the only method I'm having this problem with. I'm running WinXP Pro, ActivePerl 5.8. Any help would be appreciated. Thanks!
I'm not familiar with Win32::ODBC, but I strongly suspect that the parameter to FetchRow is wrong. Check the documentation for that method.
Randy.
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
