# access05.rb.txt: ruby script (encoding: Windows-31J)
  # z_access05.mdb, z_access05.xls を出力
  # レコードの削除：身長170.0未満を削除(sql命令：deleteによる方法)
require "yado"

filename = "z_access05.mdb"  # データベースファイルの名前
if test(?e, filename)  # z_access05.mdbが存在するなら削除
  File.unlink(filename)
end
db = Yado.new(filename)  # データベースを開く
tblname = 'テーブル05'  # これから作成するテーブルの名前

sql = <<EOS1
create table #{tblname}
   (ID counter PRIMARY KEY,
    氏名 varchar(30) NOT NULL,
    身長 float,
    誕生日 date);
EOS1
db.query(sql)

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 = <<EOS2
delete from #{tblname}
  WHERE  身長 < 170.0;
EOS2
db.query(sql)
db.close

    # 上で作ったデータベースの中身をExcelファイルとして書き出す
xls_file = File.basename(filename, ".*") + ".xls"
if test(?e, xls_file)  # xlsファイルが存在するなら削除
  File.unlink(xls_file)
end
db = Yado.new(filename)
db.pav(xls_file)
db.close