【カテゴリー別】Access VBA ベーシック模擬問題　SQL

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

システムに登録した順番に1問1答形式で出題されます。

タイマー機能やランダム機能はありません。

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

1.

データベースを操作するための言語である「SQL」は、何の略称か。最も適切なものはどれか。以下の選択肢より１つ解答しなさい。

Standard Query Language

System Query Language

Structured Question Language

Structured Query Language

2.

次の文章のうち誤っているものはどれか。以下の選択肢より１つ解答しなさい。

SQLはデータベースの値を、抽出したり操作する仕組みのことである。

テーブルの中のレコードは1つのフィールドで構成されている。

フィールドはテーブルの１列に対応している。

データベースは複数のテーブルで構成されている。

3.

次のコードは、テーブル「Table Product1」のすべてのフィールドのデータを取得するSQLステートメントを実行する処理である。

空欄に当てはまる最も適切なものはどれか。以下の選択肢より１つ解答しなさい。

Sub Exam1()

　Dim N As String

　　N = "SELECT * 【　①　】 [Table Product1];"

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

　　DoCmd.OpenQuery "Query1"

　　MsgBox "完了"

End Sub

INTO

JOIN

FROM

WHERE

4.

次のVBAコードを実行したときの実行結果として正しいものはどれか。以下の選択肢より１つ解答しなさい。

Sub Exam1()

　 Dim N As String

　　N = "SELECT data1, data3 FROM Table1;"

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

　　　DoCmd.OpenQuery "Query1"

　　MsgBox "完了"

End Sub

Table1テーブルの、data1フィールドとdata3フィールドのデータが表示される。

Table1テーブルの、data1からdata3までのすべてのフィールドが表示される。

Table1テーブルのすべてのフィールドのデータが表示される。

エラーが発生して処理は実行されない。

5.

次のVBAコードを実行したときの実行結果として正しいものはどれか。以下の選択肢より１つ解答しなさい。

Access VBA ベーシック模擬試験

Sub Exam1()

　　Dim N As String

　　 N = "SELECT DISTINCT data2, data3 FROM Table2;"

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

　　DoCmd.OpenQuery "Query1"

End Sub

指定した２つのフィールド（data2とdata3）の値の組み合わせが完全に一致する重複レコードが排除されて表示される。

最初に指定した「data2」フィールドのみの重複が排除され、「data3」フィールドは無視される。

エラーが発生し、クエリは実行されない。

指定した２つのフィールドのいずれか一つでも値が重複しているレコードがすべて排除されて表示される。

6.

次のVBAコードを実行したときの実行結果として正しいものはどれか。以下の選択肢より１つ解答しなさい。

Access VBA ベーシック模擬試験

Sub Exam1()

　Dim N As String

　N = "SELECT * FROM [Table Product1] WHERE Price < 10000;"

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

　　DoCmd.OpenQuery "Query1"

End Sub

「Table Product1」テーブルから、Priceが10000以下のレコードが抽出されて表示される。

「Table Product1」テーブルから、Priceが10000以上のレコードが抽出されて表示される。

エラーが発生して処理は実行されない。

「Table Product1」テーブルから、Priceが10000より小さいレコードが抽出されて表示される。

7.

次のコードは、Table Product1テーブルからフィールド名「Price」が10000から30000までのデータを抽出するSQL文を設定し、クエリを開く処理である。

空欄に当てはまる最も適切なものはどれか。以下の選択肢より１つ解答しなさい。

Sub Exam1()

　Dim N As String

　N = "SELECT * FROM [Table Product1] WHERE Price 【　①　】 10000 AND 30000;"

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

　　DoCmd.OpenQuery "Query1"

End Sub

NOT

LIKE

IN

BETWEEN

8.

次のコードは、テーブル「Table Sports1」から「data3」が 1500、3000、4500 のいずれかに一致するレコードを抽出する処理である。

空欄に当てはまる最も適切なものはどれか。以下の選択肢より１つ解答しなさい。

Sub Exam1()

　Dim N As String

　　N = "SELECT * FROM [Table Sports1] WHERE data3 【　① 】(1500, 3000, 4500);"

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

　DoCmd.OpenQuery "Query1"

　　MsgBox "完了"

End Sub

IN

LIKE

BETWEEN

OR

9.

次のVBAコードを実行したときの実行結果として正しいものはどれか。以下の選択肢より１つ解答しなさい。

Sub Exam1()

　Dim N As String

　　　N = "SELECT * FROM Table1 WHERE data2 IN ('A', 'C', 'E') AND data3 IS NOT NULL ;"

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

　　DoCmd.OpenQuery "Query1"

　　MsgBox "完了"

End Sub

data2がA、C、Eで、かつdata3がNullのレコードが抽出される。

data2がA、C、Eで、data3に値があるレコードが抽出される。

data3に値があるレコード全てが抽出される。

エラーが発生して処理は実行されない。

10.

次のコードは、2つのテーブル「Table1」と「Table2」を、それぞれの「data1」フィールドで内部結合してデータを抽出する処理である。

空欄に当てはまる最も適切なものはどれか。以下の選択肢より１つ解答しなさい。

Access VBA ベーシック模擬試験

Sub Exam1()

　　Dim N As String

　　　N = "SELECT ID, Table1.data1, data4 FROM Table1 【　① 】 Table2 ON Table1.data1 = Table2.data1;"

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

　　DoCmd.OpenQuery "Query1"

　　MsgBox"完了"

End Sub

WHERE

INNER JOIN

AS

AND

11.

次のVBAコードを実行したときの実行結果として正しいものはどれか。以下の選択肢より１つ解答しなさい。

Access VBA ベーシック模擬試験

Sub Exam1()

　　Dim N As String

　　N = "SELECT ID, Table1.data1, data4 FROM Table1, Table2 WHERE Table1.data1 = Table2.data1;"

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

　　DoCmd.OpenQuery "Query1"

　　　MsgBox "完了"

End Sub

「Table1」と「Table2」の全てのレコードが無条件に結合されて抽出され、「完了」とメッセージが表示される。

WHERE句を用いた内部結合では、SELECT句に「テーブル名.フィールド名」の形式でフィールドを指定できないため、エラーが発生する。

「Table1」の全てのレコードが抽出された後、「Table2」のレコードが追加され、「完了」とメッセージが表示される。

「Table1」と「Table2」の「data1」フィールドが一致するレコードが結合され指定のフィールドが抽出され、「完了」とメッセージが表示される。

12.

次のVBAコードを実行したときの実行結果として正しいものはどれか。以下の選択肢より１つ解答しなさい。

Access VBA ベーシック模擬試験

Sub Exam1()

　Dim N As String

　N = "SELECT ID, data1 /500 AS data5 FROM Table1;"

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

　 DoCmd.OpenQuery "Query1"

End Sub

IDとdata1のみが表示される。

IDと、data1 /500の計算結果が「Expr1001」という列名で表示される。

IDと、data1 /500の計算結果が「data5」という列名で表示される。

エラーが発生して処理は実行されない。

13.

次のVBAコードを実行したときの実行結果として正しいものはどれか。以下の選択肢より１つ解答しなさい。

Sub Exam1()

　　Dim N As String

　　DoCmd.SetWarnings False

　　N = "INSERT INTO Table5 VALUES ('A6', 'F');"

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

　　DoCmd.OpenQuery "Query1"

　DoCmd.SetWarnings True

　MsgBox "完了"

End Sub

「Table5」テーブルに、data1が 'A6'、data2が ' F ' の新しいレコードが1件追加される。

「Table5」テーブルのすべてのレコードが 'A6' と ' F ' に更新される。

「Table5」テーブルを元にして、新しいテーブルが作成される。

「Table5」テーブルから 'A6' のレコードが削除される。

14.

次のVBAコードを実行したときの実行結果として正しいものはどれか。以下の選択肢より１つ解答しなさい。

Sub Exam1()

　Dim N As String 　

　N = "SELECT data4, Count(ID) AS group件数 FROM Table1 GROUP BY data4;"

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

　DoCmd.OpenQuery "Query1"

　　MsgBox "完了"

End Sub

「data4」で並べ替えられ、すべてのデータが一覧で表示される。

「ID」でグループ化され、グループ毎の件数が (レコード数）が「group件数」として表示される。

「data4」でグループ化され、グループ毎の件数（レコード数）が「group件数」として表示される。

エラーが発生して処理は実行されない。

15.

次のコードは、「data4」でグループ化し、グループごとのdata3の平均値を求める処理である。
空欄に当てはまる最も適切なものはどれか。以下の選択肢より１つ解答しなさい。

Sub Exam1()

　Dim N As String

　　N = "SELECT data4, 【　① 】(data3) AS data3平均 " & "FROM Table1 GROUP BY data4;"

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

　DoCmd.OpenQuery "Query1"

　MsgBox "完了"

End Sub

COUNT

AVG

SUM

MAX

16.

次のVBAコードを実行したときの実行結果として正しいものはどれか。

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

Access VBA ベーシック模擬試験

Sub Exam1()

　　Dim N As String

　　DoCmd.SetWarnings False

　　N = "UPDATE Table1 SET data3 = data3 * 1.1;"

　　DoCmd.RunSQL N

　　DoCmd.SetWarnings True

MsgBox "完了"

End Sub

「Table1」の先頭の1レコードのみ、「data3」フィールドの値が1.1倍に更新される。

「Table1」のすべてのレコードにおいて、「data3」フィールドの値が1.1倍に更新される。

WHERE句で更新条件が指定されていないため、エラーが発生してコードの実行が中断される。

「Table1」の「data3」フィールドのデータがすべて削除され、新しいレコードとして追加される。

17.

次のVBAコードは、Table Product1テーブルから「ID」が「T1005」のレコードのみを削除する処理です。

空欄に当てはまる最も適切な組み合わせはどれか。以下の選択肢より１つ解答しなさい。

Access VBA ベーシック模擬試験

Sub Exam1()

　　Dim N As String

　　DoCmd.SetWarnings False

　　　N = "【　①　】 * FROM [Table Product1]【　②　】 ID = 'T1005';"

　　DoCmd.RunSQL N

　　DoCmd.SetWarnings True

　　MsgBox "完了"

End Sub

【　①　】−DELETE　【　②　】−WHERE

【　①　】−REMOVE　【　②　】−IF

【　①　】−DROP　【　②　】−WHERE

【　①　】−UPDATE　【　②　】−WHEN

18.

次のVBAコードを実行したときの実行結果として正しいものはどれか。以下の選択肢より１つ解答しなさい。

Access VBA ベーシック模擬試験

Sub Exam1()

　Dim N As String

　N = "SELECT * FROM [Table Sports1] ORDER BY data3 DESC, data4;"

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

　DoCmd.OpenQuery "Query1"

　　MsgBox"完了"

End Sub

data3とdata4の両方で昇順に並べ替えられる。

data3とdata4の両方で降順に並べ替えられる。

data3 で昇順、次にdata4で降順に並べ替えられる。

data3で降順、次にdata4で昇順に並べ替えられる。

19.

次のVBAコードを実行したときの実行結果として正しいものはどれか。以下の選択肢より１つ解答しなさい。

(※実行前において、データベース内に"Table1"は存在し、"Table10"は存在しないものとします。)

Sub Exam1()

　　Dim N As String

　　DoCmd.SetWarnings False

　　　 N = "SELECT * INTO Table10 FROM Table1;"

　　DoCmd.RunSQL N

　　DoCmd.SetWarnings True

　MsgBox "完了"

End Sub

「Table1」のすべてのレコードを含む、新しいテーブル「Table10」が作成される。

「Table10」のすべてのレコードが、「Table1」に追加される。

「Table1」と「Table10」が結合された新しいテーブルが作成される。

「Table1」のすべてのレコードが削除され、空のテーブル「Table10」が作成される。

20.

次のVBAコードを実行したときの実行結果として正しいものはどれか。以下の選択肢より１つ解答しなさい。(※"Table1"テーブルと"Table7"テーブルのフィールド構成は完全に一致しているものとします)

Sub Exam1()

　　Dim N As String

　　DoCmd.SetWarnings False

　　　N = "INSERT INTO Table1 SELECT * FROM Table7;"

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

　　DoCmd.OpenQuery "Query1"

　　DoCmd.SetWarnings True

End Sub

「Table1」テーブルのすべてのレコードが、「Table7」テーブルに追加される。

「Table7」テーブルのすべてのレコードが、「Table1」テーブルに追加される。

「Table7」テーブルのうち、特定の条件を満たすレコードだけが「Table1」テーブルに追加される。

SELECT句の後に特定のフィールド名が指定されていないため、エラーが発生してクエリは実行されない。

21.

次のコードは、フィールドを定義して新しいテーブル「TableNew」を作成する処理である。空欄に当てはまる最も適切なものはどれか。以下の選択肢より１つ解答しなさい。

Sub Exam1()

　Dim N As String

　DoCmd.SetWarnings False

　　N = "【　①　】 TABLE TableNew(data1 TEXT(6) PRIMARY KEY, data2 TEXT(15))"

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

　DoCmd.OpenQuery "Query1"

　DoCmd.SetWarnings True

　　MsgBox"完了"

End Sub

SELECT

INSERT

UPDATE

CREATE

22.

次のVBAコードを実行したときの実行結果として正しいものはどれか。以下の選択肢より１つ解答しなさい。

Sub Exam1()

　　Dim N As String

　　　DoCmd.SetWarnings False

　　N = "DROP TABLE TableNEW;"

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

　　DoCmd.OpenQuery "Query1"

　　　DoCmd.SetWarnings True

　　MsgBox "完了"

End Sub

「TableNEW」テーブル内のすべてのレコードが削除されるが、テーブル自体は残る。

「TableNEW」テーブルから特定のフィールドが削除される。

「TableNEW」テーブルそのものがデータベースから削除される。

エラーが発生して処理が中断される。