「SQLite」の記事 - Crieit

スキャンレーション

2022-01-08T16:27:09+09:00

scanlation について

スキャンレーション（ scanlation ）で検索すると、その言葉の定義から、ガイドラインやチュートリアル、または役割名称や、その広報的なサイトの情報がたくさんある。

今は活動していないスキャンレーションのグループ名と、そのプロファイルのページのデータベース (sqlite file)。

https://www.mediafire.com/file/qlse91vdwyletgx/scanlation-g.db/file

https://www-mangaupdates-com.translate.goog/aboutus.html?_x_tr_sl=en&_x_tr_tl=ja&_x_tr_hl=ja&_x_tr_pto=nui

過去に翻訳されたタイトルのオリジナルの和名とそれ以外の対照を作りたい場合は有効かもしれないし、そうでもないかもしれない。

著作権がらみで問題のあるコンテンツのダウンロード情報や、データ自体は含まないと宣言されているサイトから全てのスキャンレーショングループのプロファイルページの所在を抽出してから、各プロファイルページにアップデートしてアーカイブされている翻訳済みの漫画の英語タイトルを抽出すれば、プロファイルされたスキャンレーションングループについては、全ての翻訳漫画タイトルを知れるということになる。
抽出の方法はグループのプロファイルページの所在、プロファイルページ内にある翻訳したシリーズ名、日時という順にたどると効率が良さそう。

1: タイトルを考えるのが面倒な scanlation groups counter プログラム Python link

2: a , b
2つのデータベースをマージする Lua プログラムサンプル link :[ 依存関係 lsqlite3 https://github.com/LuaDist/lsqlite3/blob/master/examples/smart.lua]

１.１.１.１
https://en.m.wikipedia.org/wiki/1.1.1.1

スキャンレーションは海賊サイトのエコシステムの一環で、フェーズとしてはオンラインでの海賊配信の水際に位置していると考えられる。
２次創作漫画画像を作るために、漫画をスキャナーでスキャンする必要があるわけだが、漫画を入手してスキャンし、アップロード ① してダウンロードアドレスを告知する ② ということをしているというところが、ボトムで、スキャンレーションの作業のエントリーポイントにもこの行程が不可欠。
スキャンしてアップロード ① する人は必ずしもスキャンレーションチームにしかいないわけではないが、アップロードされたスキャン済み画像をダウングレード ③ して海賊配信 ④ していたり、スキャン画像をクリーンアップして翻訳、タイプセットして、翻訳版の海賊配信サイトにアップロード ⑤ していたりと、それぞれに直接関係があったり無かったりするのだろうけども、スキャンレーションという枠では、ひとまとまとまり情報として関係性が見える。例えば、このグループがここ ④ へアップロード ⑤ した等。

④ のサイト群については、正当な方法（カドカワ的に「インターネット上の海賊版対策に関する検討会議　第9回会合　平成30年10月15日　議事録[^0]」）similarweb¹² ³で横並びに見えるもののことを主に指すようだが、ボトムアップから見るとすると、行為とモチベーション度に着目する⁴とスキャンレーションのサイドからたどると動線も把握できる。スキャンレーションのさらに二次コピーなどが ④ に回収されて公開されている場合もあるだろう。トラフィックの大きさは、配信自体の技術に左右されるので、着目される経済的損失について語られるのはトラフィックの大きな上流の方のことだと思われる。漫画 BANK は ④ に含まれる（すでにアップロードされて海賊配信されているサイトからの画像流用）。

これは想像なのでイマジネーションは図にした方がいい。

https://fanlore.org/wiki/Scanlation_Process#General_Process

参考: https://kknews.cc/comic/moz43xz.html

https://kknews-cc.translate.goog/comic/moz43xz.html?_x_tr_sl=zh-CN&_x_tr_tl=ja&_x_tr_hl=ja&_x_tr_pto=nui

http://onepiece.ria10.com/Entry/3752/

https://www2.accsjp.or.jp/thanks/thanks39.php

https://www.neliti.com/publications/326921/accuracy-of-english-indonesian-scanlation-of-detective-conan-manga-as-compared-t

3: link

1:link / 2:link / 3:link とプログラムにせっせと、動いてもらって 3 をポチッとしてから翌日起きて、途中で止まってると思ってたら、朝になっても昼前まで止まらない量のデータをせっせと書き込んでいた。
カウンターは 106000 を越えていて、なんか無理しているなぁと思いつつ、そのわきで次のプログラムを書きはじめて、

4:link　を書いた。

たぶんこれも明日もお昼までうごいているんではないか。

https://www.oreilly.co.jp/books/9784873113487/

漠然とした中での目的としては、翻訳された（おそらく勝手に）漫画のタイトルからオリジナルのタイトルを知りたいのと、その他の言葉でのタイトルを眺めたいので、そうするとどうやって組み上げたらいいのかなということをやってみたい。

ということで、まずスキャンレーショングループが過去から現在まで翻訳したシリーズになった（単行本とかのことだと思われる）ものをカウントアップするために、まずグループのリストを作る。これが 1:link のコード。
1:link でできたリストのなかには、グループについてのプロファイリングされた個別のページのアドレスがあり、このプロファイリングされたページ上にグループの翻訳したシリーズがリストアップされている。
1:link で作れるデータベースを複数足し合わせるのが 2:link のコード。なぜ、Lua なのか、コンパクトで速いから。同じように他の言語で書いて同じような速度かもしれないが、コードを見れば、見える通りのことなのでシンプル。遅くはない。

hy (clojure lisp 風 Python) 言語に合わせて 2:link と同じものを Lua の Lisp 風言語 fennel に直してみると

2:link fennel

Vim だとプラグインを設定しないとちょっと難しい感じだけど、kakoune だとデフォルトで色分けはしてくれる。どうなってるんでしょう。vis editor も。

プロファイルされたページのシリーズタイトルを足し合わせて記録していくのが 3:link のコード。Python だが hy 言語。今のところ hy で書くメリットは分かりやすさ。
SQLite のバインドも Python 独自のものなので、select して　execute されて戻ってくるデータが空のときどうやって空のデータを比較できるのかというところが言語とバインドによって違うので、そこは注意しなくてはいけない。Lua の場合は、空の場合は素通りで、値を判定する式自体を無視するよう、そのことを分かっていたらシンプル。

例えば、

local smt1 = "SELECT id FROM tbl_scanlation ORDER BY id DESC LIMIT 1 ;" 

local last1 = 0

for id in db1:urows(smt1) do
    last1 = id
end

これは Lua バインドで sqlite3 データベースの tbl_scanlation というテーブルのデータの中の primary キー連番 id 番号の最後の int 値を取り出す式を実行して last1 に代入したい箇所だが、テーブルの中にデータが入ってなければ local last1 = 0 で初期化している値が入る。 nil とか -1 とかにはならない。python や Ruby 、 go や nim など、またそれぞれ違うので、いろんな別の言語にて書き換える場合は、無い場合どういう値が入るのかよく調べなければいけない。SQLite3 自体では返ってくる値は決められているが、その値に対する値は、バインドによって書き換えられて処理されているようなので。

3:link で出来上がるデータベースの件数は三万件くらいだろうかと思っていたが、10 万件以上だった。SQLite の場合は扱える数はそれ以下のはずだが、無理でもできるとこまででいいのでがんばってもらう。

4:link の様子。お昼になっても終わっていない。

一週間くらい経ってる気がするが、VALID データが 96,426 。つまり、中国、韓国、日本の漫画がスキャンレーショングループによって、それだけの数は翻訳されている。
sqlite3 database file
https://we.tl/t-xUEh2MPRcF

資料7 https://www.kantei.go.jp/jp/singi/titeki2/tyousakai/kensho_hyoka_kikaku/2018/kaizoku/dai9/gijisidai.html ↩︎
https://en.globes.co.il/en/article-similarwebs-controversial-route-to-wall-street-1001376912 ↩︎
These Chrome extensions spy on 8 million users 31 Mar 2016 https://mweissbacher.com/2016/03/31/these-chrome-extensions-spy-on-8-million-users/ ↩︎
https://www.reddit.com/r/scanlation/about/ ↩︎

ある一つのサイトについての

2022-01-07T12:34:32+09:00

思い出

過去 6 ヶ月間、ひたすらひとつの違法マンガサイトを見ていた。

ずっと見ていたのは公開されたマンガコンテンツではなく、サイト運営者が作ってるデータをひたすら見ていたので、11 月の 4 日、15 時くらいにサイトをたたんだのを確認した。¹

おそらくこの翻訳記事 2021年11月04日 14時00分

Manga Publisher Wants to Sue Huge Piracy Network, Needs Google's Help * TorrentFreak
https://torrentfreak.com/manga-publisher-wants-to-sue-huge-piracy-network-needs-googles-help-211101/

注) 'Shueisha’s application and proposed orders/subpoenas can be found here (1,2,3,4 pdf)' の書類が興味深い。

https://gigazine.net/news/20211104-manga-shueisha-googles-piracy-mangabank/

が公開されたことで、サイト運営者が違法性を自認して、サイト閉鎖を決定したのではないかと思われる。

2021.12月中頃、mangabank.org とはまた別のドメインで再開している。
画像ファイルのあるアドレスのドメインを whois したところ、cloudflare の管轄のホストではなさそうな感じ。

過去に書いたこのような記事は、当時、宣伝につながらないように配慮して明記しなかったが、全て漫画 BANK についてのことだった。

以下、2021年11月04日以前

https://qiita.com/dauuricus/items/563cbcc9776f66cb672e

6 月の時点では 5 万ページぼどだと思っていたが 10 月には 6 万ページ以上あることがわかった。

この 6 万ページというのはマンガコンテンツの漫画の総ページ数のことではなくて、URL のことで、そのひとつの URL に 30 点から 300 点ぐらいの画像ファイルの URL が埋め込まれている。
その画像一枚が、漫画のスキャン画像ファイルの一点に相当する。

画像点数にすると、空想すると数えたことないおおきな数になるので、いずれいつか数えようと数えなかったが、その 6 万ページについては著者 / 漫画のタイトル / 公開されていた URL / アップデート日時の情報 / 付与されていたタグのデータのセットを記録した。

スキャン画像のファイルが漫画 BANK の見ているページに読み込まれるようにページのソースの中に URL が埋め込まれていて、観測した限りのその URL は、全てが cloudflare がホスティングしているドメインだった² ( 2021年 7月の調べ )

これが全てではないが、数千のアドレスから集計すると、こちらのドメインに収束した。

0  ssl.appx.buzz

1  ssl.asiax.cloud

2  ssl.stagingy.store

3  ssl.lsw.buzz

4  ssl.advx.cloud

5  ssl.appuru.store

6  ssl.lss.buzz

7  ssl.remon.store

8  ssl.lsq.buzz

9  ssl.lsb.buzz

10  ssl.appsx.cloud

11  ssl.lsh.buzz

12  ssl.raichi.store

13  ssl.lsr.buzz

14  ssl.akaax.com

15  ssl.axax.cloud

16  ssl.lsk.buzz

17  ssl.lsy.buzz

18  ssl.zqap.cloud

19  ssl.skyly.cloud

20  ssl.akax.cloud

21  ssl.zmqx.cloud

22  ssl.lssaq.cloud

23  ssl.lsm.buzz

24  ssl.nexc.store

参照:　🥝ページの中から lazy load の画像 URL を抽出する。

画像の著作権情報³と、公開されている cloudflare のドメインの画像ファイルアドレスのリストがあれば、すんなり停止できるのだろうなと⁴考えていたが、ずいぶんとほったらかしているな、あれ ? ゼンゼンナニモシナイノ ? と不思議に思えた。
たしか 2019 年⁵までサイトブロッキング⁶しかない!⁷ という主張さえあったのだが⁸、その前にどこまでどうしたのかは、主張からはさっぱりわからないので、「どこまでどうできるのか」がずっと気にかかっていた。

サイトブロッキング法制化、中間まとめは先送り
浅川直輝日経 xTECH／日経コンピュータ
2018.09.20
https://xtech.nikkei.com/atcl/nxt/column/18/00001/01044/

朝日新聞デジタル
海賊版サイト対策、まとまらず　検討会議は無期限延期に
上田真由美川本裕司 2018年10月16日 0時10分
https://www.asahi.com/articles/ASLBH5W88LBHUCLV00L.html

過去のしりきれとんぼになっているインターネット上の海賊版対策に関する検討会議　第9回会合　議事録を読んでいると　とりまとまらない報告となった理由が熱くて面白かった。「両論併記をしない」という主張についての理由が議事録には残っている。

Rf.インターネット上の海賊版対策に関する検討会議　第9回会合　議事録

https://www.kantei.go.jp/jp/singi/titeki2/tyousakai/kensho_hyoka_kikaku/index.html

Mangabank “Suffers DDoS Attack” & Disappears Following Legal Action
November 9, 2021 by Andy Maxwell

https://torrentfreak.com/mangabank-suffers-ddos-attack-disappears-following-legal-action-211109/

注) 'A declaration filed with the court by Shueisha ( pdf ) contains a copy of Cloudflare's response to the DMCA subpoena filed earlier this year.' のところが興味深い。

翻訳

漫画 BANK のアップロードして公開されていたタイトル名には命名規則があり、文字列抽出して、タイトルから検索して、間違った書籍情報をひっぱってくるものを選んでよくみると、簡単な間違いをしているものがあった。そして、これは間違いようなさそうなスペル間違いだったりなので、なにか、その前の段階 ? のもとで間違っていて、改正すると整合がとれないので、そのままにしているのではないかと思われた。
なにと比べるのか。
つまり、コピーしてきて、世の中では、そのタイトル名が通用していて、それは、オリジナルのタイトルからすると間違っているが、ファイル名としては正しいというような場合が考えられる。

つまり、コピーなのだと思う。自らスキャンして、自らファイル名をつけて、アップロードしてるわけではないという場合、そうなるかなと思う。
そう考えると、そのファイル名で、普通に検索すると、同じ間違ったタイトル名がひっかかるので、そいうことなのだ。

だとするならば、なんらかの理由で漫画をスキャンしてアップロードする人間がいて、それを告知する、そしてそのデータを加工するなどする人間がいるというエコサイクルのなかで、ネット上のアップロードファイルから回収されたものを展示しているということになるので、そのセレクトセンスによって傾向がみられるということである。
かなり古い漫画も選ばれていて、そのタイトルを知っているということは特徴的でもある。

とはいえ、興味は運営者が誰なのか...というところには全く無く、データがどうなってんのかな? どういう風に作ってるのかな? 全部のデータはいくつあるのか知るにはどういうアプローチでやるのかなというところに重点があり、ではどこから来たデータで、どういうモチベーションで出てきたファイルなんだろうかということに疑問をもちはじめた。

なんらかのモチベーションで日本の漫画をスキャニングし、ネットワークにアップロードする行為から始まり、ローカライズ（翻訳）し、漫画の言語を替えて、きれいに文字をのせて公開する一連のことを、スキャンレーションと呼んでいるらしい。

ある一つのサイトについての　現在へつづく

せきららなコード（ちょっと古くなってるけど、今の状況に合わせて少しだけ修正したら使える）

https://kuroca.hatenablog.com/

Docker で PHP + SQLite3 の開発環境を構築する

2021-05-01T13:26:57+09:00

SQLite を試験したくなったので、環境を Docker で作ることにしました。

ベースは CentOS7 + Apache + PHP7 (Composer, Xdebug) の開発環境を Docker で作るで。

構成

ディレクトリ構造

PROJECT_ROOT/
    │
      # 略
    │
    ├ sqlite/
    │
      # 略

SQLite 用のディレクトリを掘っただけで、後は同じです。

docker-compose.yml

version: '3.8'
services:
  web:
    build:
      context: ./apache/docker
      dockerfile: Dockerfile
      args:
        # 略
        SQLITE_TABLENAME: $SQLITE_TABLENAME
    labels:
      lamp.sqlite.php: "SQLite PHP"
    volumes:
      # 略
      # sqlite
      - ./sqlite:/var/sqlite/
      # 略
    entrypoint: bash -c "bash /workspace/entrypoint.sh $WEB_ROOT_DIRECTORY $WEB_DOMAIN $WEB_HOST_PORTNUM $WEB_CONTAINER_PORTNUM $WEB_HOST_PORTSSL $WEB_CONTAINER_PORTSSL $SQLITE_TABLENAME && /bin/bash"

docker-compose.yml も大部分は同じです。変数(SQLITE_TABLENAME)とボリュームがそれぞれ1つ増えたのと、 entrypoint へ渡す引数が1つ増えたくらいです。

.env

WEB_ROOT_DIRECTORY=sample_sqlite
WEB_DOMAIN=lvh.me
WEB_HOST_PORTNUM=8080
WEB_CONTAINER_PORTNUM=80
WEB_HOST_PORTSSL=4043
WEB_CONTAINER_PORTSSL=443
SQLITE_TABLENAME=maindb

上述の通り、 SQLite のファイル名を決める変数が増えました。

apache/docker/Dockerfile

FROM centos:centos7

# 略

# enable repository remi & remi-php74
RUN yum-config-manager --enable remi && yum-config-manager --enable remi-php74
# php
RUN yum -y install php php-devel php-pdo php-mysqlnd php-mbstring php-gd php-pear php-pecl-apc-devel zlib-devel php-xml php-mcrypt php-pecl-xdebug
# sqlite
RUN yum -y install sqlite sqlite-devel
# disable repository remi & remi-php74
RUN yum-config-manager --disable remi && yum-config-manager --disable remi-php74

# 略

# volume directory
RUN mkdir /template
RUN mkdir /var/www/${WEB_ROOT_DIRECTORY}
RUN mkdir /var/www/${WEB_ROOT_DIRECTORY}/web
RUN mkdir /workspace
RUN mkdir /var/sqlite

こちらも概ね同じ。 PHP のインストール直後に sqlite, sqlite-devel をインストールしています。また、最後にボリュームとしてマウントするディレクトリを作成しています。

workspace/entrypoint.sh

# 略

# make sqlite file & create dummy table
if [[ ! -e /var/sqlite/${7}.sqlite3 ]]; then
    echo ".exit" | echo "create table testtable(one varchar(10), two smallint);" | sqlite3 /var/sqlite/${7}.sqlite3
fi

# Apache start
/usr/sbin/httpd -DFOREGROUND &

entrypoint も同様ほぼ同じですが、 Apache 起動前に「もし SQLite のデータファイルが該当ディレクトリにない場合は作成」の処理を追加しました。テーブルがないとファイルが生成されなかったので、ダミーテーブルも CREATE しています。

検証

上述で構築された SQLite にダミーデータを流し込んでテストしてみます。

# sqlite3 /var/sqlite/maindb.sqlite3

sqlite> insert into testtable values('hello', 10);
sqlite .exit
#

まずはダミーテーブルにダミーデータを INSERT します。

setAttribute(PDO::ATTR_ERRMODE, PDO::ERRMODE_EXCEPTION);
    $pdo->setAttribute(PDO::ATTR_DEFAULT_FETCH_MODE, PDO::FETCH_ASSOC);
    $stmt = $pdo->prepare("SELECT * FROM testtable WHERE two >= :two");
    $stmt->execute([
        'two' => 5
    ]);
    $result = $stmt->fetchAll();
    var_dump($result);
}
catch (Exception $e) {
    echo $e->getMessage() . PHP_EOL;
}

次に上述のような index.php を作成し、Webアクセスします。

/var/www/sample_sqlite/web/index.php:25:
array (size=1)
  0 => 
    array (size=2)
      'one' => string 'hello' (length=5)
      'two' => string '10' (length=2)

結果。これで PHP から PDOオブジェクト経由でダミーテーブルに接続できたので、ひとまず環境構築という点では完了です。

参考

php 7.4をソースからインストール時にchecking for sqlite3 > 3.7.4… no configure: error: Package requirements (sqlite3 > 3.7.4) were not met:
コマンドの途中で聞いてくる yes を自動入力したい？それ yes で出来るよ – 自主的20%るぅる
シェルスクリプトでファイルの存在を確認する方法 | LFI
PHP から SQLite を使う手順 – ラボラジアン
- 最終的には SQLite3オブジェクトからではなく PDOオブジェクトから接続してしまいましたが
PHP + SQLite3 超入門したメモ - Qiita

Flutterで学ぶSQLite

2019-11-02T17:42:17+09:00

sqfliteの導入

pubspec.yamlのdependenciesセクションに以下を追記するだけです. pathパッケージはパスの解決を行います.

sqflite:
path:

前提知識

String Interpolation

変数の前にドルマークを付けることで挿入できます.

int result = 10;
String  result_message = 'The result is $result.'

式も挿入できます.

int a = 10;
int b = 12;
String result_message = 'The sum of a and b is ${a+b}';

パスの生成

パスは文字列型として表ます. ところがOSによってパスの区切り文字が違うなどプラットフォーム依存性を考慮する必要があります. そうしたOS固有の差異を吸収するライブラリが多くの言語の提供されており, Dartではpathライブラリを利用します.

import 'package:path/path.dart' as path;
path.join('path_to_directory', 'file.text');

こうすることでプログラムを動かすOSに応じた区切り文字で自動的にパス文字列を生成してくれます.

SQLiteとは?

SQLiteの公式サイトからいくつか引用しましょう.

Do not be misled by the "Lite" in the name. SQLite has a full-featured SQL implementation, including:

A database in SQLite is a single disk file

SQLite is an in-process library that implements a self-contained, serverless, zero-configuration, transactional SQL database engine.

SQLite is an embedded SQL database engine.

SQLite reads and writes directly to ordinary disk files.

まとめると以下のような感じでしょうか.

SQLのサブセットではない.
サーバーレス
組み込み用
単一のディスク・ファイルで構成される
通常のディスク・ファイルを利用する

サーバーを立てるなど余計な処理がないのでSQLの入門として良いのかもしれません.

FlutterアプリのためのSQLite

データ型

公式ドキュメントには以下のような説明があります.

SQLite uses a more general dynamic type system. The dynamic type system of SQLite is backwards compatible with the more common static type systems of other database engines...

SQLiteは動的な型ですので, 厳密にはデータ型と言えるものはないようです. ただ他のSQL文と互換性のためにデータ型を指定できるようです. あまり深く考えずに使っていきましょう.

データ型	説明
NULL	欠損値ののように値が存在しないことを示す
INTEGER	整数型
REAL	浮動小数点型
TEXT	文字列型
BLOB (Binary Large OBject)	バイナリデータ

Type Affinity

The type affinity of a column is the recommended type for data stored in that column.

公式の説明によると推奨される型のようです. 推奨される型のようです. SQLite独自っぽいのでそんなのもあるぐらいで良いのかもしれません.

sqflite

Flutter用のSQLiteプラグインとしてsqfliteがあります.

import 'package:sqflite/sqflite.dart' as sqflite.;

データベースの作成と接続

SQLiteは単一のディスク・ファイルとして作成されます. つまり通常のファイルを開くのと同じような処理になります. すでに同名のデータベースが存在する場合はそのデータベースに接続されます. 生成と接続は区別されません.

sqlite3 my_database.db

sqfliteではopenDatabaseを利用します.

Future db = openDatabase('my_database.db', version: 1);

Flutterはマルチ・プラットフォームのUIツールキットです. AndroidとiOSではファイルの構成などは当然違います. getDatabasesPathでデータベースの保存フォルダへのパスを取得できます.

// Create an absolute path to databse
final database_name = 'your_database.db';
final database_path = getDatabasesPath();
final String path_to_db = path.join(database_path, database_name);

// Open or connect database
final Future database = await openDatabase(path_to_db);

データベースの削除

final database_name = 'your_database.db';
final database_path = getDatabasesPath();
final String path_to_db = path.join(database_path, database_name);

// Open or connect database
final void result = await deleteDatabase(path.join(await getDatabasesPath(), 'doggie_database.db'));

テーブルの作成とSQL

Q. テーブルとは?

リレーショナル・データベースのデータはテーブルという形式で表現されます.

column 1	column 2	column 3	column 4
field	field	field	field

普通のテーブルを想像すれば良いです. ラベルに当たる部分をカラム(Column)と呼びます. これはその下に保存されるデータを表す名前です. カラム1から4までの組みあわせ, つまり一行をロウ(Row)もしくはレコード(Record)と呼びます. そしてレコードの各要素をフィールド(Field)と呼びます.

構造体をレコード, 各メンバ変数をフィールドと呼ぶ言語もあったりする馴染みのある人もいるかもしれません. そういう意味ではテーブルは構造体を定義するのに似ています. 構造体やクラスなどのデータをレコードに永続化したものをエンティティと呼んだりするようです.

Q. テーブルの作成

データベースに対する指示はSQL(Structured Query Language)という言語を用いて行います.

CREATE TABLE Student (
  id INTEGER PRIMARY KEY AUTOINCREMENT,
  name TEXT
)

SQLのコマンドは全て大文字で記述されている場合が多いのでそれに習います. sqfliteでSQL分の実行するにはexecuteというメソッドを使います.

final String sql = 'CREATE TABLE Student (id INTEGER PRIMARY KEY AUTOINCREMENT, name TEXT)';
db.execute(sql);

openDatabaseにはonCreateという名前付き引数があり, データベースの作成時に実行されるフック関数を渡すことができます. テーブルを作る場合は以下のようになります.

// Create an absolute path to databse
final database_name = 'your_database.db';
final database_path = getDatabasesPath();
final String path_to_db = path.join(database_path, database_name);

// SQL command literal
final String sql = 'CREATE TABLE Student (id INTEGER PRIMARY KEY AUTOINCREMENT, name TEXT)';

// Open or connect database
Future database = openDatabase(
  path_to_db,
  // Create table
  onCreate: (Database db, int versin) async {
    await db.execute(sql);
  }
);

主キーと外部キー

Q. 主キーとは?

Studentテーブルのidにはデータ型以外にPRIMARY KEYという属性が付加されています. 主キーには以下のような特徴があります.

テーブルで1列だけ指定できる
データ値の重複を許さない
NULL値の格納できない (NOT NULL制約)

これはデータに対して付加される条件ということで主キー制約(Constraint)と呼ばれています.

Q. 主キー制約を課す理由

テーブルのレコードを一意に指定するためのようです. Studentテーブルは学生一覧を保持しているのですが, 学生の名前には同姓同名というケースが稀に存在します. つまり特定の学生個人を特定できなくなってしまいます.

name	class
日本太郎	3-B
日本太郎	3-B
西日本花子	3-B
東日本次郎	3-B

カラムを増やして性別や住所といった情報を付加すれば二人の日本太郎を区別することはできますが, 西日本花子や東日本次郎の場合に不要な計算が必要になってしまいます. 主キー制約を課せば重複や欠損値はエラーになるので, 識別子と安心して使えますし不要な条件判断のロジックも不要です.

Q. 外部キーとは?

もう一つは参照値として文字列が適さないからです. 部署名(Departure)のようなテーブルは名前だけでも識別が可能です. 以下のような官僚名簿を考えてみましょう.

name	ministry
大蔵一郎	大蔵省
財務太郎	財務省
財務次郎	財務省

財務省は少し前まで大蔵省と呼ばれていました. 国土交通省や厚生労働省のような省庁合併を伴わないため, (金融庁の扱いが少し変わったようですが)財務省の前進はそのまま大蔵省と言って良さそうです. この改称後に財務太郎と財務一郎さんが入省しました. 今は大蔵省なのは大蔵一郎さん一人なので大蔵省を財務省に書き換えれば良いですが, 人数はもっと多いはずです. この場合以下の問題が生じます.

大量の書き替え作業(手作業)
書き替え時の記入ミスとその修正

偶然何事もなくいく場合もありますが, こうした手動の作業は時間がかかります. ここでministryカラムを省庁(Ministry)テーブルに分離することを考えます.

id	name
001	大蔵省
002	運輸省
003	郵政省

省庁テーブルは主キーを持っています. これを官僚(国家公務員)テーブルから参照するようにします.

name	ministry_code
大蔵一郎	001
財務太郎	001
財務次郎	001

こうしておけば省庁テーブルを大蔵省から財務省に変更するだけなので変更箇所が一箇所ですみます. また記入ミスがあっても発見は容易になります. 省庁テーブルは一種の定数ファイル(テーブル)と考えれば分かりやすいと思います. ハードコードは厳禁なのです(じゃマジック・ナンバーは良いのかというツッコミはやめましょう).

こうした別のテーブルから参照しているカラムを外部キーと言います. この場合ministory_codeは省庁テーブルの主キーを外部キーとして参照しています. 外部キーは主キーである必要はないようですが, 主キーを参照するようにすると重複がないことが保証されるので参照先の候補が多数あるという状況は避けられれそうです.

なお外部キーとして指定されたフィールドは削除できなくなるそうです(外部キー制約).

Q. AUTOINCREMENTとは?

もう一つAUTOINCREMENTという属性が付加されています. この属性を付加するとidは自動的に増えていきます. 例えば新設の国土交通省を追加してみましょう.

id	name
001	大蔵省
002	運輸省
003	郵政省
004	国土交通省

idが一つ増えて004となりました. AUTOINCREMENTを指定するとSQLiteが勝手に数字を増やしてくれます.

CRUDとデータ操作言語(DML)

永続化に関係する基本的な処理をCRUDと言います. これはCreate, Read, Update, そしてDeleteという四つの処理から作った頭文字語です. CRUD処理とSQLiteの対応関係は以下のようになります.

CRUD	SQLite
Create	INSERT
READ	SELECT
Update	UPDATE
Delete	DELETE

SQLではこの右側のコマンドをDML(Data Manipulation Language)と呼んでいます.

Q. INSERT

レコードをテーブルに挿入します.

INSERT INTO Student (id, name) VALUES (1, '東京太郎')
INSERT INTO Student (name) VALUES ('東京太郎')

AUTOINCREMENT指定したフィールドは値を無視してもいいです. sqfliteではrawInsertとinsertという二つのメソッドが用意されています. rawInsertにはSQLリテラルを渡します.

final Database db = await database;
final name = '東京太郎';
final String sql = 'INSERT INTO Student (name) VALUES ${name}';
final int result = await db.rawInsert(sql);

insetは以下のように使います.

final Database db = await database;
final String table_name = 'Student';
final String name = '東京太郎';
Map record = {
  'name': name
};
final int result = await db.insert(table_name, record) ;

Q. DELETE

順番的にはSELECTですが, DELETEの方がシンプルなのでこちらを先に紹介します.

DELETE FROM Student

これを実行すると全てのレコードが削除されます. レコードが一つしかないので同じことですが, 特定のレコードを削除する場合はWHERE句を末尾に付け足します.

DELETE FROM Student WHERE id=1

WHERE句は等号以外にも不等号などの条件も指定できます. INSERT同様にDELETEにも二つのメソッドがあります.

final Database db = await database;
final int id = 1;
final String sql = 'DELETE FROM Student WHERE id = ${id}';
final int result = await  db.rawDelete(sql);

あるいは疑問符を使って, 引数を配列として渡すこともできます.

final Database db = await database;
final String sql = 'DELETE FROM Student WHERE id = ?';
final int id = 1;
final int result = await db.rawDelete(sql, [id]);

何れにしてもrawDeleteはSQLリテラルを引数に取ることができます. 一方deleteメソッドは以下のようにします.

final String table_name = 'Student';
final int id = 1;
final int result = await database.delete(table_name, where: 'id = ?', whereArgs: [id]);

Q. UPDATE

UPDATE Student SET name = "京都太郎" WHERE id = 1

sqfliteではrawUpdateかupdateメソッドを使います.

final int id = 1;
final String name = '京都太郎';
final String sql = 'UPDATE Student SET name = ${name}  WHERE id = ${id}';
database.rawUpdate(sql);

あるいは,

final int id = 1;
final String name = '京都太郎';
final String sql = 'UPDATE Student SET name = ? WHERE id = ?';
database.rawUpdate(sql, [name, id]);

DELETE同様に配列として渡すこともできます. updateメソッドを使うと以下のようになります.

final String table_name = 'Student';
final int id = 1;
final String name = '京都太郎';
final Map new_recode = {
  'id': id,
  'name': name
};
database.update(table_name, new_recode, where: "id = ?", whereArgs: [id]);

Q. SELECT

テーブルからデータ取り出す操作です.

SELECT * FROM Student
SELECT (id, name) FROM Student

この二つの文は同じ意味で全てのカラムを対象にStudentテーブルからデータを読み取る, となります. SELECT 以下は対象となるカラムを指定します. 名前だけの一覧ならnameカラムだけを指定します.

SELECT name FROM Student

sqfliteの場合はrawQueryかqueryメソッドを使います.

final Database db = await database;
final String sql = 'SELECT * FROM Student';
final List> result = await db.rawQuery(sql);

他のメソッド戻り値が少し複雑になります. あるいはqueryメソッドを使います.

final String table_name = 'Student';
final List> result = await db.query(table_name)
// final List> result = await db.query(table_name, columns: ['id', 'name']);
// final List> result = await db.query(table_name, where: 'id = ?', wehreArgs: [1]);

トランザクション

トランザクションは複数の処理を一つの単位として実行することを指すようです. この一連の処理が失敗した場合はロールバックといってトランザクションが始まる前の状態にデータベースを復元します. つまりトランザクションに含まれる処理が全て実行された場合のみデータベースが更新されます.

INSERTで複数のレコード挿入してみましょう.

await db.transaction((txn) async{
  int id1 = txn.rawInsert('INSERT INTO Student VALUES ?', ['東京太郎']);
  int id2 = txn.rawInsert('INSERT INTO Student VALUES ?', ['京都太郎']);
});

まとめ

簡単でしたがsqfliteの使い方でした.

Reference

SQLiteでカラムを削除する簡単な方法

2019-10-30T22:41:45+09:00

こんにちは。ケイジです。

Laravelでウェブ開発をしています。
ローカル環境のデータベースはSQLiteを使用することが多いです。

テストなどで作ったカラムをちょこっと削除したい場面がたまにあるのですが、SQLiteにはカラムを削除するコマンドがありません。
MySQLやPostgreSQLはdrop columnで簡単にできるのに。※

SQLiteでカラムを削除しようとすると非常に面倒で、「新規にテーブルを作り、古いテーブルからデータを移し、古いテーブルを削除してから新規作成したテーブルを元のテーブルと同じ名前にリネームする」ということをしなければなりません。

そんなときは「DB Browser for SQLite」を利用してカラム削除をすればとても楽チン。

DB Browser for SQLiteはGUIでSQLiteを操作するアプリケーションです。
ダウンロードは以下のサイトから。

Downloads - DB Browser for SQLite

今回の例では「articles」テーブルの「published_at」カラムを削除します。

ダウンロードしたアプリケーションを起動するとウィンドウが表示されるので「Open Database」をクリックします。

操作したい拡張子「.sqlite」のSQLiteのデータファイルを選択します。

カラムを削除したいテーブルを選択し、「Modify Table」をクリックします。

すると次のような画面が表示されるので削除する「published_at」カラムを選択して「Remove field」をクリック。

確認画面が表示されるので「Yes」をクリックしてカラムを削除します。

以上です。
簡単ですね。

それでは、よいプログラミングライフを！

※ Laravelを使っていればmigrationを用いて
$table->dropColumn(‘hoge’);
一行でできます。

個人開発でサイトリリースした理由とやったこと

2019-10-27T15:10:52+09:00

こんにちは。ケイジです。
ボルジムというボルダリングジム検索ウェブサービスを制作し運営しています。

今回、このサービスをリリースするまでにやったことを綴ることによって、誰かの役に立つのではと思い記事を書きました。

なぜ創ったか

この数年、ボルダリング沼にとっぷりと浸かってしまい、週イチの社内ボルダリング部活動と週末の自主活動の週２回ボル活をするのが習慣になっています。たまにボルダリングができない週末があると気持ちも体も落ち着かずムズムズし週明けの仕事に差し支えるまでに。

また個人開発もしばらくご無沙汰していて何か創りたい欲がフツフツと湧いてきたタイミングでもあったので、エイヤ！とボルダリングジム検索ウェブサービスを創りました。
首都圏近郊のボルダリングジムの口コミなどの情報が閲覧、投稿できるウェブサービスになります。

ボルジム・首都圏近郊ボルダリングジム検索サイト

好きなこと ✕ 好きなことの掛け合わせだから、それはそれは楽しいだろうと。

やったことリスト

ボルジムを立ち上げるために、したことは以下のようになります。

プログラミング言語、フレームワークを選ぶ

以前はCakePHPでの開発経験はあったものの、ここ数年はWordPressのカスタマイズをメインに仕事をしているため、どの言語とフレームワークで開発するのかをまず選定しました。

候補に挙がったのは以下のフレームワークになります。
※カッコ内はプログラミング言語

Laravel（PHP）
WordPress（PHP）
Ruby on Rails（Ruby）
Django（Python）

選定にあたってはGoogleトレンドでまずざっくりと最近の検索結果の多いものをリストアップしました。

また、求人が多いフレームワークは今勢いのあるものだろうと推測し、国内と海外のリクルートサイトで求人数の多いもので絞り込みもしました。

結果、学習期間にあまり時間を使いたくないということで個人的なPHP慣れもある、LaravelとWordPressの二択になったのですが、開発の自由度の高いLaravelに決定しました。

環境づくり

環境づくりはできるだけ仕事で使い慣れているものを選択。

ローカル開発環境

Vagrant一択でした。

ソースコード管理

BitbucketでGitコードを管理。
現在はGitHubでプライベートリポジトリを作成できるとのことなので今選ぶならそっちになるかもしれません。

ウェブサーバ

さくらのレンタルサーバを使ってます。

サイトデザイン

いつも使い慣れているものを使いました。
パーツ、ロゴやイラスト制作は、Adobe IllustratorとPhotoshop。
サイト全体とUIデザインにはSketchを使用。

学習方法

Laravel学習法

Laravelについてはまったく触ったことがなかったので、ドットインストールのプレミアム会員になり、動画学習しました。

まず、Laravelをローカル環境で使うにあたって必要なSQLite入門をざっと一周します。

次に、Laravel 5.5入門レッスンをざっと１周して概要をつかみ、次に実際にローカル環境で手を動かしてチュートリアルウェブアプリをつくりながらもう１周しました。

ドットインストールは構成が初学者にとって非常に分かりやすく、動画一つが３分前後ととっつきやすくておすすめです。
Vagrantについても最初はこのサイトで学習しました。

プレミアム会員になると女性ボイスが選択できるのと、再生スピードが変更できるのが個人的に良い機能だと思います。

という感じでざっくりとLaravelについて理解が深まったところで、ララ帳「はじめてのLaravel」を参考にしつつ、実際にウェブサイト開発をしていきました。

分からないところは随時ググりながら進めました。
頻繁に使ったのはreadouble（日本語版Laravelドキュメンテーション）になります。翻訳してくれている有志の方々ありがとう。

英語に抵抗がなければlaravel documentationの方が情報も早く、デザインも見やすいためおすすめです。

まとめ

という感じのことを、休日や出勤前や後に細々と続けていき大体6ヶ月ほどかけてリリースまでこぎつけました。

この記事が少しでも読まれた誰かの一助になれば幸いです。

では、よいものづくりライフを！

【VB.NET】DataGridView の行を動的に追加してみる

2019-10-03T09:28:32+09:00

引き続き、DataGridView関連の話し。
今回は行を動的に追加する方法を試してみてました。

プログラムは前回のものを流用します。
【VB.NET】DataGridView を直接変更してデータを更新してみる

プログラム修正

追加処理

追加ボタンが押されたタイミングで、データグリッドビューの空行を作成して追加します。

今回は、1行追加したら「更新」するまで追加できないようにしました。
（グローバルでフラグを持たせています）

    ''' 
    ''' 追加ボタンクリックイベント
    ''' 
    ''' 
    ''' 
    Private Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.Click

        ' 追加後に更新されていなければ処理しない
        If (AddRowFlg) Then
            Return
        End If

        AddRowFlg = True

        Using conn As New SQLiteConnection("Data Source=SampleDb.sqlite")

            ' データベースオープン
            conn.Open()

            ' データ追加
            Using con As New DataContext(conn)

                Dim idx = dgvCat.Rows.Count()

                ' 行追加
                dgvCat.Rows.Add()

                ' 種別マスタ取得
                Dim kinds As Table(Of Kind) = con.GetTable(Of Kind)
                Dim kindResult As IQueryable(Of Kind) = From x In kinds Order By x.KindCd Select x
                Dim kindList = kindResult.ToList()

                ' 猫一覧取得
                Dim tblCat As Table(Of Cat) = con.GetTable(Of Cat)
                Dim newNo = 0

                ' 使用できるNoを判定
                For i As Integer = 1 To tblCat.ToList().Count() + 1
                    Dim selectNo = i
                    If tblCat.SingleOrDefault(Function(x As Cat) x.No = selectNo) Is Nothing Then
                        newNo = selectNo
                    End If
                Next

                ' No（プライマリなので編集不可）
                Dim no = New DataGridViewTextBoxCell()
                no.Value = newNo
                dgvCat(0, idx) = no
                dgvCat(0, idx).ReadOnly = True

                ' 名前
                Dim name = New DataGridViewTextBoxCell()
                dgvCat(1, idx) = name

                ' 性別
                Dim sex = New DataGridViewComboBoxCell()
                sex.Items.AddRange({"♂", "♀"})
                sex.DisplayStyle = DataGridViewComboBoxDisplayStyle.ComboBox
                dgvCat(2, idx) = sex

                ' 年齢
                Dim age = New DataGridViewTextBoxCell()
                dgvCat(3, idx) = age

                ' 種別
                Dim kind = New DataGridViewComboBoxCell()
                kind.DataSource = kindList
                kind.DisplayMember = "KindName"
                kind.ValueMember = "KindCd"
                kind.DisplayStyle = DataGridViewComboBoxDisplayStyle.ComboBox
                dgvCat(4, idx) = kind

                ' 好物
                Dim favorite = New DataGridViewTextBoxCell()
                dgvCat(5, idx) = favorite

            End Using

            conn.Close()

        End Using

    End Sub

更新処理

更新処理では、データグリッドビューから直接値を取得して、データベースに存在しなければ追加、存在すれば更新というようにしました。

    ''' 
    ''' 更新ボタンクリックイベント
    ''' 
    ''' 
    ''' 
    Private Sub btnUpdate_Click(sender As Object, e As EventArgs) Handles btnUpdate.Click

        Using conn As New SQLiteConnection("Data Source=SampleDb.sqlite")

            ' データベースオープン
            conn.Open()

            ' データ更新
            Using con As New DataContext(conn)
                ' 対象のテーブルオブジェクトを取得
                Dim Table = con.GetTable(Of Cat)
                ' 選択されているデータを取得
                For i = 0 To dgvCat.Rows.Count - 1
                    ' テーブルから対象のデータを取得
                    Dim no As Integer = dgvCat(0, i).Value
                    Dim target As Cat = Table.SingleOrDefault(Function(x As Cat) x.No = no)
                    If (target Is Nothing) Then
                        ' データ作成
                        Dim Cat As New Cat()
                        Cat.No = dgvCat(0, i).Value
                        Cat.Name = dgvCat(1, i).Value
                        Cat.Sex = dgvCat(2, i).Value
                        Cat.Age = dgvCat(3, i).Value
                        Cat.KindCd = dgvCat(4, i).Value
                        Cat.Favorite = dgvCat(5, i).Value
                        Table.InsertOnSubmit(Cat)

                    Else

                        ' データ変更
                        target.Name = dgvCat(1, i).Value
                        target.Sex = dgvCat(2, i).Value
                        target.Age = dgvCat(3, i).Value
                        target.KindCd = dgvCat(4, i).Value
                        target.Favorite = dgvCat(5, i).Value

                    End If
                    ' DBの変更を確定
                    con.SubmitChanges()
                Next

            End Using

            conn.Close()
        End Using

        AddRowFlg = False

        ' データ再検索
        search()
        MessageBox.Show("データを更新しました。")

    End Sub

起動してみる

とりあえず検索します。

追加ボタンをクリックすると空行が追加されます。

追加された行に値を設定します。

更新ボタンをクリック、再検索後の画面が表示されます。

まとめ

年の瀬となり忙しくなってまいりましたが
なんとか更新していきたいと思います。

次回はどうしようかな。。

ではでは。

【VB.NET】DataGridView を直接変更してデータを更新してみる

2019-10-02T09:28:19+09:00

今回は、データグリッドビューの内容を直接編集してデータを更新したいと思います。

プログラムは例によって前回のものを。
【VB.NET】SQLiteに接続してデータを登録してみる

プログラム修正

検索処理

取得したデータを走査して1行ずつ作成していくように変更します。

        ''' 
        ''' 検索処理
        ''' 
        Private Sub search()
            Using conn As New SQLiteConnection("Data Source=SampleDb.sqlite")

                ' データベースオープン
                conn.Open()

                ' 検索条件を指定してデータを取得
                Using con As New DataContext(conn)
                    Dim searchName As String = txtName.Text
                    Dim searchKind As String = CType(cmbKind.SelectedValue, Kind).KindCd

                    ' 種別マスタ取得
                    Dim kinds As Table(Of Kind) = con.GetTable(Of Kind)
                    Dim kindResult As IQueryable(Of Kind) = From x In kinds Order By x.KindCd Select x
                    Dim kindList = kindResult.ToList()

                    ' 猫一覧取得
                    Dim tblCat As Table(Of Cat) = con.GetTable(Of Cat)
                    Dim result As IQueryable(Of Cat)

                    If (searchKind = "") Then

                        ' 種別が選択されていなければ名前のみ前方一致指定
                        result = From x In tblCat
                                 Where x.Name.StartsWith(searchName)
                                 Order By x.No
                                 Select x
                    Else

                        ' 種別が選択されていれば名前＋種別で検索
                        result = From x In tblCat
                                 Where x.Name.StartsWith(searchName) & x.KindCd = searchKind
                                 Order By x.No
                                 Select x
                    End If

                    ' データグリッドビューに設定
                    'dgvCat.DataSource = result.ToList()
                    Dim list As List(Of Cat) = result.ToList()
                    Dim i As Integer = 0
                    dgvCat.Rows.Clear()
                    For i = 0 To list.Count() - 1

                        Dim cat = list(i)

                        ' 行追加
                        dgvCat.Rows.Add()

                        ' No（プライマリなので編集不可）
                        Dim no = New DataGridViewTextBoxCell()
                        no.Value = cat.No
                        dgvCat(0, i) = no
                        dgvCat(0, i).ReadOnly = True

                        ' 名前
                        Dim name = New DataGridViewTextBoxCell()
                        name.Value = cat.Name
                        dgvCat(1, i) = name

                        ' 性別
                        Dim sex = New DataGridViewComboBoxCell()
                        sex.Items.AddRange({"♂", "♀"})
                        sex.DisplayStyle = DataGridViewComboBoxDisplayStyle.ComboBox
                        dgvCat(2, i) = sex
                        dgvCat(2, i).Value = cat.Sex

                        ' 年齢
                        Dim age = New DataGridViewTextBoxCell()
                        age.Value = cat.Age
                        dgvCat(3, i) = age

                        ' 種別
                        Dim kind = New DataGridViewComboBoxCell()
                        kind.DataSource = kindList
                        kind.DisplayMember = "KindName"
                        kind.ValueMember = "KindCd"
                        kind.DisplayStyle = DataGridViewComboBoxDisplayStyle.ComboBox
                        dgvCat(4, i) = kind
                        dgvCat(4, i).Value = cat.KindCd

                        ' 好物
                        Dim favorite = New DataGridViewTextBoxCell()
                        favorite.Value = cat.Favorite
                        dgvCat(5, i) = favorite

                    Next

                End Using

                ' データベースクローズ
                conn.Close()

            End Using
        End Sub

更新処理

データグリッドビューに表示されているデータを全て更新するように変更します。

    ''' 
    ''' 更新ボタンクリックイベント
    ''' 
    ''' 
    ''' 
    Private Sub btnUpdate_Click(sender As Object, e As EventArgs) Handles btnUpdate.Click

        Using conn As New SQLiteConnection("Data Source=SampleDb.sqlite")

            ' データベースオープン
            conn.Open()

            ' データ更新
            Using con As New DataContext(conn)
                ' 対象のテーブルオブジェクトを取得
                Dim Table = con.GetTable(Of Cat)
                ' 選択されているデータを取得
                For i = 0 To dgvCat.Rows.Count - 1
                    ' テーブルから対象のデータを取得
                    Dim no As Integer = dgvCat(0, i).Value
                    Dim target As Cat = Table.Single(Function(x As Cat) x.No = no)
                    ' データ変更
                    target.Name = dgvCat(1, i).Value
                    target.Sex = dgvCat(2, i).Value
                    target.Age = dgvCat(3, i).Value
                    target.KindCd = dgvCat(4, i).Value
                    target.Favorite = dgvCat(5, i).Value
                    ' DBの変更を確定
                    con.SubmitChanges()
                Next

            End Using

            conn.Close()
        End Using

        ' データ再検索
        search()
        MessageBox.Show("データを更新しました。")

    End Sub

コンボボックスの制御

以前の記事でもやりましたが、
コンボボックスがワンクリックで開くように仕込みを入れます。

    ''' 
    ''' データグリッドビューセルクリックイベント
    ''' 
    ''' 
    ''' 
    Private Sub dgvCat_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvCat.CellClick
        Dim dgv As DataGridView = CType(sender, DataGridView)
        gridComboHandle(dgv, e)
    End Sub

    ''' 
    ''' データグリッドビューのコンボボックス制御
    ''' 
    ''' 
    ''' 
    Private Sub gridComboHandle(dgv As DataGridView, e As DataGridViewCellEventArgs)

        ' 対象の列だった場合
        If dgv.Columns(e.ColumnIndex).Name = "ColSex" Or dgv.Columns(e.ColumnIndex).Name = "ColKind" Then
            SendKeys.SendWait("{F4}")
        End If

    End Sub

起動してみる

データ検索後の画面。
無事にデータが表示され、データグリッドビューにコンボボックスも表示されています。

1行目の種別を変更して、「更新」ボタンをクリックします。

無事に変更できました。

まとめ

やり方としてはいまいちで、WPFみたいにMVVMとかバインディングとかできるかと思いますが、これはこれでもしかしたら需要があるかもしれません。

次回は追加処理をしてみます。

ではでは。

【VB.NET】SQLiteに接続してデータを登録してみる

2019-09-30T09:58:53+09:00

VBでSQLite、データ検索までしたので続いて登録、更新、削除をしてみました。
C#からの移植ではありますが、微妙に違うところもありますね。

プログラムは前回のものを流用します。
【VB.NET】SQLiteからデータを取得して表示する

画面の修正

画面に追加、更新、削除ボタンを追加し、それぞれにクリックイベントを設定します。

プログラム修正

検索処理の修正

追加更新削除後に再検索するため、別メソッドに切り出します。

        ''' 
        ''' 検索ボタンクリックイベント.
        ''' 
        ''' 
        ''' 
        Private Sub btnSearch_Click(sender As Object, e As EventArgs) Handles btnSearch.Click
            search()
        End Sub

        ''' 
        ''' 検索処理
        ''' 
        Private Sub search()
            Using conn As New SQLiteConnection("Data Source=SampleDb.sqlite")

                ' データベースオープン
                conn.Open()

                ' 検索条件を指定してデータを取得
                Using con As New DataContext(conn)
                    Dim searchName As String = txtName.Text
                    Dim searchKind As String = CType(cmbKind.SelectedValue, Kind).KindCd

                    Dim tblCat As Table(Of Cat) = con.GetTable(Of Cat)
                    Dim result As IQueryable(Of Cat)

                    If (searchKind = "") Then

                        ' 種別が選択されていなければ名前のみ前方一致指定
                        result = From x In tblCat
                                 Where x.Name.StartsWith(searchName)
                                 Order By x.No
                                 Select x
                    Else

                        ' 種別が選択されていれば名前＋種別で検索
                        result = From x In tblCat
                                 Where x.Name.StartsWith(searchName) & x.KindCd = searchKind
                                 Order By x.No
                                 Select x
                    End If

                    ' データグリッドビューに設定
                    dgvCat.DataSource = result.ToList()

                End Using

                ' データベースクローズ
                conn.Close()

            End Using
        End Sub

データ追加

    ''' 
        ''' 追加ボタンクリックイベント
        ''' 
        ''' 
        ''' 
        Private Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.Click

            Using conn As New SQLiteConnection("Data Source=SampleDb.sqlite")

                ' データベースオープン
                conn.Open()

                ' データ追加
                Using con As New DataContext(conn)

                    ' 対象のテーブルオブジェクトを取得
                    Dim Table = con.GetTable(Of Cat)
                    ' データ作成
                    Dim Cat As New Cat()
                    Cat.No = 5
                    Cat.Name = "こなつ"
                    Cat.Sex = "♀"
                    Cat.Age = 7
                    Cat.KindCd = "01"
                    Cat.Favorite = "布団"
                    ' データ追加
                    Table.InsertOnSubmit(Cat)
                    ' DBの変更を確定
                    con.SubmitChanges()

                End Using

                conn.Close()

            End Using

            ' データ再検索
            search()
            MessageBox.Show("データを追加しました。")

        End Sub

追加ボタンをクリックすると、固定ではありますがデータが追加されます。

データ更新

        ''' 
        ''' 更新ボタンクリックイベント
        ''' 
        ''' 
        ''' 
        Private Sub btnUpdate_Click(sender As Object, e As EventArgs) Handles btnUpdate.Click

            Using conn As New SQLiteConnection("Data Source=SampleDb.sqlite")

                ' データベースオープン
                conn.Open()

                ' データ更新
                Using con As New DataContext(conn)
                    ' 対象のテーブルオブジェクトを取得
                    Dim Table = con.GetTable(Of Cat)
                    ' 選択されているデータを取得
                    For Each r As DataGridViewRow In dgvCat.SelectedRows
                        Dim Cat As Cat = CType(dgvCat.DataSource(), List(Of Cat)).Item(r.Index)
                        ' テーブルから対象のデータを取得
                        Dim target As Cat = Table.Single(Function(x As Cat) x.No = Cat.No)
                        ' データ変更
                        target.Favorite = "高いところ"
                        ' DBの変更を確定
                        con.SubmitChanges()
                    Next

                End Using

                conn.Close()
            End Using

            ' データ再検索
            search()
            MessageBox.Show("データを更新しました。")

        End Sub

更新ボタンをクリックすると、選択された行の好物が更新されます。

データ削除

        ''' 
        ''' 削除ボタンクリックイベント
        ''' 
        ''' 
        ''' 
        Private Sub btnDelete_Click(sender As Object, e As EventArgs) Handles btnDelete.Click

            Using conn As New SQLiteConnection("Data Source=SampleDb.sqlite")

                ' データベースオープン
                conn.Open()

                ' データ削除
                Using con As New DataContext(conn)

                    ' 対象のテーブルオブジェクトを取得
                    Dim Table = con.GetTable(Of Cat)
                    ' 選択されているデータを取得
                    For Each r As DataGridViewRow In dgvCat.SelectedRows
                        Dim Cat As Cat = CType(dgvCat.DataSource(), List(Of Cat)).Item(r.Index)
                        ' テーブルから対象のデータを取得
                        Dim target As Cat = Table.Single(Function(x As Cat) x.No = Cat.No)
                        ' データ削除
                        Table.DeleteOnSubmit(target)
                        ' DBの変更を確定
                        con.SubmitChanges()

                    Next

                End Using

                conn.Close()
            End Using

            ' データ再検索
            search()
            MessageBox.Show("データを削除しました。")

        End Sub

削除ボタンをクリックすると、選択されている行のデータが削除されます。

まとめ

とりあえず簡単ではありますが追加、更新、削除ができました。

次回はデータグリッドを直接編集してデータの更新等が行えるようにしたいと思います。

ではでは。

【VB.NET】SQLiteに接続してデータを取得してみる

2019-09-27T13:09:52+09:00

今回はデータベースから取得したデータを表示したいと思います。

プログラムは前回のものを流用します。
【VB.NET】SQLiteのデータベース及びテーブルを動的に作成してみる

データの追加

前回作成したテーブルにデータをツール、もしくはコマンドラインから追加します。

    INSERT INTO MSTKIND VALUES ("01", "キジトラ");
    INSERT INTO MSTKIND VALUES ("02", "長毛種（不明）");
    INSERT INTO MSTKIND VALUES ("03", "ミケ（っぽい）");
    INSERT INTO MSTKIND VALUES ("04", "サビ");
    INSERT INTO MSTKIND VALUES ("09", "その他");
    INSERT INTO TBLCAT VALUES('1','そら','♂','6','01','犬の人形');
    INSERT INTO TBLCAT VALUES('2','りく','♂','5','02','人間');
    INSERT INTO TBLCAT VALUES('3','うみ','♀','4','03','高級ウェットフード');
    INSERT INTO TBLCAT VALUES('4','こうめ','♀','2','04','横取りフード');

追加したデータを確認します。

Linq でデータを取得、設定する

参照の追加

ソリューション・エクスプローラーからプロジェクトの「参照」を右クリックし、「参照の追加」を選択します。

「System.Data.Linq」で検索、チェックしてOKボタンをクリックします。

プログラム修正

インポート宣言の追加

次の記述を先頭に追加します。

    Imports System.Data.Linq

フォームロード時にコンボボックスにデータを設定する

次の記述をフォームロード時のイベントメソッドに追加します。

            ' 種別コンボボックスの内容をデータベースから取得して設定
            Using con As New DataContext(conn)
                Dim kinds As Table(Of Kind) = con.GetTable(Of Kind)
                Dim result As IQueryable(Of Kind) = From x In kinds Order By x.KindCd Select x

                Dim empty As New Kind()
                empty.KindCd = ""
                empty.KindName = "指定なし"

                Dim list = result.ToList()
                list.Insert(0, empty)

                ' コンボボックスに設定
                cmbKind.DataSource = list
                cmbKind.DisplayMember = "kindName"

            End Using

検索ボタンのクリックイベント追加

デザイナー画面にて配置した「検索」ボタンをダブルクリックします。

検索処理の実装

自動生成されたメソッドに次の処理を記述します。

    ''' 
    ''' 検索ボタンクリックイベント.
    ''' 
    ''' 
    ''' 
    Private Sub btnSearch_Click(sender As Object, e As EventArgs) Handles btnSearch.Click

        Using conn As New SQLiteConnection("Data Source=SampleDb.sqlite")

            ' データベースオープン
            conn.Open()

            ' 検索条件を指定してデータを取得
            Using con As New DataContext(conn)
                Dim searchName As String = txtName.Text
                Dim searchKind As String = CType(cmbKind.SelectedValue, Kind).KindCd

                Dim tblCat As Table(Of Cat) = con.GetTable(Of Cat)
                Dim result As IQueryable(Of Cat)

                If (searchKind = "") Then

                    ' 種別が選択されていなければ名前のみ前方一致指定
                    result = From x In tblCat
                             Where x.Name.StartsWith(searchName)
                             Order By x.No
                             Select x
                Else

                    ' 種別が選択されていれば名前＋種別で検索
                    result = From x In tblCat
                             Where x.Name.StartsWith(searchName) & x.KindCd = searchKind
                             Order By x.No
                             Select x
                End If

                ' データグリッドビューに設定
                dgvCat.DataSource = result.ToList()

            End Using

            ' データベースクローズ
            conn.Close()

        End Using
    End Sub

起動してみる

起動後の画面。

コンボボックスに無事にデータが設定されました。

検索ボタンをクリックして、データグリッドビューにも無事にデータが表示されました。

まとめ

C#とほぼ同じなので難しくはないですね。

次回はデータの追加・更新・削除なんかもやってみます。

ではでは。

【VB.NET】SQLiteのデータベース及びテーブルを動的に作成してみる

2019-09-25T09:35:38+09:00

今回はSQLiteを使ったプログラムを作っていきます。

プログラムは前回のものを流用しませんが、WPFのものを移植する感じになります。

【WPF】SQLiteを使ってデータを DataGrid に表示してみる

SQLiteのパッケージをインストール

SQLite を利用するためのパッケージをインストールします。

ソリューションエクスプローラーからプロジェクトを選択、右クリックし「Nuget パッケージの管理」を選択します。

Nuget パッケージ管理画面が表示されるので、検索窓に「SQLite」を入力し「System.Data.SQLite」を選択、インストールボタンをクリックします。

変更の確認ダイアログが表示されるので、「OK」ボタンをクリックします。

出力ビューに「終了」が出力されればＯＫです。

ソリューションエクスプローラーの「参照」を開くと「System.Data.*」が追加されていることが確認できます。

ビルドを実行する

上部メニューの「ビルド」＞「ソリューションのリビルド」を選択します。

プロジェクトのディレクトリ＞bin＞Target＞x86 、x64 に「SQLite.Interop.dll」が出力されていることが確認できます。

プログラム修正

ロードイベントの追加

デザイナー画面を開き、フォームを選択した状態でプロパティウィンドウの「Load」欄をダブルクリックします。

次のようにプログラムが自動生成されます。

Form1.vb

    Public Class Form1
        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        End Sub
    End Class

フォームロード時にテーブルを作成する

フォームロード（アプリケーション起動時）に、テーブルを作成するようにプログラムを修正、
先程追加したイベントに次の処理を記述します。

Form1.vb

    Imports System.Data.SQLite

    Public Class Form1

        ''' 
        ''' フォームロード時の処理
        ''' 
        ''' 
        ''' 
        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

            Using conn As New SQLiteConnection("Data Source=SampleDb.sqlite")

                ' データベースオープン
                conn.Open()

                ' テーブルが存在しなければ作成
                Using command = conn.CreateCommand()
                    Dim sb As New System.Text.StringBuilder()
                    sb.Append("CREATE TABLE IF NOT EXISTS MSTKIND (")
                    sb.Append("  KIND_CD NCHAR NOT NULL")
                    sb.Append("  , KIND_NAME NVARCHAR")
                    sb.Append("  , primary key (KIND_CD)")
                    sb.Append(")")

                    command.CommandText = sb.ToString()
                    command.ExecuteNonQuery()

                    sb.Clear()
                    sb.Append("CREATE TABLE IF NOT EXISTS TBLCAT (")
                    sb.Append("  NO INT NOT NULL")
                    sb.Append("  , NAME NVARCHAR NOT NULL")
                    sb.Append("  , SEX NVARCHAR NOT NULL")
                    sb.Append("  , AGE INT DEFAULT 0 NOT NULL")
                    sb.Append("  , KIND_CD NCHAR DEFAULT 0 NOT NULL")
                    sb.Append("  , FAVORITE NVARCHAR")
                    sb.Append("  , primary key (NO)")
                    sb.Append(")")

                    command.CommandText = sb.ToString()
                    command.ExecuteNonQuery()

                End Using

                ' データベースクローズ
                conn.Close()

            End Using
        End Sub

    End Class

アプリケーションの実行

上部メニューの開始ボタンをクリックし、アプリケーションを実行すると「MSTKIND」、「TBLCAT」テーブルが作成されます。

A5m2などを使って確認をしてください。

以上でひとまず完了です。

まとめ

少し長くなったのでここまにして続きは次回にします。

次回はコンボボックス、データグリッドにデータベースから取得したデータを表示したいと思います。

ではでは。

【WPF】SQLiteのインサートが遅いので速度アップの方法を試してみる

2019-07-14T11:29:04+09:00

SQLiteって手軽で便利なんですが、
大量のデータを扱うとなるとそれなりに速度が気になってきます。

試しに何万件のインサート処理をやってみたら案の定とても待ち切れる時間で処理が終わらなかったのでちょっと調べてみました。

プログラムは次の記事のものを流用します。
【WPF】TextFieldParser で CSVファイルを読み込む

元の処理

CSVを読み込んで一括登録する処理を変更してみます。

MainWindow.xaml.cs

        /// 
        /// CSV読込ボタンクリックイベント.
        /// 
        /// 
        /// 
        private void imp_button_Click(object sender, RoutedEventArgs e)
        {
            OpenFileDialog ofd = new OpenFileDialog();
            ofd.FileName = "";
            ofd.DefaultExt = "*.csv";
            if (ofd.ShowDialog() == false)
            {
                return;
            }

            List list = readFile(ofd.FileName);

            // 接続
            int count = 0;
            // データを追加する
            using (var conn = new SQLiteConnection("Data Source=SampleDb.sqlite"))
            {
                using (DataContext context = new DataContext(conn))
                {
                    foreach (Cat cat in list)
                    {
                        // 対象のテーブルオブジェクトを取得
                        var table = context.GetTable();
                        // データが存在するかどうか判定
                        if (table.SingleOrDefault(x => x.No == cat.No) == null)
                        {
                            // データ追加
                            table.InsertOnSubmit(cat);
                            // DBの変更を確定
                            context.SubmitChanges();
                            count++;
                        }
                    }
                }
                conn.Close();
            }

            MessageBox.Show(count + " / " + list.Count + " 件 のデータを取り込みました。");

            // データ再検索
            searchData();
        }

プラグマステートメントを設定

まずはプラグマというステートメントを設定してみます。
（プラグマステートメントとは、SQLite ライブラリの動作を変更するためのものです。）

次の記事に色々と詳しく書いてありますので参考にしてみてください。

参考 : http://devlights.hatenablog.com/entry/2014/02/01/151642

            using (var conn = new SQLiteConnection("Data Source=SampleDb.sqlite;version=3;synchronous=Normal;journal mode=Wal"))
            {
                using (DataContext context = new DataContext(conn))
                {
                    foreach (Cat cat in list)
                    {
                        // 対象のテーブルオブジェクトを取得
                        var table = context.GetTable();
                        // データが存在するかどうか判定
                        if (table.SingleOrDefault(x => x.No == cat.No) == null)
                        {
                            // データ追加
                            table.InsertOnSubmit(cat);
                            // DBの変更を確定
                            context.SubmitChanges();
                            count++;
                        }
                    }
                }
                conn.Close();
            }

接続文字列にオプションを追加する方式でやってみました。

詳細に処理時間を載せませんが、処理速度の改善が見られました。

明示的にトランザクションを開始する

これは結構有名な話しですが、
一括処理する際にちゃんと明示的にトランザクションを制御しないと、
1件毎にそれなりに時間のかかるトランザクション処理が実行されてしまうので、明示的にトランザクションを開始するように変更します。

                using (var conn = new SQLiteConnection("Data Source=SampleDb.sqlite;version=3;synchronous=Normal;journal mode=Wal"))
                {
                    using (DataContext context = new DataContext(conn))
                    {
                        using (var ts = conn.BeginTransaction())
                        {
                            foreach (Cat cat in list)
                            {
                                // 対象のテーブルオブジェクトを取得
                                var table = context.GetTable();
                                // データが存在するかどうか判定
                                if (table.SingleOrDefault(x => x.No == cat.No) == null)
                                {
                                    // データ追加
                                    table.InsertOnSubmit(cat);
                                    // DBの変更を確定
                                    context.SubmitChanges();
                                    count++;
                                }
                            }
                            ts.Commit();
                        }
                    }
                    conn.Close();
                }

これも処理速度アップとしては有効な手段でした。

Sqlコマンドに変更する

データコンテキストを使って更新や追加を行うのも結構時間がかかるようなので、SQLクエリを直書きして実行するようにしてみます。

            using (var conn = new SQLiteConnection("Data Source=SampleDb.sqlite;version=3;synchronous=Normal;journal mode=Wal"))
            {
                using (DataContext context = new DataContext(conn))
                {
                    using (var ts = conn.BeginTransaction())
                    {
                        foreach (Cat cat in list)
                        {
                            using (SQLiteCommand cmd = conn.CreateCommand())
                            {
                                // 対象のテーブルオブジェクトを取得
                                var table = context.GetTable();
                                // データが存在するかどうか判定
                                if (table.SingleOrDefault(x => x.No == cat.No) == null)
                                {
                                    String sql = @"INSERT INTO CAT (" +
                                        "  NO" +
                                        ", NAME" +
                                        ", SEX" +
                                        ", AGE" +
                                        ", KIND_CD" +
                                        ", FAVORITE" +
                                        ") VALUES (" +
                                        cat.No +
                                        "', '" + cat.Name +
                                        "', '" + cat.Sex +
                                        "', '" + cat.Age + 
                                        "', '" + cat.Kind +
                                        "', '" + cat.Favorite + "')";
                                    // データ追加
                                    cmd.CommandText = sql;
                                    cmd.ExecuteNonQuery();
                                    count++;
                                }
                            }
                        }
                        ts.Commit();
                    }
                }
                conn.Close();
            }

こちらも勿論速度アップしました。

まとめ

ちょっと殴り書きみたいな記事ですが、とりあえず上記のような対策を施すとひとまず何万件のインサートも問題なく実行できるかと思います。

もっと劇的に速度アップさせる必要がある場合は、
登録するデータの存在確認をしないようにするといいと思います。
（この場合はテーブル定義や、別で一時テーブルを用意するなど別途検討が必要となります）

ではでは。

SQLでNULLを0として出力する方法

2019-04-02T18:05:06+09:00

MySQLで外部結合したときに、COUNT()の結果が0件だとNULL値が返却されてしまったため、NULLを0として表示する関数を調べました。
ついでに他のDBについても書きました。

関数

IFNULL (a, 0)
MySQL、SQLite

COALESCE (a, 0)
MySQL、SQLite、PostgreSQL、Oracle

NVL (a, 0)
Oracle

ISNULL (a, 0)
SQL Server

使い方

第1引数（この場合カラムa）がNULLだった場合、関数は第2引数（この場合は0）を返します。
第1引数がNULLでなければ、関数はそのまま第1引数を返します。

これらは同じような使い方ができますが、COALESCE()だけ仕様が異なり、引数を無限に設定することができます。
COALESCE()は第1引数から順に「その値がNULLかどうか」を判定し、NULLであれば次の引数へ、NULLでなければその値を返却します。
全ての引数がNULLだった場合は、諦めてNULLを返却します。

【WPF】SQLiteに接続してデータを登録してみる

2019-03-26T11:36:13+09:00

前回に引き続き、SQLiteネタです。
やっぱりデータ検索をしたら登録、更新、削除までやらないとですよね。

ということでプログラムは前回のものを流用します。

【WPF】SQLite から Linq でデータを取得してDataGrid に表示してみる

画面の修正
まず、画面にボタンを追加します。

MainWindow.xaml

データグリッドの高さを調整し、画面の下部にボタンを追加し、
更に追加したボタンにクリックイベントを追加。
検索処理の修正
追加、更新、削除後にデータを再検索するために、
検索処理を検索ボタンクリックイベントの処理から分離します。

MainWindow.xaml.cs

            /// 
            /// 検索ボタンクリックイベント.
            /// 
            /// 
            /// 
            /// 
            private void search_button_Click(object sender, RoutedEventArgs e)
            {
                logger.Info("検索ボタンクリック");
                searchData();
            }

            /// 
            /// データ検索処理.
            /// 
            private void searchData()
            {
                using (var conn = new SQLiteConnection("Data Source=SampleDb.sqlite"))
                {
                    conn.Open();

                    // 猫データマスタを取得してコンボボックスに設定する
                    using (DataContext con = new DataContext(conn))
                    {
                        String searchName = this.search_name.Text;
                        String searchKind = (this.search_kind.SelectedValue as Kind).KindCd;

                        // データを取得
                        Table tblCat = con.GetTable();

                        // サンプルなので適当に組み立てる
                        IQueryable result;
                        if (searchKind == "")
                        {
                            // 名前は前方一致のため常に条件していしても問題なし
                            result = from x in tblCat
                                     where x.Name.StartsWith(searchName)
                                     orderby x.No
                                     select x;
                        }
                        else
                        {
                            result = from x in tblCat
                                     where x.Name.StartsWith(searchName) & x.Kind == searchKind
                                     orderby x.No
                                     select x;

                        }
                        this.dataGrid.ItemsSource = result.ToList();

                    }

                    conn.Close();
                }
            }

データ追加（INSERT）
追加ボタンのクリックイベントに処理を実装します。

MainWindow.xaml.cs

            /// 
            /// 追加ボタンクリックイベント
            /// 
            /// 
            /// 
            private void add_button_Click(object sender, RoutedEventArgs e)
            {
                logger.Info("追加ボタンクリック");

                // 接続
                using (var conn = new SQLiteConnection("Data Source=SampleDb.sqlite"))
                {
                    conn.Open();

                    // データを追加する
                    using (DataContext context = new DataContext(conn))
                    {
                        // 対象のテーブルオブジェクトを取得
                        var table = context.GetTable();
                        // データ作成
                        Cat cat = new Cat();
                        cat.No = 5;
                        cat.Name = "こなつ";
                        cat.Sex = "♀";
                        cat.Age = 7;
                        cat.Kind = "01";
                        cat.Favorite = "布団";
                        // データ追加
                        table.InsertOnSubmit(cat);
                        // DBの変更を確定
                        context.SubmitChanges();
                    }
                    conn.Close();
                }
                // データ再検索
                searchData();
                MessageBox.Show("データを追加しました。");
            }

今回は簡単に試してみたかったので
フォームを用意せずに固定でデータを追加します。

データ更新（UPDATE）

更新ボタンのクリックイベントに処理を実装します。

            /// 
            /// 更新ボタンクリックイベント
            /// 
            /// 
            /// 
            private void upd_button_Click(object sender, RoutedEventArgs e)
            {
                logger.Info("更新ボタンクリック");

                // 選択チェック
                if (this.dataGrid.SelectedItem == null)
                {
                    MessageBox.Show("更新対象を選択してください。");
                    return;
                }

                // 接続
                using (var conn = new SQLiteConnection("Data Source=SampleDb.sqlite"))
                {
                    conn.Open();

                    // データを追加する
                    using (DataContext context = new DataContext(conn))
                    {
                        // 対象のテーブルオブジェクトを取得
                        var table = context.GetTable();
                        // 選択されているデータを取得
                        Cat cat = this.dataGrid.SelectedItem as Cat;
                        // テーブルから対象のデータを取得
                        var target = table.Single(x => x.No == cat.No);
                        // データ変更
                        target.Favorite = "高いところ";
                        // DBの変更を確定
                        context.SubmitChanges();
                    }
                    conn.Close();
                }

                // データ再検索
                searchData();

                MessageBox.Show("データを更新しました。");
            }

今回は簡単に・・・（略

データ削除（DELETE）
削除ボタンのクリックイベントに処理を実装します。

MainWindow.xaml.cs

            /// 
            /// 削除ボタンクリックイベント
            /// 
            /// 
            /// 
            private void del_button_Click(object sender, RoutedEventArgs e)
            {
                logger.Info("追加ボタンクリック");

                // 選択チェック
                if (this.dataGrid.SelectedItem == null)
                {
                    MessageBox.Show("削除対象を選択してください。");
                    return;
                }

                // 接続
                using (var conn = new SQLiteConnection("Data Source=SampleDb.sqlite"))
                {
                    conn.Open();

                    // データを削除する
                    using (DataContext context = new DataContext(conn))
                    {
                        // 対象のテーブルオブジェクトを取得
                        var table = context.GetTable();
                        // 選択されているデータを取得
                        Cat cat = this.dataGrid.SelectedItem as Cat;
                        // テーブルから対象のデータを取得
                        var target = table.Single(x => x.No == cat.No);
                        // データ削除
                        table.DeleteOnSubmit(target);
                        // DBの変更を確定
                        context.SubmitChanges();
                    }
                    conn.Close();
                }

                // データ再検索
                searchData();

                MessageBox.Show("データを削除しました。");
            }

削除は単純ですね。

まとめ
前回に引き続き、LINQを使ってのデータ追加、更新、削除をしてみましたが
分かってしまえばとても楽に実装できるもんですね。

もう少し複雑なことをやろうとしたら
またそれなりに学ぶ必要がありそうですが、しばらくさわってみようと思います。

ではでは。

【WPF】SQLite から Linq でデータを取得してDataGrid に表示してみる

2019-01-30T14:19:12+09:00

今日も引き続き WPF@C#の話しです。

その他リソースの外部ファイル化をやろうかと思ったのですが、
DataGridにちゃんとデータベースからデータを表示したかったのでちょっと寄り道。

とりあえずサンプルなんかで無料のデータベースを使うのあれば SQLite で十分なので、
SQLiteを使ってデータの検索、DataGridへの表示をやってみようと思います。

プログラムは前回のものを修正します。
【WPF】スタイルをCSSみたいに外部ファイルに定義する

まずは SQLite に接続するための準備から。

Nuget でパッケージをダウンロード

ソリューションエクスプローラーからプロジェクトを選択、右クリックし
「Nuget パッケージの管理」を選択します。

Nuget パッケージ管理画面が表示されるので、
検索窓に「SQLite」を入力し、「System.Data.SQLite」を選択、
インストールボタンをクリックします。

変更の確認ダイアログが表示されるので、
「OK」ボタンをクリックします。

出力ビューに「終了」が出力されればＯＫです。

ソリューションエクスプローラーの「参照」を開き
System.Data.* が追加されていることが確認できれば追加完了です。
ビルド
一度ビルドを実行します。
上部メニューの「ビルド」＞「ソリューションのリビルド」を選択します。

プロジェクトのディレクトリ＞bin＞Target＞x86 、x64 に「SQLite.Interop.dll」が
出力されていることを確認します。
起動時にテーブルを作成する
プログラム修正
アプリケーション起動時に、テーブルを作成するようにプログラムを修正します。

MainWindows.xaml.cs

    using System;
    using System.Collections.Generic;
    using System.Linq;
    using System.Text;
    using System.Threading.Tasks;
    using System.Windows;
    using System.Windows.Controls;
    using System.Windows.Data;
    using System.Windows.Documents;
    using System.Windows.Input;
    using System.Windows.Media;
    using System.Windows.Media.Imaging;
    using System.Windows.Navigation;
    using System.Windows.Shapes;

    // SQLite利用のため追加
    using System.Data.SQLite;

    namespace WpfApp1
    {
        /// <summary>
        /// MainWindow.xaml の相互作用ロジック
        /// </summary>
        public partial class MainWindow : Window
        {
            public MainWindow()
            {
                InitializeComponent();
                // SampleDb.sqlite を作成（存在しなければ）
                using (var conn = new SQLiteConnection("Data Source=SampleDb.sqlite"))
                {
                    // データベースに接続
                    conn.Open();
                    // コマンドの実行
                    using (var command = conn.CreateCommand())
                    {
                        // テーブルが存在しなければ作成する
                        // 種別マスタ
                        StringBuilder sb = new StringBuilder();
                        sb.Append("CREATE TABLE IF NOT EXISTS MSTKIND (");
                        sb.Append("  KIND_CD NCHAR NOT NULL");
                        sb.Append("  , KIND_NAME NVARCHAR");
                        sb.Append("  , primary key (KIND_CD)");
                        sb.Append(")");

                        command.CommandText = sb.ToString();
                        command.ExecuteNonQuery();

                        // 猫テーブル
                        sb.Clear();
                        sb.Append("CREATE TABLE IF NOT EXISTS TBLCAT (");
                        sb.Append("  NO INT NOT NULL");
                        sb.Append("  , NAME NVARCHAR NOT NULL");
                        sb.Append("  , SEX NVARCHAR NOT NULL");
                        sb.Append("  , AGE INT DEFAULT 0 NOT NULL");
                        sb.Append("  , KIND_CD NCHAR DEFAULT 0 NOT NULL");
                        sb.Append("  , FAVORITE NVARCHAR");
                        sb.Append("  , primary key (NO)");
                        sb.Append(")");

                        command.CommandText = sb.ToString();
                        command.ExecuteNonQuery();

                    }
                    // 切断
                    conn.Close();
                }
            }
        }
    }

アプリケーションの実行
上部メニューの開始ボタンをクリックし、アプリケーションを実行すると
「MSTKIND」、「TBLCAT」テーブルが作成されます。

SQLite のデータベースを操作できるツール等で、テーブルが作成されていることを確認します。

今回は Firefox のアドオン「SQLite Manager」で確認しました。
データの追加
次のデータをツール、もしくはコマンドラインから追加します。

    INSERT INTO MSTKIND VALUES ("01", "キジトラ");
    INSERT INTO MSTKIND VALUES ("02", "長毛種（不明）");
    INSERT INTO MSTKIND VALUES ("03", "ミケ（っぽい）");
    INSERT INTO MSTKIND VALUES ("04", "サビ");
    INSERT INTO MSTKIND VALUES ("09", "その他");
    INSERT INTO TBLCAT VALUES('1','そら','♂','6','01','犬の人形');
    INSERT INTO TBLCAT VALUES('2','りく','♂','5','02','人間');
    INSERT INTO TBLCAT VALUES('3','うみ','♀','4','03','高級ウェットフード');
    INSERT INTO TBLCAT VALUES('4','こうめ','♀','2','04','横取りフード');

今度はコマンドラインから追加してみました。

更に SQLite Manager にて確認。
Linq でデータを取得、設定する
Linqとは

オブジェクトやデータベース、データセット、エンティティ、XML文書など、アプリケーションで扱うさまざまなデータソースに対して、統一的な手段でアクセスするしくみ

Linq用パッケージの追加
Linqを利用するため、ライブラリの追加を行います。

ソリューションエクスプローラに表示されている「参照」を右クリックし
参照の追加画面を開きます。

「System.Data.Linq」を検索し、表示されたものを選択、「ＯＫ」ボタンをクリックします。

プログラム修正
クラス追加
種別クラス

Kind.cs


using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;

using System.Data.Linq.Mapping;

namespace WpfApp1
{
    [Table(Name = "mstkind")]
    public class Kind
    {
        [Column(Name = "kind_cd", IsPrimaryKey = true)]
        public String KindCd { get; set; }
        [Column(Name = "kind_name")]
        public String KindName { get; set; }
    }
}

猫データクラス

Cat.cs

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;

using System.Data.Linq.Mapping;

namespace WpfApp1
{
    [Table(Name = "tblcat")]
    public class Cat
    {

        [Column(Name = "no", IsPrimaryKey = true)]
        public int No { get; set; }
        [Column(Name = "name")]
        public String Name { get; set; }
        [Column(Name = "sex")]
        public String Sex { get; set; }
        [Column(Name = "age")]
        public int Age { get; set; }
        [Column(Name = "kind_cd")]
        public String Kind { get; set; }
        [Column(Name = "favorite")]
        public String Favorite { get; set; }
    }
}

宣言の追加
MainWindow.xaml.cs

Linqを利用するためにパッケージ利用宣言を追加
(System.Data.Linq.Mapping)

省略
.
.

using System.Data.SQLite; 

using System.Data.Linq; // ←を追記する
using System.Data.Linq.Mapping; // ←を追記する

namespace WpfApp1 {
省略
}

データ取得処理の追加
「MainWindow」メソッドに次の記述を追加

MainWindow.xaml.cs


                    // 種別マスタを取得してコンボボックスに設定する
                    using (DataContext con = new DataContext(conn))
                    {
                        // データを取得
                        Table<Kind> mstKind = con.GetTable<Kind>();
                        IQueryable<Kind> result = from x in mstKind orderby x.KindCd select x;

                        // 最初の要素は「指定なし」とする
                        Kind empty = new Kind();
                        empty.KindCd = "";
                        empty.KindName = "指定なし";
                        var list = result.ToList();
                        list.Insert(0, empty);

                        // コンボボックスに設定
                        this.search_kind.ItemsSource = list;
                        this.search_kind.DisplayMemberPath = "KindName";
                    }

新規メソッドの追加（クリックイベント）


            /// <summary>
            /// 検索ボタンクリックイベント.
            /// 
            /// </summary>
            /// <param name="sender"></param>
            /// <param name="e"></param>
            private void search_button_Click(object sender, RoutedEventArgs e)
            {
                using (var conn = new SQLiteConnection("Data Source=SampleDb.sqlite"))
                {
                    conn.Open();

                    // 猫データ一覧を取得して DataGrid に設定
                    using (DataContext con = new DataContext(conn))
                    {
                        String searchName = this.search_name.Text;
                        String searchKind = (this.search_kind.SelectedValue as Kind).KindCd;

                        // データを取得
                        Table<Cat> tblCat = con.GetTable<Cat>();

                        // サンプルなので適当に組み立てる
                        IQueryable<Cat> result;
                        if (searchKind == "") {
                            // 名前は前方一致のため常に条件していしても問題なし
                            result = from x in tblCat
                                     where x.Name.StartsWith(searchName)
                                     orderby x.No
                                     select x;
                        }
                        else
                        {
                            result = from x in tblCat
                                     where x.Name.StartsWith(searchName) & x.Kind == searchKind
                                     orderby x.No
                                     select x;

                        }
                        this.dataGrid.ItemsSource = result.ToList();
                    }

                    conn.Close();
                }

            }

ビューの修正
検索ボタンにクリックイベントを追加します。

MainWindows.xaml


    <Button x:Name="search_button" Content="検索" Margin="432,12,0,0" Style="{StaticResource btn-normal}" Click="search_button_Click"/>

起動

全件検索

全データが表示されました。
名前指定検索

名前を指定したので、そらのみ表示されました。
種別指定検索

みけっぽい、「うみ」のみ表示されました。
存在しない組み合わせで検索

こうめはサビなので、なにも表示されません。
まとめ

ひとまず、DataGrid に表示できました。
サンプルなのでソースはまあまあ適当ですが、なんとなく使い方がわかってきました。（実は Linq も初）

日々新しい技術が出てくるのでついていくのが大変ですね。
頑張ります。

次回（未定）は Log4net を使ってみたいと思います。

ではでは。

ソースはこちら

GitHub

「SQLite」の記事 - Crieit

スキャンレーション

ある一つのサイト についての

Docker で PHP + SQLite3 の開発環境を構築する

Flutterで学ぶSQLite

SQLiteでカラムを削除する簡単な方法

個人開発でサイトリリースした理由とやったこと

【VB.NET】DataGridView の行を動的に追加してみる

【VB.NET】DataGridView を直接変更してデータを更新してみる

【VB.NET】SQLiteに接続してデータを登録してみる

【VB.NET】SQLiteに接続してデータを取得してみる

【VB.NET】SQLiteのデータベース及びテーブルを動的に作成してみる

【WPF】SQLiteのインサートが遅いので速度アップの方法を試してみる

SQLでNULLを0として出力する方法

【WPF】SQLiteに接続してデータを登録してみる

【WPF】SQLite から Linq でデータを取得してDataGrid に表示してみる

ある一つのサイトについての