SQLite3 の様々な言語での利用

use strict;
use warnings;
use DBI;

my $db="test.db";
my $dbh=DBI->connect("dbi:SQLite:dbname=$db");

# テーブル作成
my $sql="create table if not exists test_table_pl (id int, name, age int, gender)";
$dbh->do($sql);  # 戻り値がない場合は do で実行
#my $kth=$dbh->prepare($sql);
#$kth->execute();

# placeholder によるデータの挿入
$sql    ="insert into test_table_pl values (?,?,?,?)";
# placeholder を用いる場合及び戻り値がある場合は,
# prepare -> execute で実行
my $sth =$dbh->prepare($sql);
my @vls =(1,'hoge',20,'m');
$sth->execute(@vls);

# 切断
$dbh->disconnect;

use strict;
use warnings;
use DBI;

my $db='test.db';
my $dbh = DBI->connect("dbi:SQLite:dbname=$db");

# select 文
my $sql = "select * from test_table_pl order by id";
my $sth = $dbh->prepare($sql);
$sth->execute();

# データの取り出し
while(my @row=$sth->fetchrow_array) {
  print join("\t",@row)."\n";
  print $row[0]."\n";
}
# hashref で取り出せる(が, 一回とると空になる)
while(my $row=$sth->fetchrow_hashref) {
  print $row->{id}."\t".$row->{name}."\n";
}

import sqlite3
con = sqlite3.connect("test.db")
cur = con.cursor()

sql = "create table if not exists test_table_py (id int, name varchar(64), age int, gender varchar(32))"
cur.execute(sql)

sql = "insert into test_table_py values (?,?,?,?)"
vls = (1,'hoge',20,'m')
cur.execute(sql,vls);

con.commit()  # 変更の保存
con.close()

import sqlite3

con = sqlite3.connect("test.db")
cur = con.cursor()

sql = "select * from test_table_py order by id";
cur.execute(sql)

result = cur.fetchall()
for row in result:
    # tuple で返ってくる
    print(row)
    print(row[0])

require 'sqlite3'

db = SQLite3::Database.new("test.db")

sql = "create table if not exists test_table_rb (id int, name varchar(64), age int, gender varchar(32))"
db.execute(sql)

sql = "insert into test_table_rb values (1,'hoge',20,'m')"
db.execute(sql)

sql = "insert into test_table_rb values (?,?,?,?)"
vls = [2,'fuga',30,'f']
db.execute(sql,vls)
# db.execute(sql,2,'fuga',30,'f')
db.close

require 'sqlite3'

db = SQLite3::Database.new("test.db")
sql = "select * from test_table_rb order by id"
db.execute(sql) { |id,name,age,gender|
  print "#{id} #{name}\n"
}
# こんなふうにも書ける
db.execute(sql) do |row|
   puts row.join("\t")
end
# 選択結果を hash で得る
db.results_as_hash = true
db.execute(sql) do |row|
   puts row
   puts row["name"]
end
db.close

using SQLite

db  = SQLite.DB("test.db")
sql ="create table if not exists test_table_jl (id int, name, age int, gender)"
SQLite.query(db,sql)

sql = "insert into test_table_jl values (1,'hoge',20,'m')"
SQLite.query(db,sql)
# SQLite.execute!(db,sql)  # これでも良い

# placeholder を使った書き方
sql = "insert into test_table_jl values (?,?,?,?)"
stmt = SQLite.Stmt(db,sql)  # prepare みたいなもん
vls=[2,"fuga",22,"f"]
SQLite.bind!(stmt,vls)
SQLite.execute!(stmt)

using SQLite
db  = SQLite.DB("test.db")
sql ="select * from test_table_jl order by id"
ext = SQLite.query(db,sql)
println(ext)

library("RSQLite")

con <- dbConnect(SQLite(),"test.db",synchronous="off")
sql <- "create table if not exists test_table_R (id int, name text, age int, gender text)"
dbSendQuery(con, sql)

sql <- "insert into test_table_R values (1,'hoge',20,'m')"
dbSendQuery(con,sql)

# placeholder を使うとき.
# select でも同じ感じで出来るっぽい.
# sql <- "select * from ..." になるだけ. dbSendQuery でいける see help(dbBind)
sql <- "insert into test_table_R values (?,?,?,?)"
res <- dbSendQuery(con,sql)
dbBind(res, c(1,'fuga',22,'f'))
dbFetch(res)
dbDisconnect(con)

library("RSQLite")
con <- dbConnect(SQLite(), "testR.db", synchronous="off")
dbWriteTable(con,"iris",iris)  # iris のデータを "iris" table 内に入れる
sql <- "select * from iris order by 'Sepal.Length' limit 5"
res <- dbGetQuery(con,sql)
res

library("RSQLite")
con <- dbConnect(SQLite(), "test.db", synchronous="off")
sql <- "select * from test_table_R order by id"
res <- dbGetQuery(con,sql)
res
dbDisconnect(con)

var sqlite3 = require('sqlite3')
sqlite3.verbose();
var file='test.db';
var db = new sqlite3.Database(file); // file の代わりに :memory: だとメモリ上に作成
db.serialize(); // 非同期を解除
db.on('error', function(err) {console.error(err); process.exit(1); });
var sql='create table if not exists test_table_js (id int, name text, age int, gender text)';
db.run(sql);
sql = 'insert into test_table_js values (?,?,?,?)';
db.run(sql,1,'hoge',20,'m');

/* 以下のように hash でアクセスもできる
var sql = 'insert or ignore into test_table_js (id,name) values ($i,$n)';
du.run(sql,{$i:3, $n:'fuga'});
*/

var vls = [2,'foo',22,'f'];
db.run(sql,vls);
db.close();

var sqlite3 = require('sqlite3');
var file = 'test.db';
var db   = new sqlite3.Database(file);
db.serialize();
db.on('error',function(err) {console.error(err); process.exit(1); });

var sql  ='select * from test_table_js order by id';

// ひとつずつやる場合
db.each(sql,clbk01);

function clbk01(err,row) {  // row: 一つの結果行が返る
    //console.log(row.id+"\t"+row.name+"\t"+row.age);
    if (err) throw err;
    console.log(row)
}

// 全件とりだしてからなんかやる場合
// プレースホルダ使える(上の each でも同様に使える)
sql ='select * from test_table_js order by ?';
db.all(sql,'id',clbk02);

function clbk02(err, rows) { // rows: 結果全部の行が戻る
   if (err) throw err;
   rows.forEach(function(row) { console.log(row); });
}