# access06.rb.txt: ruby script (encoding: Windows-31J)
  # z_access06.mdb を作成。ついで z_access06_1.xls, z_access06_2.xls を出力
  # まずデータベースを作成(ID, 氏名, 身長, 誕生日からなるテーブル)
  # ２つのsql命令を実行し、各々の結果をExcelファイルに書き出す
  # 「select ……  order by asc|desc」の例。asc:昇順、desc:降順
require "yado"

filename = "z_access06.mdb"  # データベースファイルの名前
if test(?e, filename)  # z_access06.mdbが存在するなら削除
  File.unlink(filename)
end
db = Yado.new(filename)  # データベースを開く
tblname = 'テーブル06'  # これから作成するテーブルの名前
    # ↓ 新たにテーブルを作成
sql = <<EOS1
create table #{tblname}
   (ID counter PRIMARY KEY,
    氏名 varchar(30) NOT NULL,
    身長 float,
    誕生日 date);
EOS1
db.query(sql)  # テーブル06の作成
    # ↓ 新たに作ったテーブルにデータをう挿入
ary = [%w(氏名 身長  誕生日),
       %w(高橋 172.3 1994/10/15),
       %w(鈴木 180.6 1994/1/9),
       %w(佐藤 167.4 1992/3/4),
       %w(若林 165.1 1984/11/13),
       %w(久保 173.7 1979/8/7)]
db.addnew(tblname, ary)

    # ↓ ２つのsql命令を実行し、それぞれの結果をExcelファイルに書き出す
basename = File.basename(filename, ".*")  # 拡張子を除くファイル名
sqls = ["select 身長,氏名,ID,誕生日 from #{tblname} order by 身長 desc;",
    "select 誕生日,氏名,ID,身長 from #{tblname} order by 誕生日 asc;"]
for i in 0...sqls.size
  sql = sqls[i]
  xls_file = basename + "_#{(i+1)}.xls"
  if test(?e, xls_file)  # xlsファイルが存在するなら削除
    File.unlink(xls_file)
  end
  res = db.query_result(sql)  # sqlの実行結果を変数resに入れる
  res.pav(xls_file)  # 変数resをExcelに書き出す
end
db.close