auto_increment не устанавливает значение для первичного ключа?

Question

Я сбит с толку, когда использую терминал (mysql) и вставляю в username, account_password столбцы user_id AUTO_INCREMENTS, как и положено.

мой стол:

        CREATE TABLE users (
  user_id int NOT NULL  AUTO_INCREMENT,
  user_type VARCHAR(20) NULL,
  creation_date TIMESTAMP NOT NULL,
  username VARCHAR(100) NOT  NULL,
  account_password VARCHAR(255) NOT NULL,
  PRIMARY KEY (user_id)
);

пока я использую этот скрипт:

use strict;
use warnings FATAL => 'all';# good for debugging, FATAL kills program so warnings are more identifiable
use CGI qw/:standard/;
use CGI::Carp qw(fatalsToBrowser); # good for debugging, sends info to browser
use DBI;
use DBD::mysql;
use Digest::SHA qw(sha256);

print header, start_html;
my $fName    = param('firstName');
my $lName    = param('lastName');
my $compName = param('compName');
my $email    = param('email');
my $pswrd    = param('password');
my $cnfPswrd = param('confPassword');
my $encpswrd = "";

#check passwords match, if not display error, and exit script
if ($pswrd eq $cnfPswrd) {
    $encpswrd = sha256($pswrd);
} else {
    print "Passwords did not match! refresh form!";
    exit;
}

#database credentials, to be changed accordingly
my $database = "intsystest";
my $host     = "localhost";
my $user     = "root";
my $pw       = "password";
my $dsn      = "dbi:mysql:$database:localhost:3306";

#connect to database
my $dbh      = DBI->connect($dsn, $user, $pw,
                           { RaiseError => 1 }) or die "unable to connect:$DBI::errstr\n"; # <- this line good for debugging

#create, prepare, execute query, disconnect from DB
my $personsQuery = "INSERT INTO persons (first_name, last_name) VALUES (?,?)";
my $compQuery    = "INSERT INTO company (company_name) VALUES (?)";
my $usersQuery   = "INSERT INTO users (username, account_password) VALUES (?,?)";

my $sth   = $dbh->prepare($personsQuery); 
$sth->execute($fName, $lName);
$sth      = $dbh->prepare($compQuery);
$sth->execute($compName);
$sth      = $dbh->prepare($usersQuery);
$sth->execute($email, $encpswrd);
$dbh -> disconnect;

# additional processing as needed ...

print end_html;

Я получаю эту ошибку:

 DBD::mysql::st execute failed: Field 'user_id' doesn't have a default value at /usr/lib/cgi-bin/compSignUpDBCGI.pl line 44.

Я предполагаю, что, скорее всего, что-то не так с обработчиком. Чего мне не хватает ??

Answer 1

Если ваша таблица persons имеет внешний ключ к таблице users, вам нужно сначала вставить запись users, затем получить идентификатор новой записи users и добавить его в SQL для вставкиpersons запись.

Примерно так:

my $usersQuery   = "INSERT INTO users (username, account_password) VALUES (?,?)";
$sth      = $dbh->prepare($usersQuery);
$sth->execute($email, $encpswrd);

$sth = $dbh->prepare('SELECT user_id FROM users WHERE username = ?');
$sth->execute($email);
my $user_id = $sth->fetch->[0];

my $personsQuery = "INSERT INTO persons (user_id ,first_name, last_name) VALUES (?,?,?)";
$sth   = $dbh->prepare($personsQuery); 
$sth->execute($user_id, $fName, $lName);

Это область, в которой DBIx :: Class определенно облегчит вашу жизнь.