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

[zuul]

Необходимо проанализировать результаты селекта
для дальнейшей обработки а именно проверка результата если есть записи и если нет записей?
use DBIx::MSSQLReporter;
my($connect) = "dbi:ODBC(RaiseError=>1, PrintError=>1, Taint=>1):DSN=TEST";
my($reporter) = DBIx::MSSQLReporter -> new(connexion => $connect);

$sql1="select STRACCOUNT, NAME_ACCOUNT from OD_ACC0_ADDFL_INT, OD_ACCOUNTS0 where ID_OBJECT = ID_ACCOUNT and FIELD=1 and ID_FIELD = 45";
my($sth) = $reporter -> do($sql1);

$sth -> dump_results();
$sth -> finish();

[прохожий]

сходи на www.perl.ru там тебе точно и скоро ответят...