Perl ADO считает, что вывод в хранимой процедуре является ошибкой!
Прежде всего (если это важно) я использую Perl ActiveState (v5.8.7, созданный для MSWin32-x86-multi-thread).
Я только что вышел из трехчасового сеанса отладки, пытаясь найти источник ошибки. Я обнаружил, что ошибки просто не было, но по какой-то причине объект подключения ADO увеличивал Errors.Count с каждым напечатанным сообщением в выводе моей хранимой процедуры.
Рассмотрим следующий код Transact SQL:
CREATE PROCEDURE dbo.My_Sample() AS
BEGIN TRAN my_tran
-- Does something useful
if @@error <> 0 BEGIN
ROLLBACK TRAN my_tran
RAISERROR( 'SP My_Sample failed', 16, 1)
END ELSE BEGIN
COMMIT TRAN my_tran
PRINT 'SP My_Sample succeeded'
END
А теперь представьте себе подпрограмму Perl примерно так:
sub execute_SQL {
# $conn is an already opened ADO connection object
# pointing to my SQL Server
# $sql is the T-SQL statement to be executed
my($conn, $sql) = @_;
$conn->Execute($sql);
my $error_collection = $conn->Errors();
my $ecount = $error_collection->Count;
if ($ecount == 0 ) { return 0; }
print "\n" . $ecount . " errors found\n";
print "Executed SQL Code:\n$sql\n\n";
print "Errors while executing:\n";
foreach my $error (in $error_collection){
print "Error: [" . $error->{Number} . "] " . $error->{Description} . "\n";
}
return 1;
}
В другом месте, в основном коде Perl, я вызываю указанную выше подпрограмму как:
execute_SQL( $conn, 'EXEC dbo.My_Sample' );
В конце концов я понял, что оператор каждый PRINT вызывает добавление новой псевдо-ошибки в коллекцию ошибок ADO. Быстрое исправление, которое я реализовал, заключалось в том, чтобы изменить PRINT в SP на SELECT, чтобы обойти это.
Я хотел бы задать следующие вопросы:
- Это нормально?
- Есть ли способ избежать / обойти это?
Ответы 2
Этого и следовало ожидать, так как это то, что делает ADO, а Win32 :: ADO - довольно тонкий слой над ним.
ref: база знаний обратите внимание, что операторы RAISERROR и PRINT возвращаются через коллекцию ошибок ADO.
В статье также говорится: «Кроме того, чтобы обойти проблему указания отсутствия операторов RAISERROR и комбинации операторов PRINT, по умолчанию создаются операторы RAISERROR, чтобы обеспечить контекст для возврата оператора PRINT через ADO». возможно, попробуйте RAISEERROR со значением 1 ...
Хорошо, после много тестирования и чтения я обнаружил, что это объясняется в статье BOL «Использование PRINT» (выделено мной):
The PRINT statement is used to return messages to applications. PRINT takes either a character or Unicode string expression as a parameter and returns the string as a message to the application. The message is returned as an informational error to applications using the SQLClient namespace or the ActiveX Data Objects (ADO), OLE DB, and Open Database Connectivity (ODBC) application programming interfaces (APIs). SQLSTATE is set to 01000, the native error is set to 0, and the error message string is set to the character string specified in the PRINT statement. The string is returned to the message handler callback function in DB-Library applications.
Вооружившись этими знаниями, я адаптировал этот VB6 из эта статья DevX, пока не получил следующее:
sub execute_SQL {
# $conn is an already opened ADO connection object
# pointing to my SQL Server
# $sql is the T-SQL statement to be executed
# Returns 0 if no error found, 1 otherwise
my($conn, $sql) = @_;
$conn->Execute($sql);
my $error_collection = $conn->Errors();
my $ecount = $error_collection->Count;
if ($ecount == 0 ) { return 0; }
my ($is_message, $real_error_found);
foreach my $error (in $error_collection){
$is_message = ($error->{SQLState} eq "01000" && $error->{NativeError}==0);
$real_error_found=1 unless $is_message;
if ( $is_message) {
print "Message # " . $error->{Number}
. "\n Text: " . $error->{Description} ."\n";
} else {
print "Error # " . $error->{Number}
. "\n Description: " . $error->{Description}
. "\nSource: " . $error->{Source} . "\n";
}
}
print $message_to_print;
return $real_error_found;
}
Итак, теперь моя подпрограмма Perl правильно сортирует реальные ошибки (выдаваемые SQL Server через RaisError) и обычное сообщение, выводимое через «PRINT».
Спасибо Ричарду Харрисону за его ответ, который привел меня к успеху.
примите это - весь смысл здесь в том, чтобы поделиться своими проблемами и решениями, цитируя соответствующие ссылки.
Извините, под «этим» вы имеете в виду мой собственный ответ или предыдущий, который направил меня на верный путь к успеху?
Я только что заметил, что вы не можете принимать свои собственные ответы (или, по крайней мере, у меня недостаточно кармы для этого) (LOL)
Спасибо! Это похоже на ответ, однако в статье базы знаний говорится, что «в хранимой процедуре требуется по крайней мере один оператор RAISERROR для получения оператора PRINT с ADO через коллекцию ошибок» - означает ли это RaisError где-нибудь в SP, даже если нет призвал к успеху (как здесь)?