# access03.rb.txt: ruby script (encoding: Windows-31J)
  # z_access03.mdb, z_access03.xls を出力
  # オートインクリメント機能を利用する例
  # 「ID, 氏名, 身長, 誕生日, 資格あり」のIDを入力しなくても自動的に入る
  # 下に出てくる「counter(10,5)」は、初期値が10, 5づつ増加を意味する
require "yado"

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

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

ary = [%w(氏名 身長  誕生日     資格あり),
       %w(高橋 172.3 1994/10/15 0),
       %w(鈴木 180.6 1994/1/9   1),
       %w(佐藤 167.4 1992/3/4   0)]
db.addnew(tblname, ary)
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