# access08.rb.txt: ruby script (encoding: Windows-31J)
  # z_access08.mdb, z_access08.htm を出力
  # 仮装テーブルのVIEWを使う例
  # まず「ID,氏名,身長,誕生日,資格あり」からなるデータベースを作成
  # 仮想テーブルに関するsql命令を実行し、その結果をhtmlに書き出す
  # markdownを生成し、それをhtmlに変換する。
require "yado"
require "rpt"

filename = "z_access08.mdb"  # データベースファイルの名前
if test(?e, filename)  # z_access08.mdbが存在するなら削除
  File.unlink(filename)
end
db = Yado.new(filename)  # データベースを開く
tblname = 'テーブル08'  # これから作成するテーブルの名前
    # ↓ テーブルの作成
sql = <<EOS1
create table #{tblname}
   (ID counter PRIMARY KEY,
    氏名 varchar(30) NOT NULL,
    身長 float,
    誕生日 date,
    資格あり yesno);
EOS1
db.query(sql)  # テーブル08の作成
    # ↓ レコードを追加
ary = [%w(氏名   身長  誕生日     資格あり),
       %w(高橋   172.3 1994/10/15 0),
       %w(鈴木   180.6 1994/1/9   1),
       %w(佐藤   167.4 1992/3/4   0),
       %w(若林   165.1 1984/11/13 1),
       %w(久保   173.7 1979/8/7   0),
       %w(青木   181.4),  # 以降の２人は氏名と身長のみ
       %w(佐々木 174.6)]
db.addnew(tblname, ary)

    # ↓ sqlを実行しつつ markdown の原稿を生成
mkd_str = ''
mkd_str += "# access08: 仮想テーブル利用の例\n\n"
mkd_str += "## 1990年代生まれの人の抽出\n\n"
sql = <<EOS2
create view birth90 as select * from #{tblname}  
    where 誕生日 between #1990/01/01# and #1999/12/31#;
EOS2
db.query(sql)
mkd_str = mkd_str + sql + "\n"
mkd_str += "1990年代生まれの人を抽出して" +
    "VIEW(birth90)を生成。その内容は次のとおり。\n\n"
['birth90', tblname].each do |tname|
  ary = []
  db.pav(ary, tname)
  ary.shift  # 最初にあるテーブル名を取り除く
  ary.delete([])  # 空白行を取り除く
  mkd_str += "*#{tname}*\n\n"
  mkd_str = mkd_str + Rrx::matrix2table(ary, 'border="1"') + "\n"
  mkd_str += "----------------\n{: width=\"50%\" align=\"center\"}\n\n"
end

    # これまで空欄だったところ(誕生日)にデータを書き込む
sql = <<EOS3
update #{tblname}  
  set  
    誕生日 = #1991/2/5#  
  WHERE  
    氏名 = '青木';
EOS3
db.query(sql)

sql = <<EOS4
update #{tblname}  
  set  
    誕生日 = #1990/4/19#  
  WHERE  
    氏名 = '佐々木';
EOS4
db.query(sql)

mkd_str += "## 青木さんと佐々木さんの誕生日データを書き加えた後のデータ\n\n"
['birth90', tblname].each do |tname|
  ary = []
  db.pav(ary, tname)
  ary.shift  # 最初にあるテーブル名を取り除く
  ary.delete([])  # 空白行を取り除く
  mkd_str += "*#{tname}*\n\n"
  mkd_str = mkd_str + Rrx::matrix2table(ary, 'border="1"') + "\n"
  mkd_str += "----------------\n{: width=\"50%\" align=\"center\"}\n\n"
end

sql = "select * from birth90 where 身長 >= 180.0;"
res = db.query_result(sql)
ary = []
res.pav(ary)
ary.shift  # 最初にあるsql文を取り除く
mkd_str += "## 1990年代生まれで、かつ、身長180.0以上の人\n\n"
mkd_str = mkd_str + sql + "\n\n" +
    Rrx::matrix2table(ary, 'border="1"') + "\n"
mkd_str += "----------------\n\n"

sql = "drop table birth90;"
db.query(sql)  # birth90の削除
mkd_str = mkd_str + sql + "\n\n" + "最後にbirth90を削除.\n\n"
db.close

    # htmlの生成
html_str = Rrx::kramdown_html(mkd_str, :s)
html_file = File.basename(filename, ".*") + ".htm"
File.open(html_file, "w") {|ff|  ff.write html_str}