Проверка существование записи в MySQL

[Dart Sidius]

Я это делаю так:

&connect;
my $query = $dbh->prepare("SELECT * FROM anketa") || die $DBI::errstr;
$query->execute();
while (my $db_ln = $query->fetchrow_hashref()) {
   if($db_ln->{\'ANKETA_user_id\'} eq $USER_ID) {
      $found_anketa = 1;
   }
}
$query->finish();
&disconnect;

мОЖНО КАК-НИБУДЬ ПОПРОЩЕ?

[Phoinix]

Dart Sidius

Не можно, а нужно... таких примеров я даже в учебнике не видел...

&connect;
my $query = $dbh->prepare("SELECT * FROM anketa [B]WHERE ANKETA_user_id = \'$USER_ID\'[/B]") || die $DBI::errstr;
$query->execute();
$found_anketa = 1 if $query -> rows();
$query->finish();
&disconnect;

Условия нужно делать в запросе... И почитай http://linux.opennet.ru/base/dev/perlstyle.txt, а то переменные $USER_ID - сбивают с толку...

[Forza]

По-моему, можно ещё проще (если надо проверить только условие существования): без всяких prepare(), execute(), finish(), а также выборки всех столбцов таблицы по SELECT *:
&connect;
my $count =$dbh->selectrow_array ("SELECT COUNT(*) FROM anketa WHERE ANKETA_user_id = \'$USER_ID\'") || die $DBI::errstr;
$found_anketa = 1 if $count>0;
&disconnect;

[commander]

Phoinix
Forza
проще надо быть...
use SQLayer;
my $D = SQLayer -> new($connect);
my $found_anketa=$D->row("SELECT ANKETA_user_id FROM anketa WHERE ANKETA_user_id=\'$USER_ID\'");
undef $D;
и условие ставить на $found_anketa... и всё...

[Dart Sidius]

А у меня ещё так получилось кстати, в одну строку ...
if!(($dbh->prepare("SELECT * FROM page_$LANGUAGE WHERE PAGE_id=\'$PAGE\'")->execute()<1)) ;exit;}

[commander]

Dart Sidius
а если условие надо использовать несколько раз? несколько раз будешь запрос делать?

[commander]

Dart Sidius
к тому же:  

SELECT * FROM

зачем выбирать все строки в таблице?