Проблема такая: Добавляю запись в таблицу, в которой поле uid - auto_increment.
А мне надо получить значение этого поля в добавленной записи.
Я эту проблему решаю запросом select по всем полям.
Но, по моему, это просто ужасный способ.
Подскажите, как лучше это сделать?

Вот код:

Код

sub set_user {   my ($self, $user, $pass) = (shift, shift, shift);     return undef unless $self->check_user($user); # если пользователь существует          # добавляем пользователя     my $sth->do( 'insert into ? ( ?, ?) values (?, ?)',                                  $self->{'users'}{'table'},                                   $self->{'users'}{'user'},                                   $self->{'users'}{'pass'},                                   $user,                                  $self->crypt_pass($pass, $user)     ) or return undef;          # получаем uid     $sth = $self->{'dbh'}->prepare('select ? from ? where ? = ? and ? = ? limit 1');     $sth->execute(                                   $self->{'users'}{'uid'},                                   $self->{'users'}{'table'},                                   $self->{'users'}{'user'},                                   $user,                                  $self->{'users'}{'pass'},                                   $self->crypt_pass($pass, $user)     ) or return undef;        my @temp = $sth->fetchrow_arrayref;     return $temp->[0] ? $temp->[0] : undef; }

Да, кстати, в DBI можно ли делать такую штуку?
( подставлять не только значения полей, но и сами поля и таблицы)

Код

my $sth->do( 'insert into ? ( ?, ?) values (?, ?)',                                  $self->{'users'}{'table'},                                   $self->{'users'}{'user'},                                   $self->{'users'}{'pass'},                                   $user,                                  $self->crypt_pass($pass, $user)     ) or return undef;

Цитата(Vaneska @ 13.4.2005, 10:21)

Да, кстати, в DBI можно ли делать такую штуку?

Не проще ли проверить а потом спрашивать?

Цитата(Vaneska @ 13.4.2005, 10:21)

Подскажите, как лучше это сделать?

Код

my $sth = $dbh->prepare('SELECT LAST_INSERT_ID()'); $sth->execute();     my $id = $sth->fetchrow_arrayref()->[0];      $sth->finish();

Но только для MySQL

спасибо.

Цитата(Phoinix @ 13.4.2005, 10:29)

Не проще ли проверить а потом спрашивать?

К слову добавил. А проверить-то проверю, вот только код надо сначала дописать

Цитата(Vaneska @ 13.4.2005, 10:50)

А проверить-то проверю, вот только код надо сначала дописать

Доки почитал, проверил... судя по всему нельзя так . А жаль, красиво получалось...

Результат:

Код

sub set_user {   my ($self, $user, $pass) = (shift, shift, shift);     return undef unless $self->check_user($user);                my $sth->do( 'insert into '.$self->{'users'}{'table'}.' ( '.                              $self->{'users'}{'user'}.', '.                              $self->{'users'}{'pass'}.                              ')values (?, ?)',                              $user,                              $self->crypt_pass($pass, $user)     ) or return undef;        $sth = $dbh->prepare('SELECT LAST_INSERT_ID()');    $sth->execute() or return undef;            return $sth->fetchrow_arrayref()->[0];     }

Подставлять значение имени таблиц нельзя, разве что делая это программным методом, то есть менять значение переменной.

Спасибо. Я уже разобрался.
Сделал так:

Код

$self->{'dbh'}->do( 'insert into '.$self->{'tbl_users'}{'table'}.' ( '.                  $self->{'tbl_users'}{'user'}.' , '.                              $self->{'tbl_users'}{'pass'}.                              ' ) values ( ? , ? )', undef,                 $user,                              $self->crypt_pass($pass, $user)     ) or return undef;

Это сообщение отредактировал(а) Vaneska - 10.5.2005, 17:29

Такой способ не катит... тут нужно дополнительный селект делать, что не отличается от того способа, что предложил автор топика и сказал что его он не устраивает.

DBI позволяет получать ID последней вставки с помощью метода last_insert_id;

Вот только я не знаю как им воспользоваться.,.. Кто знает как?

Вот вырезка о нем со CPAN



Я пытался, но у меня что-то ничего не получилось. Может кто ни будь знает как этим воспользоваться?

чё вы извращаетесь???

вот:

СУпер! Спасибо. Повышаю репутацию )