hok_si_la has asked for the wisdom of the Perl Monks concerning the following question:
In the following code, the statement, "print FH $data{name};" does not print anything. I do have a column in my table named 'name'. This has to be a simple error. I should add that I have printed out the generated SQL statement and it works fine. I should be able to assume that my session was successful with RaiseError set to one correct?
Thanks for your help,
the hoksila
############################################################ sub getInfo ############################################################ { my $dbtable = shift; my $function = shift; my $where = shift; my ($dbh, $sth, @datetime, @date, $name, %data); my $i=0; $dbh=DBI->connect('DBI:ODBC:Servers', { RaiseError => 1, AutoCommit => + 0 }); my $sth = $dbh->prepare( "$function FROM $dbtable $where" ); $sth->execute; $sth->bind_columns( \( @data{ @{$sth->{NAME_lc} } } )); $sth->{'ChopBlanks'} =1; @datetime = split(' ', $data{submit_date}); @date = split(/-/,$datetime[0]); my $userid = $data{name}; my $username = findADname($userid); open(FH, "> SQLoutput.txt")or die("Couldn't open SQLoutput.dat\n"); print FH $data{name}; print FH "Hello"; close FH; $sth->finish(); $dbh->disconnect(); #----Needed to free up system resources. }
Thanks for your help,
the hoksila
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Referencing bound variables
by olivierp (Hermit) on Feb 11, 2005 at 21:59 UTC | |
by ikegami (Patriarch) on Feb 11, 2005 at 22:40 UTC | |
Re: Referencing bound variables
by Roy Johnson (Monsignor) on Feb 11, 2005 at 21:47 UTC | |
by hok_si_la (Curate) on Feb 11, 2005 at 21:56 UTC | |
Re: Referencing bound variables
by holli (Abbot) on Feb 11, 2005 at 21:54 UTC | |
by hok_si_la (Curate) on Feb 11, 2005 at 22:00 UTC |
Back to
Seekers of Perl Wisdom