【カテゴリー別】Access VBA スタンダード模擬問題 SQL応用

こちらはカテゴリー別の模擬問題です。

合計41問がシステムに登録した順番どおりに1問1答形式で出題されます。

なおタイマー機能はありません。

なお本カテゴリーの問題は、テーブル名やフィールド名（例：[Table 1]、[Type]、など）にスペースや予約語が含まれる場合において、原則としてカッコ [ ] で囲んで表記しております。

Access VBAの仕様上、文脈によりカッコなしでも動作する場合がありますが、対象を明確に区別するための表記であることをあらかじめご了承ください。

準備が整い次第、ボタンを押して試験を開始してください。

1.

SQL（Structured Query Language）に関する説明として、最も適切なものを以下の選択肢より1つ解答しなさい。

Excelのワークシート関数を記述するための言語である。

VBAのプロシージャの実行順序を制御するための専用言語である。

画面のボタンやフォームのレイアウトを設計するための言語である。

データベースのデータを操作（抽出・追加・更新・削除など）するための言語である。

2.

次のコードは、[Table Product3]から、IDに「100」という文字を含むレコードを抽出して表示するものである。

空欄に入る語句を解答しなさい。

Sub Exam1()

　　Dim N As String

　　N = "SELECT * FROM [Table Product3] WHERE ID '*100*';"

　　CurrentDb.QueryDefs("Query1").SQL = N

　　DoCmd.OpenQuery "Query1"

MsgBox "完了"

End Sub

3.

次のコードは、[Table Product3]から、IDが「T1」で始まる（後ろに任意の数の文字が続く）レコードを抽出するものである。

空欄に入るワイルドカードとして適切なものを、以下の選択肢より1つ解答しなさい。

Sub Exam1()

　　Dim N As String

　　N = "SELECT * FROM [Table Product3] WHERE ID Like 'T1【　① 】;"

　　CurrentDb.QueryDefs("Query1").SQL = N

　　DoCmd.OpenQuery "Query1"

　MsgBox "完了"

End Sub

[ ]

?

*

#

4.

次のコードは、[Table Product3]から、IDの5文字目が「1」または「5」であるレコード（例：T1001、T1005）を抽出するものである。

空欄に入る語句として正しいものを、以下の選択肢より1つ解答しなさい。

Sub Exam1()

　　Dim N As String

　　N = "SELECT * FROM [Table Product3] WHERE ID Like 'T100【　① 】;"

　　CurrentDb.QueryDefs("Query1").SQL = N

　　DoCmd.OpenQuery "Query1"

MsgBox "完了"

End Sub

#15

[15]

{15}

(15)

5.

次のコードは、[Table Product3]から、IDの5文字目が「1」から「5」の範囲にあるレコードを抽出するものである。

空欄に入る語句を解答しなさい。

Sub Exam1()

　　Dim N As String

　　N = "SELECT * FROM [Table Product3] WHERE ID Like 'T100';"

　　CurrentDb.QueryDefs("Query1").SQL = N

　　DoCmd.OpenQuery "Query1"

　MsgBox "完了"

End Sub

6.

Like演算子の範囲指定した「[文字1-文字2]」に関する説明として、最も適切なものを1つ解答しなさい。

以下の選択肢より1つ解答しなさい。

範囲指定では数字は使えず、英字のみ指定できる。

範囲は必ず昇順（例：[1-9]）で指定する必要があり、降順（例：[9-1]）では正しく検索できない。

範囲の両端の文字は検索結果に含まれない。

範囲は昇順・降順のどちらで書いても同じ結果になる。

7.

Accessのクエリモード（ANSI-89とANSI-92）に関する説明として、最も適切なものを1つ解答しなさい。

以下の選択肢より1つ解答しなさい。

Accessには「ANSI-89」と「ANSI-92」の2つのクエリモードがあり、使用するモードによってワイルドカード文字が異なる。

Accessのクエリモードは1種類のみで、ワイルドカードは常に同じである。

クエリモードはSQL文の実行速度を指定する設定である。

ANSI-89とANSI-92は、ワイルドカードではなく並べ替えの方向を決めるモードである。

8.

ANSI-89とANSI-92の使い分けに関する説明として、最も適切なものを1つ解答しなさい。

以下の選択肢より1つ解答しなさい。

どちらのモードもSQL Server専用で、通常のAccessでは使用しない。

ANSI-89は数値の検索専用、ANSI-92は文字列の検索専用である。

ANSI-89は通常のデータベースやDAOオブジェクトを使用してのアクセス時、ANSI-92はSQL Server接続やADOオブジェクトを使用しての使用してのアクセス時に使用される。

ANSI-89はADO専用、ANSI-92はDAO専用である。

9.

ANSI-92モードにおいて、ANSI-89の「*」（任意数の文字）に相当するワイルドカードとして正しいものを1つ解答しなさい。

以下の選択肢より1つ解答しなさい。

?

[^]

%

_

10.

ANSI-92モードにおいて、ANSI-89の「?」（任意の1文字）に相当するワイルドカードとして正しいものを空欄に解答しなさい。

11.

ANSI-92モードにおいて、ANSI-89のリスト「[!15]」（リスト以外の1文字）に相当する記述を「15」使用して空欄に解答しなさい。

12.

*修正必要か[Price]　次のコードは、テーブル[Table Sports1]を「Type」ごとにグループ化し、各グループの「Price」の合計を求めるものである。

空欄に入る語句を解答しなさい。

Sub Exam1()

　　Dim N As String

　　N = "SELECT [Type], Sum([Price]) FROM [Table Sports1] [Type];"

　　CurrentDb.QueryDefs("Query1").SQL = N

　　DoCmd.OpenQuery "Query1"

　MsgBox "完了"

End Sub

13.

GROUP BY句に複数のフィールドを指定した場合のグループ化の動作として、最も適切なものを1つ解答しなさい。

以下の選択肢より1つ解答しなさい。

右側に書いたフィールドから優先してグループ化される。

複数フィールドはGROUP BYに指定できない。

指定した順番に関係なく、常に主キーの順でグループ化される。

左側に書いたフィールドから優先してグループ化される。

14.

SQLの集計関数（グループごとの集計に使う関数）として正しい組み合わせを1つ解答しなさい。

以下の選択肢より1つ解答しなさい。

COUNT･SUM･AVG･MAX･MIN

LEFT･RIGHT･MID･TRIM

IIF･SWITCH･CHOOSE

FORMAT･STR･VAL･CSTR

15.

次のコードは、[Table Sports1]の「Price」フィールドに値が入っているレコードの件数を求めて表示するものである。

空欄に入る語句を解答しなさい。

Sub Exam1()

　　Dim N As String

　　Dim rst As Object

　　N = "SELECT (Price) FROM [Table Sports1];"

　　Set rst = CurrentDb.OpenRecordset(N)

　　MsgBox rst.Fields(0).Value

MsgBox "完了"

End Sub

16.

次のコードを実行したときの結果として正しいものを1つ解答しなさい。

以下の選択肢より1つ解答しなさい。

Sub Exam1()

　　Dim N As String

　　Dim rst As Object

　　N = "SELECT Count(*) FROM [Table Sports1];"

　　Set rst = CurrentDb.OpenRecordset(N)

　　MsgBox rst.Fields(0).Value

　MsgBox "完了"

End Sub

いずれかのフィールドがNullのレコードも含めた、全レコードの件数が表示される。

Nullを含むためエラーになり、件数は表示されない。

常に0が表示される。

すべてのフィールドに値があるレコードだけの件数が表示される。

17.

次のコードは、[Table Sports1]の「Price」の平均値を求めて表示するものである。

空欄に入る語句を解答しなさい。

Sub Exam1()

　　Dim N As String

　　Dim rst As Object

　　N = "SELECT (Price) FROM [Table Sports1];"

　　Set rst = CurrentDb.OpenRecordset(N)

　　MsgBox rst.Fields(0).Value

MsgBox "完了"

End Sub

18.

SELECT句で集計関数などに句で別名を指定しなかった場合、

結果のフィールドには「 1001」既定の名前（先頭の例は 1001）が自動的に割り当てられる。空欄にはいる適切な語句を解答しなさい。

19.

次のコードは、「Type」の種類ごとに「Price」を合計し、合計が3000以上のグループだけを抽出するものである。

空欄に入る語句を解答しなさい。

Sub Exam1()

　　Dim N As String

　　N = "SELECT Type, SUM(Price) FROM [Table Sports1] GROUP BY Type SUM(Price) >= 3000;"

　　CurrentDb.QueryDefs("Query1").SQL = N

　　DoCmd.OpenQuery "Query1"

　　MsgBox "完了"

End Sub

20.

集計クエリにおけるWHERE句とHAVING句の違いとして、最も適切なものを1つ解答しなさい。

以下の選択肢より1つ解答しなさい。

WHEREは集計関数を条件に使えるが、HAVINGは使えない。

HAVINGはグループ化する前のレコードを絞り込むために使う。

WHEREはグループ化する前の個々のレコードを絞り込み、HAVINGはグループ化した後のグループを絞り込む。

WHEREとHAVINGはまったく同じ働きで、どちらを使っても結果は変わらない。

21.

次のコードは、Table1とTable7を、data1が一致するレコードだけ結合して取り出すものである。

空欄に入る語句を解答しなさい。

Sub Exam1()

　　Dim N As String

　　N = "SELECT Table1.data1, Table1.data2, Table7.data5 FROM Table1 Table7 ON Table1.data1= Table7.data1;"

　　CurrentDb.QueryDefs("Query1").SQL = N

　　DoCmd.OpenQuery "Query1"

MsgBox "完了"

End Sub

22.

テーブルを結合するときの「結合フィールド」に関する説明として、最も適切なものを1つ解答しなさい。

以下の選択肢より1つ解答しなさい。

結合フィールドは、2つのテーブルでまったく同じ名前でなければならない。

結合には必ず主キー同士を使わなければならない。

データ型が違っていても、名前さえ同じなら結合できる。

フィールド名は同じでなくてもよいが、データ型（種類）は一致している必要がある。

23.

外部結合（LEFT JOINやRIGHT JOIN）を使う目的として、最も適切なものを1つ解答しなさい。

以下の選択肢より1つ解答しなさい。

結合せずに1つのテーブルだけを取り出すため。

一致するレコードだけでなく、片方のテーブルにあって相手に一致しないレコードも含めて取り出すため。

レコードを昇順・降順に並べ替えるため。

両方のテーブルに一致するレコードだけを取り出すため。

24.

次のコードは、Table1を基準として、Table5と一致しないレコードも含めて結合して取り出すものである。

空欄に入る語句を解答しなさい。

Sub Exam1()

　　Dim N As String

　　N = "SELECT Table1.data1, Table1.data2,Table5.data7 FROM Table1 Table5 ON Table1.ID = Table5.ID;"

　　CurrentDb.QueryDefs("Query1").SQL = N

　　DoCmd.OpenQuery "Query1"

　MsgBox "完了"

End Sub

25.

次のコードは、 Table2を基準に Table1と一致しないレコードも含めて結合して取り出すものである。

空欄に入る語句を解答しなさい。

Sub Exam1()

　　Dim N As String

　　 N = "SELECT Table2.data4,Table2.data5,Table1.data2 FROM Table1 Table2 ON Table1.ID = Table2.ID;"

　　CurrentDb.QueryDefs("Query1").SQL = N

　　DoCmd.OpenQuery "Query1"

　MsgBox "完了"

End Sub

26.

外部結合で、基準にしたテーブルにはあるが相手のテーブルに一致するレコードがない場合、相手側のフィールドの値はどうなるか。最も適切なものを1つ解答しなさい。

以下の選択肢より1つ解答しなさい。

相手側のフィールドには0が入る。

エラーになり結果が表示されない。

そのレコード自体が結果から除外される。

相手側のフィールドにはNull値が入る。

27.

次のコードは、Table1を左外部結合し、Table8に一致するレコードが無い（＝Tablet8側だけ空の）指定フィールドのレコードだけを抽出するものである。

空欄に入る語句を解答しなさい。

Sub Exam1()

　　Dim N As String

　　 N = "SELECT Table8.data1 FROM Table8 LEFT JOIN Table1 ON Table8.data1 = Table1.data1 WHERE Table1.data1 ;"

　　CurrentDb.QueryDefs("Query1").SQL = N

　　DoCmd.OpenQuery "Query1"

　MsgBox "完了"

End Sub

28.

次のコードは、Table1とTable7から指定フィールドの重複は除いて1つの結果にまとめて取り出すものである

空欄に入る語句を解答しなさい。

Sub Exam1()

　Dim N As String

　N = "SELECT data1 FROM Table1 SELECT data7 FROM Table7;"

　CurrentDb.QueryDefs("Query1").SQL = N

　DoCmd.OpenQuery "Query1"

　MsgBox "完了"

End Sub

29.

UNION演算子で複数のSELECT結果を結合したときの、重複レコードの扱いとして最も適切なものを1つ解答しなさい。

以下の選択肢より1つ解答しなさい。

重複するレコードもすべてそのまま残る。

重複レコードだけが取り出される。

重複があるとエラーになり結合できない。

重複するレコードは自動的に1つにまとめられ、除外される。

30.

次のコードは、2つテーブルを重複も除外せず結合するものである。

空欄に入る語句を解答しなさい。

Sub Exam1()

　　Dim N As String

　　N = "SELECT * FROM Table1 SELECT * FROM Table2;"

　　CurrentDb.QueryDefs("Query1").SQL = N

　　DoCmd.OpenQuery "Query1"

　MsgBox "完了"

End Sub

31.

次のコードは、Table1に「data10」という短いテキスト型のフィールドを追加するものである。

空欄に入る適切な語句を解答しなさい。

Sub Exam1()

　　Dim N As String

　　DoCmd.SetWarnings False

　　N = " TABLE Table1 data10 TEXT(50);"

　　DoCmd.RunSQL N

　　DoCmd.SetWarnings True

　MsgBox "完了"

End Sub

32.

次のコードは、テーブルの既存フィールド「data1」の定義を、最大100文字のテキスト型に変更するものである。

空欄に入る語句を解答しなさい。

Sub Exam1()

　　Dim N As String

　　DoCmd.SetWarnings False

　　N = "ALTER TABLE Table1 COLUMN data1 TEXT(100);"

　　DoCmd.RunSQL N

　　DoCmd.SetWarnings True

　MsgBox "完了"

End Sub

33.

次のコードは、VBAからSQL（アクションクエリ）を実行して、テーブルに整数型のフィールド「data11」を追加するものである。空欄に入る適切な語句解答しなさい。

空欄に入る語句を解答しなさい。

Sub Exam1()

　　Dim N As String

　　N = "ALTER TABLE Table1 ADD COLUMN data11 INTEGER;"

　　Docmd. N

　MsgBox "完了"

End Sub

34.

インデックスの役割に関する説明として、最も適切なものを1つ解答しなさい。

以下の選択肢より1つ解答しなさい。

インデックスはフィールドの値を暗号化して保存する機能である。

インデックスを付けると、検索も更新も常に無条件で速くなる。

検索や並べ替えを高速化するための索引のことである。

インデックスはデータのバックアップを自動作成する機能である。

35.

次のコードは、テーブルの指定フィールドにインデックス「idx」を作成するものである。

空欄に入る語句を解答しなさい。

Sub Exam1()

　　Dim N As String

　　N = " idx ON Table1 (data1);"

　　DoCmd.RunSQL N

　MsgBox "完了"

End Sub

36.

次のコードは、テーブルに作成済みのインデックス「idx」を削除するものである。

空欄に入る語句を解答しなさい。

Sub Exam1()

　　Dim N As String

　　N = " idx ON Table1 ;"

　　DoCmd.RunSQL N

　MsgBox "完了"

End Sub

37.

SQLの高速化の基本的な考え方として、最も適切なものを1つ解答しなさい。

以下の選択肢より1つ解答しなさい。

「無駄な処理を行わないこと」と「より高速な方法を選択すること」の2つが基本方針である。

とにかくインデックスをできるだけ多くのフィールドに設定することだけが高速化の方法である。

テーブルを正規化せず1つにまとめれば必ず高速になる。

SELECT * を使ってすべてのフィールドを取得すれば必ず高速になる。

38.

SELECT句の書き方による高速化の説明として、最も適切なものを1つ解答しなさい。

以下の選択肢より1つ解答しなさい。

SELECT句には必ずすべてのフィールドを書かなければならない。

取得するフィールド数は処理速度にまったく影響しない。

SELECT * を避け、必要なフィールドだけを明示的に指定することで、使わないデータを取得する無駄を省き高速化できる。

常に SELECT * を使う方が、フィールドを指定するより高速である。

39.

高速化の観点から、UNIONとUNION ALLを使い分ける際の説明として、

最も適切なものを以下の選択肢より1つ解答しなさい。

重複レコードを除外する必要がない場合は、重複チェックを行わないUNION ALLの方がUNIONより高速である。

重複を除外する必要がない場合でも、常にUNIONを使う方が高速である。

UNION ALLは重複を除外するため、UNIONより常に遅い。

UNIONとUNION ALLは処理速度がまったく同じである。

40.

インデックスやデータベースの正規化を効果的に活用した高速化の説明として、適切なもの以下の選択肢より2つ解答しなさい。

正規化をやめてすべてのデータを1つの巨大なテーブルにまとめる。

インデックスは多ければ多いほど、更新も含めてすべての処理が速くなる。

適切な正規化、主キーの適切な設定、不要なインデックスの削除などを組み合わせて行う。

検索や並べ替えの条件、集計関数の引数に使うフィールドにインデックスを設定すると高速化が図れる。

41.

データベース全体の高速化のための複合的な最適化手法として、最も適切なものを1つ解答しなさい。

以下の選択肢より1つ解答しなさい。

高速化のためにできる限り多くの重複データを保持する。

正規化をやめてすべてのデータを1つの巨大なテーブルにまとめる。

主キーは設定せず、すべてのフィールドにインデックスを付ける。

適切な正規化、主キーの適切な設定、不要なインデックスの削除などを組み合わせて行う。