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

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

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

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

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

1.

DAOの説明として正しいものはどれか。以下の選択肢より1つ解答しなさい。

AccessのJetデータベースエンジンに直接接続するライブラリで、テーブルやクエリを作成する機能を持つ。

DAOはテーブルやクエリを作成する機能を持たない。

DAOはADOの新しいバージョンである。

Access以外のさまざまなデータベースを共通の方法で操作するための汎用的なライブラリである。

2.

DAOを利用するために参照設定で有効にするライブラリはどれか。以下の選択肢より1つ解答しなさい。

Microsoft ActiveX Data Objects X.X Library

Microsoft Office XX.X Access database engine Object Library

Microsoft Access XX.X Object Library

Microsoft Scripting Runtime

3.

DAO（Data Access Objects）を使って、Recordsetオブジェクト変数を宣言する。DAOのRecordsetであることを明示的に指定した宣言として、正しいものはどれか。

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

Dim rst As ADODB.Recordset

Dim rst As Recordset.DAO

Dim rst As DAO.Recordset

Dim rst As NEW.Recordset

4.

次のコードは、DAOでカレントデータベースへ接続するものである。最初空欄にはDAOのデータベースを表すオブジェクト型を、

次の空欄にはカレントデータベースを取得する記述を解答しなさい。

Sub Exam1()

　　Dim dbs As DAO.

　　Set dbs =

　　Set dbs = Nothing

　　MsgBox "完了"

End Sub

5.

次のコードは、DAOを使って、現在開いているデータベース（カレントデータベース）ではなく、別の場所にあるデータベースファイル（C:\data\test.accdb）に接続し、そのデータベース名を表示する処理である。

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

Sub Exam1()

　　Dim dbs As DAO.Database

　　Set dbs = ("C:￥data￥test.accdb")

　　MsgBox dbs.Name

　　dbs.Close

　　Set dbs = Nothing

　　MsgBox "完了"

End Sub

6.

次のコードを実行するとどうなるか。

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

Sub Exam1()

　　Dim dbs As DAO.Database

　　Set dbs = CurrentDb

　　dbs.Execute "SELECT * FROM [Table Product1]"

　　Set dbs = Nothing

　　MsgBox "完了"

End Sub

先頭レコードだけが取得される。

選択クエリはExecuteで実行できないため、エラーが発生する。

何も起きずに完了する。

Table Product1の全レコードが取得され、正常に完了する。

7.

DAOでテーブルを作成する手順として正しいものはどれか。以下の選択肢より1つ解答しなさい。

CreateTableDefで作成し、CreateFieldでフィールドを作成してAppendで追加した後、TableDefsオブジェクトにAppendで追加する。

CreateFieldでテーブルを作成し、CreateTableDefでフィールドを追加する。

CreateTableだけでテーブルとフィールドを同時に作成する。

テーブルはDAOでは作成できない。

8.

DAOでCreateFieldメソッドを使って新しいフィールドを作成するとき、第2引数にはフィールドのデータ型を表す定数を指定する。

「倍精度浮動小数点型」のフィールドを作成するときに第2引数へ指定する定数として、正しいものはどれか。以下の選択肢より1つ解答しなさい。

dbDate

dbCurrency

dbDouble

dbText

9.

次のコードは、DAOを使って、カレントデータベースにある「work」という名前のテーブルを削除する処理である。

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

Sub Exam1()

　　Dim dbs As DAO.Database

　　Set dbs = CurrentDb

　　dbs.. "work"

　　Set dbs = Nothing

　　MsgBox "完了"

End Sub

10.

次のコードは、データベースに保存されない一時的なクエリを作成するものである。

空欄に入るメソッド名を解答しなさい。なお、第1引数（クエリ名）に長さ0の文字列を指定している。

Sub Exam1()

　　Dim dbs As DAO.Database

　　Dim qdf As DAO.QueryDef

　　Set dbs = CurrentDb

　　Set qdf = dbs.( , "SELECT * FROM [Table Product1]")

　　Set qdf = Nothing: Set dbs = Nothing

　　MsgBox "完了"

End Sub

11.

次のコードは、DAOを使って、名前を付けずに作成した一時的なクエリを実行し、その結果をレコードセットに格納して、先頭レコードのProduct Nameを表示する処理である。

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

Sub Exam1()

　　Dim dbs As DAO.Database

　　Dim qdf As DAO.QueryDef

　　Dim rst As DAO.Recordset

　　Set dbs = CurrentDb

　　Set qdf = dbs.CreateQueryDef("", "SELECT * FROM [Table Product1]")

　　Set rst = qdf.

　　MsgBox rst.Fields("Product Name").Value

　　rst.Close

　　Set rst = Nothing: Set qdf = Nothing: Set dbs = Nothing

　　MsgBox "完了"

End Sub

12.

次のコードは、QueryDefsコレクションを使って、作成したクエリ「Q1」を削除するものである。

空欄に入るメソッド名を解答しなさい。

Sub Exam1()

　　Dim dbs As DAO.Database

　　Set dbs = CurrentDb

　　dbs.. "Q1"

　　Set dbs = Nothing

　　MsgBox "完了"

End Sub