データベース設計演習3

(2007.01更新)

前回製作した、データベース（最終課題用）の問題点を調整する。

以下の例で指摘されている、パラメータクエリを利用した、検索用クエリの作成を各自で作成しているデータベースにも導入することを推奨する。

第12回の例題のデータベース「履修Ｐb」の問題点：

• 同一の学生が、同じ講義番号の科目を重複して履修することは出来ないが、
  異なる講義番号　で　同じ科目名　の科目を重複して登録可能
  
  (修正案)
  ■テーブルの設計変更。履修テーブルを「（学籍番号、科目名）連結キー、時間割番号」とする。
  　成績管理テーブルを新規に作成し、「（時間割番号、学籍番号）連結キー、成績」とする。
  
  ■時間割番号選択のルックアップで、「未登録または成績が不可」の科目を検索するクエリをデータのソースとする。
  
• 成績が、「不可」扱いの科目でも、再履修するときには重複登録となるため、登録できない
  
  (修正案)
  ■クエリのデザイン画面で、メニュー「クエリ→削除」　とし、不可の科目を削除するレコード削除クエリを製作する。
  
• パラメータクエリによる、検索値を用いたクエリを準備し、データ検索を容易にする
  
  (修正案)
  ■ＡｃｃｅｓｓのＨｅｌｐで、「パラメータ　クエリを作成する」を参考に設定してみる
  
  ヒント：　クエリのデザイン画面で抽出条件を右の様に入力する→　[条件入力メッセージ:]
  [ : ] などの記号の入力に注意する。コロン（：）を（］）の前に入力する必要がある。
  
  クエリのデザイン画面で、抽出条件の部分に以下の様に、入力する。
  
  
  クエリの実行結果：
  データを入力する為のダイアログが現れる。ボックスに値を入力し、OKを押すと、検索結果が表示される。
  
  
  
  ■ＡｃｃｅｓｓのＨｅｌｐで、「フォームを使ってレポートの抽出条件を設定する」を参考に設定してみる
  
• 科目のデータに、必修・選択、基礎・専門共通・専門などの区分を記録し、卒業要件の判定を出来るようにする。
  
  (修正案)
  ■科目テーブルのデザインを変更し、判定用クエリを作成する。

その他：　Accessに関するテクニック

以下の機能を皆さんのデータベースで利用し、データベースを、より利便性の高いものにしてください。

• 既定値　の設定
  テーブルに入力する値が予め決まっていることが多い場合、既定値を指定しておく。
  テーブルのデザイン画面で、フィールドの規定値を、入力する。
  入力する内容は、　数値や文字列を直接指定するほか、関数を利用した入力も可能。
  
  例）
  ・時間割テーブルに、開講時間を追加し、 データ型を、　「日付・時刻」型に設定する
  ・既定値を、 Now() 関数で指定する。
  
  
• 日付、時刻に関する、関数について：
  既定値の設定で便利な関数を紹介する。
  
  Now()　　現在時刻を設定
  
  Date()　　入力時の日付を入力
  
• ＯＬＥオブジェクト（画像）の利用
  データ型　で、　OLEオブジェクト型を指定すると、テーブル中に、画像などのデータを格納可能。
  
  データの格納は、テーブルを表示して、フィールドを右クリック→オブジェクトの挿入
  から、適当なオブジェクトのタイプを選んで挿入。
  
• OLEオブジェクトの表示
  ウィザードを使用してフォームを作成する際、表示形式で、帳票形式を選ぶと、自動的に
  OLEオブジェクトの表示用の枠が設定される。
  
  
  

Q＆A

以前の講義（昨年度〜）で出た、Accessの設定に関する質問と回答

■「端数処理で　切り上げる関数は？」
　　・ int( 式 ) は、式の値を整数値に切り下げます（負の値の場合は、より小さな値へ切り下げ）
　　・round( 式 ) は、式の値を四捨五入します。
　　・int( 式 + 0.999) は、式の値を切り上げます。
　　　どんなに僅かな少数値でも切り上げるには、
　　　AccessのＶＢＡで、roundupという関数を記述するほかありません。
　　　　if 式 <> int( 式 ) then roundup=式+1 else roundup=式 endif

「時刻　-　時刻　の演算結果について」
　　・出社時刻 - 退社時刻　で勤務時間を求めると、小数の値になりますが、
　　　これは、1を24時間とした値です。　つまり、0.5は、12時間ということです。
　　　時給と勤務時間から給与に換算するには、
　　　　(出社時刻 - 退社時刻)*24*時給
　　　を計算します。

■「通貨型で　\記号　の代わりに　$記号　で表示するには？」

テーブルのデザインを開き、該当フィールドのデータ型を　「通貨型」　にします。
次に、　デザイン画面下部の、　フィールドプロパティ　の　書式　に、以下を入力します。

$#,####

■　「クエリの結果で、順位計算して表示するには？」

標準のＳＱＬやＡｃｃｅｓｓのクエリには、ExcelのRank関数の様な、順位を求める関数はありません。
そこで、順位を求めるプログラムをＶＢＡで作成するなどの工夫が必要になります。

（クエリの関数は基本的には、　select A,B, A+B, sqr(A) の様に、フィールド自身の値を用いて計算するタイプか、　select A,max(A) .... group by A のように、あるレコードのグループ内を集計した結果の値を１つだけ求めるタイプだけです。
順位の計算は、あるレコードのグループ内で、それぞれのレコード1つづつに別々の計算をする必要がありますから、標準の関数として用意されていないのかもしれません）

以下のサイトに計算方法が紹介されていたので参考にして下さい。
http://www.moug.net/tech/acvba/0120012.htm

ＶＢＡでプログラムを作成するのと、ACCESSの関数DCOUNTを使う方法の、２つの方法が紹介されています。

DCOUNTの方法の方が簡単（ただしレコード数が多くなると非効率）です。
以下の様な感じになります。

テーブル名「価格表」の、フィールド名「価格」の順位を降順で計算するクエリの式は、　
　DCOUNT("[価格]","価格表","[価格]>" & [価格])+1
※Ｄｃｏｕｎｔで、そのレコードの価格より大きな価格を持つレコードの件数を調べ、＋１して順位としている

■　「データベースにWebのアドレス（URL）を記録したいのですが？」

テーブルのデザインで、URLを格納するフィールドを作成し、データ型を”ハイパーリンク型”に設定してください。そのフィールドに、
　http://www.nagoya-bunri.ac.jp
などと入力しておくと、　フォームで表示した際に、アドレスをクリックするとブラウザで該当するページが表示されるようになります。
データ表示用のフォームは、フォーム作成ウィザードを使用し、帳票形式を選ぶとよいです。