JamesNC has asked for the wisdom of the Perl Monks concerning the following question:
Win32 AS-5.8.0 Multithread build 806 DBI(1.43)DBD::ODBC(1.07) MSSQL Server
I get a invalid cursor state when I run any SQL with a PRINT statement at the beginning of any SQL statement.
Example code:
Does anyone know how to capture the output of the PRINT Statements? They seem to print on command line tools like ISQL and other programs like Embarccadaro. Is my SQL in bad form here or is this a problem I am not working correctly in DBI?
Thanks in advance!
JamesNC
DBD::ODBC::st execute failed: [Microsoft][ODBC SQL Server Driver]Inval +id cursor state (SQL-24000)(DB D: dbd_describe/SQLNumResultCols err=-1) at H:\progs\dbi_test.pl line +10.
Example code:
If you move the PRINT statement AFTER the select statement, you don't get the error, but you also don't see the output of the print.#c:/perl/bin/perl use DBI; my $dbh = DBI->connect( 'dbi:ODBC:TEST_DSN', '','', {RaiseError=> 1} ) +; my $sth = $dbh->prepare( "PRINT '...begin' select name = 'test' " ); my $rv = $sth->execute(); print "rv: $rv \n"; while ( my $hr = $sth->fetchrow_hashref ){ print $$hr{$_}, "\n" for ( keys %$hr ); print "Err: ", $dbh->errstr, "\n" if $dbh->errstr; }
Does anyone know how to capture the output of the PRINT Statements? They seem to print on command line tools like ISQL and other programs like Embarccadaro. Is my SQL in bad form here or is this a problem I am not working correctly in DBI?
Thanks in advance!
JamesNC
|
---|
Back to
Seekers of Perl Wisdom