<?xml version="1.0" encoding="windows-1252"?>
<node id="400249" title="DBI Invalid Cursor State when PRINT statements are embedded in SQL" created="2004-10-18 13:49:46" updated="2005-08-06 06:15:02">
<type id="115">
perlquestion</type>
<author id="220129">
JamesNC</author>
<data>
<field name="doctext">
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. 

&lt;code&gt;
DBD::ODBC::st execute failed: [Microsoft][ODBC SQL Server Driver]Invalid cursor state (SQL-24000)(DB
D: dbd_describe/SQLNumResultCols err=-1) at H:\progs\dbi_test.pl line 10.
&lt;/code&gt;
&lt;br&gt;
&lt;br&gt;
Example code:
&lt;code&gt;
#c:/perl/bin/perl

use DBI;

my $dbh = DBI-&gt;connect( 'dbi:ODBC:TEST_DSN', '','', {RaiseError=&gt; 1} );


my $sth = $dbh-&gt;prepare( "PRINT '...begin' select name = 'test' " );

my $rv = $sth-&gt;execute();

print "rv: $rv \n";

while ( my $hr = $sth-&gt;fetchrow_hashref ){

	print $$hr{$_}, "\n" for ( keys %$hr );
	print "Err: ", $dbh-&gt;errstr, "\n" if $dbh-&gt;errstr;

}

&lt;/code&gt;

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.

&lt;br&gt;
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?

&lt;br&gt;
Thanks in advance!
&lt;br&gt;
JamesNC</field>
</data>
</node>
