Архив форумов ЦИТФорума

[FUKS]

$sth=$dbh->Query($q);
if (!$sth) {
print "Ошибка ...";
...
}

Как здесь же вытащить код или описание произошедшей ошибки?

[MishGun]

print STDERR $DBI::err; #выдать код ошибки
print STDERR $DBI::errstr; #Выдать сообщение об ошибке в текстовом виде