Computer Science - Python - データベース(キーと制約(PRIMARY KEY節))

初めてのコンピュータサイエンス
(オライリージャパン)
Jennifer Campbell Paul Gries
Jason Montojo Greg Wilson (著)
長尾 高弘 (翻訳)

開発環境

• OS X Mavericks - Apple(OS)
• Emacs (CUI)、BBEdit - Bare Bones Software, Inc. (GUI) (Text Editor)
• Python (プログラミング言語)

初めてのコンピュータサイエンス(Jennifer Campbell、Paul Gries、Jason Montojo、Greg Wilson(著)長尾 高弘(翻訳))の15章(データベース)、15.11(練習問題)、2-a.を解いてみる。

15.11(練習問題)、2-a.

コード(BBEdit)

sample.py

#!/usr/bin/env python3.3
#-*- coding: utf-8 -*-

import sqlite3 as dbapi

con = dbapi.connect('census.db')
cur = con.cursor()
cur.execute('DROP TABLE Capitals')
cur.execute('''CREATE TABLE Capitals (State TEXT, City TEXT,
Population Integer, PRIMARY KEY (State))''')
cur.execute('''INSERT INTO Capitals VALUES("ニューファンドランド・ラブラドール州",
"セント・ジョンズ", 172918)''')
cur.execute('''
INSERT INTO Capitals VALUES("プリンスエドワードアイランド州", "シャーロットタウン",
    58358)''')
cur.execute('''INSERT INTO Capitals VALUES("ノバスコシア州", "ハリファックス",
359183)''')
cur.execute('''INSERT INTO Capitals VALUES("ヌーブランズウィック州",
"フレデリクトン", 81346)''')
cur.execute('INSERT INTO Capitals VALUES("ケベック州", "ケベック", 682757)')
cur.execute('INSERT INTO Capitals VALUES("オンタリオ州", "トロント", 4682897)')
cur.execute('INSERT INTO Capitals VALUES("マニトバ州", "ウィニペグs", 671274)')
cur.execute('''INSERT INTO Capitals VALUES("サスカチュワン州", "レジャイナ",
192800)''')
cur.execute('''INSERT INTO Capitals VALUES("アルバータ州", "エドモントン",
937845)''')
cur.execute('''INSERT INTO Capitals VALUES("ブリティッシュコロンビア州",
"ビクトリア", 311902)''')
cur.execute('''INSERT INTO Capitals VALUES("ユーコン準州", "ホワイトホース",
21405)''')
cur.execute('''INSERT INTO Capitals VALUES("ノースウェスト準州", "イエローナイフ",
16541)''')
cur.execute('INSERT INTO Capitals VALUES("ヌナブト準州", "イカルイト", 5236)')
con.commit()
cur.execute('SELECT * FROM Capitals')
for x in cur.fetchall():
    print(x)
con.close()

入出力結果(Terminal)

$ ./sample.py
('ニューファンドランド・ラブラドール州', 'セント・ジョンズ', 172918)
('プリンスエドワードアイランド州', 'シャーロットタウン', 58358)
('ノバスコシア州', 'ハリファックス', 359183)
('ヌーブランズウィック州', 'フレデリクトン', 81346)
('ケベック州', 'ケベック', 682757)
('オンタリオ州', 'トロント', 4682897)
('マニトバ州', 'ウィニペグs', 671274)
('サスカチュワン州', 'レジャイナ', 192800)
('アルバータ州', 'エドモントン', 937845)
('ブリティッシュコロンビア州', 'ビクトリア', 311902)
('ユーコン準州', 'ホワイトホース', 21405)
('ノースウェスト準州', 'イエローナイフ', 16541)
('ヌナブト準州', 'イカルイト', 5236)
$