SQLiteで自動でインクリメントするカラムを定義するには
「カラム名 INTEGER PRIMARY KEY」
という風にしてCREATE TABLEします。下が例になります。下の例ではカラム名IDXという名前のオートインクリメントされるカラムを定義しています。下のサンプルで作成されたテーブルにINSERTするとIDXは自動でインクリメントされていきます。インサートするたびに１，２，３・・・と勝手にインクリメントされるわけです。ユニークな値ですのでこれをキーとして利用したりします。最後のほうのバグ回避のおまじないは現在のバージョンのSQLiteに不具合があるらしくらしくクローズエラーになるのでハンドルをundefで開放してあげています。やらないとエラーが表示されますが動かないというわけではないようです。
#!/usr/bin/perl
#
# テスト用テーブルTEST_TBLを作成するサンプル
#
#1 IDX INTEGER PRIMARY KEY,
#2 NAME
#3 ADDR
#
use DBI;
my $mydb = "TEST.DB";
my $hDB = DBI->connect(
"dbi:SQLite:dbname=$mydb","","",{PrintError=>0}
);
if(!$hDB){
print "$DBI::errstr \n";
exit(-1);
}
my $sql = "CREATE TABLE TEST_TBL(
IDX INTEGER PRIMARY KEY,
NAME,
ADDR
)";
my $hst = $hDB->do($sql);
if(!$hst){
print $hDB->errstr . "\n";
exit(-1);
}
$hDB->disconnect;
そして、データをINSERTした直後にこのIDXの値が欲しい場合があります。INSERTした後にSELECTして取り出すのは面倒です。そういう場合は、「last_insert_rowid」を使います。
これで、INSERTしたデータに割り振られたIDXの値を取得可能です。
下が例になります。
#!/usr/bin/perl
#
# TEST_TBLにインサートするサンプル
#
#1 IDX INTEGER PRIMARY KEY,
#2 NAME
#3 ADDR
#
use DBI;
#DBファイル名
my $mydb = "TEST.DB";
#DB接続
my $hDB = DBI->connect(
"dbi:SQLite:dbname=$mydb","","",{PrintError=>0,AutoCommit=>0}
);
#エラーチェック
if(!$hDB){
die $DBI::errstr,"\n";
}
#データ挿入のSQL文
my $SQL = "INSERT INTO TEST_TBL VALUES(NULL,?,?)";
#BEGIN
$hDB->do('BEGIN');
#バインド
my $hst = $hDB->prepare($SQL);
#エラーチェック
unless($hst){
die $hDB->errstr,"\n";
}
#インサート実行
my $retval = $hst->execute("TANAKA","EHIMME");
$hst->finish();
#エラーチェック
unless($retval){
die $hDB->errstr,"\n";
}
#COMMIT
$hDB->do('COMMIT');
my $ret = $hDB->func('last_insert_rowid');
#バグ回避おまじない
undef $hst;
#切断
$hDB->disconnect;
print "IDX:$ret\n";
色々と手抜きが有りますが、INSERT時にエラーが発生した場合、本来はrollbackとかするべきです。
上のサンプルを使って、テーブルを作成し、インサートのほうのサンプルを何回も実行するとIDXの値がインクリメントされて行くのがわかります。
