# access11.rb.txt: ruby script (encoding: Windows-31J)
  # z_access11.mdb, z_access11.txt を出力
  # ALTER TABLE の例：既存のテーブルにフィールドを追加したり
  # 既存のフィールドのデータ型を変更したりする
  # 「ID,氏名」のテーブルに「メモ」(varchar型)を追加
  # 次に、その「メモ」のデータ型をtextに変更
  # 最後に「メモ」というフィールドを削除
require "yado"
require "rrx"

filename = "z_access11.mdb"  # データベースファイルの名前
if test(?e, filename)  # z_access11.mdbが存在するなら削除
  File.unlink(filename)
end
db = Yado.new(filename)  # データベースを開く
tbl = "テーブル11"

    # テーブルの初期設定
txt_str = "access11: フィールドの追加・変更\n\n"
sql = <<EOS1
CREATE TABLE #{tbl} (
  ID int PRIMARY KEY,
  氏名 varchar(30)
);
EOS1
db.query(sql)
ary = []
db.pfi(ary, :SQL, tbl)  # フィールド情報を取得
tbl_info = [ary.shift, ary.shift]  # 最初の２行はテーブル情報
ary.delete([])
txt_str += "※ テーブル情報\n\n"
txt_str += Rrx::text_table(tbl_info) + "\n\n"
txt_str += "※ フィールド情報\n\n"
txt_str += Rrx::text_table(ary) + "\n\n"

    # フィールドの追加
txt_str += "** フィールドの追加 **\n"
sql = "ALTER TABLE #{tbl} ADD COLUMN メモ varchar(50);"
db.query(sql)
ary = []
db.pfi(ary, :SQL, tbl)
ary.delete([])
txt_str += "#{sql}\n\n"
txt_str += "※ フィールド情報\n\n"
txt_str += Rrx::text_table(ary[2..-1]) + "\n\n"

    # 既存フィールドのデータ型を変更
txt_str += "** 既存フィールドのデータ型を変更 **\n"
sql = "ALTER TABLE #{tbl} ALTER COLUMN メモ text;"
db.query(sql)
ary = []
db.pfi(ary, :SQL, tbl)
ary.delete([])
txt_str += "#{sql}\n\n"
txt_str += "※ フィールド情報\n\n"
txt_str += Rrx::text_table(ary[2..-1]) + "\n\n"

    # フィールドの削除
txt_str += "** フィールドの削除 **\n"
sql = "ALTER TABLE #{tbl} DROP COLUMN メモ;"
db.query(sql)
ary = []
db.pfi(ary, :SQL, tbl)
ary.delete([])
txt_str += "#{sql}\n\n"
txt_str += "※ フィールド情報\n\n"
txt_str += Rrx::text_table(ary[2..-1]) + "\n\n"
db.close

txt_file = File.basename(filename, ".*") + ".txt"
File.open(txt_file, "w") {|ff|  ff.write txt_str}