$sql = qq{ 
     RESTORE DATABASE ${dbname}
       FROM disk = '${filename}'
       ${recovery} 
          , MOVE '$datadev_srcname' TO '$datadev_phyname' 
          , MOVE '$logdev_srcname' TO '$logdev_phyname'
    ,replace
    };

}

$sth->execute() || die "Restore failed with this error $DBI::errstr nu
+m: $DBI:err state: $DBI::state\n" ;
[download]

do{
$sth->execute() || die "Restore failed with this error $DBI::errstr nu
+m: $DBI:err state: $DBI::state\n" ;
}while ($sth->{odbc_more_results});
[download]

Messages output via print in a procedure are only seen in the DBI error handler so if you want to capture them you need to set that up. There is an example in the 20SqlServer.t test where a procedure is created which prints.

MS SQL Server, by default does not batch up results and the prints are deemed a result (of a sort). I think you need to call execute then loop whilst odbc_more_results is true.

$s->execute;
while($s->odbc_more_results) {
  # your error handler will catch prints 
}
[download]

</code>

while($sth->odbc_more_results) {
  print "Restore outputs $DBI:errstr \n";
}
[download]

my $sth = $db->prepare( $sql, { odbc_exec_direct => 1})
[download]

That was a typo on my part - it should have been:

while($sth->{odbc_more_results}) {
    ; #
}
[download]

sorry