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

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

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

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

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

1.

ADO（ActiveX Data Objects）の説明として正しいものはどれか。
以下の選択肢より1つ解答しなさい。

テキストファイルの読み書き専用のライブラリである。

SQLを一切使わずにデータベースを操作するための機能である。

Accessのフォームやレポートだけを操作するための専用ライブラリである。

データベースを操作するためのオブジェクトを提供するライブラリで、Access以外のデータベースも共通の方法で操作可能である。

2.

ADOを構成する主要オブジェクトの説明として誤っているものはどれか。
以下の選択肢より1つ解答しなさい。

Connection ― データベースへの接続の保持。

Error ― フィールドの保持。

Recordset ― レコードの集まりを保持する。

Command ― データベースへのコマンドの保持。

3.

Access 2016でADOを利用するために、参照設定ダイアログボックスで有効にするライブラリはどれか。
以下の選択肢より1つ解答しなさい。

Microsoft Access xx.x Object Library

Microsoft Scripting Runtime

Microsoft Office xx.x Access database engine Object Library

Microsoft ActiveX Data Objects x.x Library

4.

次のコードは、ADOのオブジェクトであることを明示してConnectionオブジェクトを宣言し、カレントデータベースへ接続するものである。空欄に入る語句を解答しなさい。

Sub Exam1()

Dim conn As .Connection

Set conn = CurrentProject.Connection

MsgBox "完了"

End Sub

5.

次のコードは、接続文字列を使わずにカレントデータベースへ接続するものである。空欄に入る語句を解答しなさい。

Sub Exam1()

Dim conn As ADODB.「下記空欄と同じ」

Set conn = CurrentProject.

MsgBox "完了"

End Sub

6.

次のコードは、カレント以外のAccessデータベース（.accdb）に接続するコードである。空欄に当てはまる接続文字列として最も適切なものはどれか。
以下の選択肢より1つ解答しなさい。

Sub Exam1()

Dim conn As ADODB.Connection

Set conn = New ADODB.Connection

conn.ConnectionString = "=Microsoft.ACE.OLEDB.12.0; =C:￥data￥売上.accdb"

conn.Open

conn.Close

Set conn = Nothing

MsgBox "完了"

End Sub

7.

次のコードは、データベースへの接続状態を判定するものである。ConnectionオブジェクトのStateプロパティと戻り値の説明として正しいものはどれか。以下の選択肢より1つ解答しなさい。

Stateは接続中にadStateClosed、未接続にadStateOpenを返す。

OpenメソッドがTrue/Falseで接続状態を返す。

Stateは接続中にadStateOpen、未接続にadStateClosedを返す。

ConnectionStringが接続状態を数値で返す。

8.

次のコードは、データベースへの接続を開き、閉じてその後解放するものである。空欄に入る語句の組み合わせとして正しいものはどれか。以下の選択肢より1つ解答しなさい。

Sub Exam1()

　Dim conn As ADODB.Connection

　Set conn = New ADODB.Connection

　conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=C:￥data￥売上.accdb"

　conn.【　①　】

　conn.【　②　】

　Set conn = 【　③　】

　MsgBox "完了"

End Sub

【　①　】−Open　【　②　】−Close　【　③　】−Nothing

【　①　】−Close　【　②　】−Open　【　③　】−Nothing

【　①　】−Connect　【　②　】−Disconnect　【　③　】−Release

【　①　】−Open　【　②　】−Nothing　【　③　】−Close

9.

次のコードは、ConnectionStringに接続文字列を設定した後、データベースへの接続を開くものである。空欄に入る語句を解答しなさい。

Sub Exam1()

　　Dim conn As ADODB.Connection

　　Set conn = New ADODB.Connection

　　conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:￥data￥売上.accdb"

　　conn.

　　conn.Close

　　Set conn = Nothing

　　MsgBox "完了"

End Sub

10.

Recordsetオブジェクトの説明として正しいものはどれか。以下の選択肢より1つ解答しなさい。

データベースへの接続を操作するオブジェクトである。

レコードの集まりを操作するオブジェクトである。

SQLコマンドを操作するオブジェクトである。

エラー情報を操作するオブジェクトである。

11.

次のコードは、レコードが1件も無いかどうかを判定するものである。空欄に入る語句を解答しなさい。

Sub Exam1()

　Dim conn As ADODB.Connection

　Dim rst As ADODB.Recordset

　Set conn = CurrentProject.Connection

　Set rst = conn.Execute("SELECT * FROM [Table Product1]")

　If rst. And rst. Then

　MsgBox "レコードがありません"

　End If

　rst.Close

　Set rst = Nothing: Set conn = Nothing

　MsgBox "完了"

End Sub

12.

次のコードは、他のユーザーによる追加や削除は確認できない、レコードを双方向に移動できるように動的カーソルタイプを設定してレコードセットを開くものである。
空欄に入るカーソルタイプの定数として最も適切なものはどれか。

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

Sub Exam1()

　Dim conn As ADODB.Connection
　Dim rst As ADODB.Recordset

　Set conn = CurrentProject.Connection
　Set rst = New ADODB.Recordset

　rst.CursorType = 【　①　】

　rst.Open "[Table Product1]", conn

　rst.MoveLast

　rst.MoveFirst

　rst.Close

　Set rst = Nothing: Set conn = Nothing

　MsgBox "完了"

End Sub

adLockOptimistic

adUseClient

adOpenForwardOnly

adOpenKeyset

13.

次のコードは、既定のカーソルタイプを明示的に指定して、レコードを先頭から順に読み取るものである。空欄に入る語句を解答しなさい。

Sub Exam1()

　　Dim conn As ADODB.Connection
　　Dim rst As ADODB.Recordset

　　Set conn = CurrentProject.Connection
　　Set rst = New ADODB.Recordset

　　rst.CursorType =
　　rst.Open "[Table Product1]", conn

　　Do Until rst.EOF

　　　　Debug.Print rst.Fields("Product Name").Value

　　　　rst.MoveNext
　　Loop

　　rst.Close

　　Set rst = Nothing: Set conn = Nothing

　　MsgBox "完了"

End Sub

14.

カーソルの場所（CursorLocation）プロパティの説明として正しいものはどれか。
以下の選択肢より1つ解答しなさい。

CursorLocationはレコードの移動方向を指定するプロパティである。

CursorLocationはロックの種類を指定するプロパティである。

CursorLocationはカーソルの場所を指定するプロパティで、既定ではサーバ側のadUseServerが指定される。

CursorLocationの既定値はクライアント側のadUseClientである。

15.

ロックタイプ（LockType）の既定値として正しいものはどれか。
以下の選択肢より1つ解答しなさい。

adLockPessimistic

adLockOptimistic

adLockReadOnly

adLockBatchOptimistic

16.

次のコードは、レコードを更新するために、更新の瞬間だけロックする共有的ロックを指定するものである。

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

Sub Exam1()

　Dim conn As ADODB.Connection

　Dim rst As ADODB.Recordset

　Set conn = CurrentProject.Connection

　Set rst = New ADODB.Recordset

　rst.CursorType = adOpenKeyset

　rst.LockType =

　rst.Open "[Table Product1]", conn

　rst.Fields("Price").Value= 20000

　rst.Update

　rst.Close

　Set rst = Nothing: Set conn = Nothing

　　MsgBox "完了"

End Sub

17.

RecordsetオブジェクトのOpenメソッドの引数の説明として正しいものはどれか。
以下の選択肢より1つ解答しなさい。

第1引数にConnection、第2引数にソースを指定する。

第1引数にソース、第2引数にConnection、第3引数にカーソルタイプ、第4引数にロックタイプを指定する。

Openメソッドには引数を指定できない。

第1引数にロックタイプ、第2引数にカーソルタイプを指定する。

18.

次のコードは、オブジェクト変数の宣言とインスタンスの生成を1行でまとめて記述するものである。
空欄に入る語句を解答しなさい。

Sub Exam1()

　　Dim conn As ADODB.Connection

　　Set conn = CurrentProject.Connection

　　MsgBox "完了"

End Sub

19.

次のコードは、Recordsetを開く前に、あらかじめ接続を設定し実行する方法である。

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

Sub Exam1()

　　Dim conn As ADODB.Connection

　　Dim rst As ADODB.Recordset

　　Set conn = CurrentProject.Connection

　　Set rst = New ADODB.Recordset

　　rst. = conn

　　rst.Open "[Table Product1]"

　　rst.Close

　　Set rst = Nothing: Set conn = Nothing

　　MsgBox "完了"

End Sub

20.

ConnectionオブジェクトのExecuteメソッドで取得したレコードセットの説明として正しいものはどれか。

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

常に双方向カーソルの更新可能なレコードセットになる。

カーソルタイプとロックタイプを引数で自由に指定できる。

常に前方スクロールカーソルの読み取り専用になる。

レコードセットは返らず、必ずエラーになる。

21.

次のコードは、ConnectionオブジェクトのExecuteメソッドの戻り値をRecordsetに代入して、レコードセットを取得するものである。

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

Sub Exam1()

　　Dim conn As ADODB.Connection

　　Dim rst As ADODB.Recordset

　　Set conn = CurrentProject.Connection

　　Set rst = conn.("SELECT * FROM [Table Product1]")

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

　　rst.Close

　　Set rst = Nothing: Set conn = Nothing

　　MsgBox "完了"

End Sub

22.

レコードを移動するMove系メソッドの説明として誤っているものはどれか。
以下の選択肢より1つ解答しなさい。

MoveNextは次のレコードへ、MovePreviousは前のレコードへ移動する。

Move 数値は、指定した数だけレコードを移動する。

MoveNextは、指定した番号のレコードへ直接移動するメソッドである。

MoveFirstは先頭レコードへ、MoveLastは最終レコードへ移動する。

23.

次のコードを実行するとどうなるか。
以下の選択肢より1つ解答しなさい。

Sub Exam1()

　Dim conn As ADODB.Connection

　Dim rst As ADODB.Recordset

　Set conn = CurrentProject.Connection

　Set rst = New ADODB.Recordset

　rst.CursorType = adOpenForwardOnly

　rst.Open "[Table Product1]", conn

　rst.MoveLast

　rst.Close

　Set rst = Nothing: Set conn = Nothing

　MsgBox "完了"

End Sub

MoveLastの行で実行時エラーが発生する。

最終レコードへ移動し、正常に「完了」と表示される。

何も起きず「完了」だけが表示される。

先頭レコードが表示される。

24.

次のコードを実行するとどうなるか。以下の選択肢より1つ解答しなさい。

Sub Exam1()

　Dim conn As ADODB.Connection

　Dim rst As ADODB.Recordset

　Set conn = CurrentProject.Connection

　Set rst = conn.Execute("SELECT * FROM [Table Product1]")

　Do Until rst.EOF

　　rst.MoveNext

　Loop

　rst.MoveNext

　rst.Close

　Set rst = Nothing: Set conn = Nothing

　MsgBox "完了"

End Sub

無限ループになる。

正常にループが終了し「完了」と表示される

ループを抜けた後のMoveNextで実行時エラーが発生する。

先頭レコードに戻る。

25.

次のコードは、[Table Product1]の全レコードのProduct Nameを先頭から全てのレコードを順番に処理をし、次のレコードへ移動するものである。空欄に入る語句を解答しなさい。

Sub Exam1()

　　Dim conn As ADODB.Connection

　　Dim rst As ADODB.Recordset

　　Set conn = CurrentProject.Connection

　　Set rst = conn.Execute("SELECT * FROM [Table Product1]")

　　Do Until rst.

　　　　Debug.Print rst.Fields("Product Name").Value

　　　　rst.

　　Loop

　　rst.Close

　　Set rst = Nothing: Set conn = Nothing

　　MsgBox "完了"

End Sub

26.

次のコードは、抽出結果が0件かどうかを、あるプロパティで判定するものである。空欄に入る語句を解答しなさい。

Sub Exam1()

　　Dim conn As ADODB.Connection

　　Dim rst As ADODB.Recordset

　　Set conn = CurrentProject.Connection

　　Set rst = conn.Execute("SELECT * FROM [Table Product1] WHERE No = 'X9999'")

　　If rst. Then

　　　　MsgBox "該当レコードなし"

　　End If

　　rst.Close

　　Set rst = Nothing: Set conn = Nothing

　　MsgBox "完了"

End Sub

27.

次のコードは、1行に複数のステートメントを記述している。2つのステートメントを区切るために空欄に入る記号を解答しなさい。

Sub Exam1()

　　Dim conn As ADODB.Connection

　　Dim rst As ADODB.Recordset

　　Set conn = CurrentProject.Connection

　　Set rst = conn.Execute("SELECT * FROM [Table Sports1]")

　　rst.Close Set rst = Nothing

　　Set conn = Nothing

　　MsgBox "完了"

End Sub

28.

次のコードは、[Table Sports1]の先頭レコードのPriceを15000に変更し、その変更をテーブルに反映するものである。

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

Sub Exam1()

　　Dim conn As ADODB.Connection
　　Dim rst As ADODB.Recordset

　　Set conn = CurrentProject.Connection
　　Set rst = New ADODB.Recordset

　　rst.Open "[Table Sports1]", conn, adOpenKeyset, adLockOptimistic

　　rst.Fields("Price").Value = 15000

　　rst.

　　rst.Close

　　Set rst = Nothing: Set conn = Nothing

　　MsgBox "完了"

End Sub

29.

次のコードは、[Table Sports1]の先頭レコードのName of sportを取得して表示するものである。空欄に入る語句を解答しなさい。

Sub Exam1()

　　Dim conn As ADODB.Connection

　　Dim rst As ADODB.Recordset

　　Set conn = CurrentProject.Connection

　　Set rst = conn.Execute("SELECT * FROM [Table Sports1]")

　　MsgBox rst.("Name of sport").

　　rst.Close

　　Set rst = Nothing: Set conn = Nothing

　　MsgBox "完了"

End Sub

30.

次のコードは、[Table Sports1]の先頭レコードのPriceを15000に変更してテーブルに反映した後、同じレコードのName of sportを表示するものである。

このコードを実行するとどうなるか。以下の選択肢より1つ解答しなさい。

Sub Exam1()

　　Dim conn As ADODB.Connection

　　Dim rst As ADODB.Recordset

　　Set conn = CurrentProject.Connection

　　Set rst = New ADODB.Recordset

　　rst.Open "[Table Sports1]", conn, adOpenKeyset, adLockOptimistic

　　rst.Fields("Price").Value = 15000

　　rst.Update

　　MsgBox rst.Fields("Name of sport").Value

　　rst.Close

　　Set rst = Nothing: Set conn = Nothing

　　MsgBox "完了"

End Sub

2件目のレコードのName of sportが表示される。

エラーが発生し、何も表示されない。

先頭レコードのName of sportが表示される（Updateしてもカレントは移動しない）。

更新後は値が読み取れず、空欄が表示される。

31.

次のコードは、[Table Sports1]の先頭レコードのAgeに1を加算して更新するものである。
空欄に入る語句を解答しなさい。

Sub Exam1()

　　Dim conn As ADODB.Connection

　　Dim rst As ADODB.Recordset

　　Set conn = CurrentProject.Connection

　　Set rst = New ADODB.Recordset

　　rst.Open "[Table Sports1]", conn, adOpenKeyset, adLockOptimistic

　　rst.Fields("Age"). = rst.Fields("Age").Value + 1

　　rst.Update

　　rst.Close

　　Set rst = Nothing: Set conn = Nothing

　　MsgBox "完了"

End Sub

32.

次のコードは、[Table Product1]に新しいレコードを1件追加するものである。

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

Sub Exam1()

　　Dim conn As ADODB.Connection

　　Dim rst As ADODB.Recordset

　　Set conn = CurrentProject.Connection

　　Set rst = New ADODB.Recordset

　　rst.Open "[Table Product1]", conn, adOpenKeyset, adLockOptimistic

　　rst.

　　rst.Fields("No").Value = "C2004"

　　rst.Fields("Product Name").Value = "Sofa"

　　rst.

　　rst.Close

　　Set rst = Nothing: Set conn = Nothing

　　MsgBox "完了"

End Sub

33.

次のコードは、レコードを更新するために、更新可能なロックタイプを指定してレコードセットを開くものである。

空欄に入るロックの種類を指定するプロパティ名、や更新可能なロックタイプの定数を解答しなさい。

Sub Exam1()

　　Dim conn As ADODB.Connection

　　Dim rst As ADODB.Recordset

　　Set conn = CurrentProject.Connection

　　Set rst = New ADODB.Recordset

　　rst.CursorType = adOpenKeyset

　　rst. =

　　rst.Open "[Table Product1]", conn

　　rst.Fields("Price").Value = 2000

　　rst.Update

　　rst.Close

　　Set rst = Nothing: Set conn = Nothing

　　MsgBox "完了"

End Sub

34.

次のコードは、フィールド名の配列と値の配列を渡して、[Table Product1]にレコードを一括で追加するものである。

空欄には配列を作成する関数名と追加を行うメソッド名を解答しなさい。

Sub Exam1()

　　Dim conn As ADODB.Connection

　　Dim rst As ADODB.Recordset

　　Set conn = CurrentProject.Connection

　　Set rst = New ADODB.Recordset

　　rst.Open "[Table Product1]", conn, adOpenKeyset, adLockOptimistic

　　rst. ("No", "Product Name"), Array("C2006", "Rack")

　　rst.Close

　　Set rst = Nothing: Set conn = Nothing

　　MsgBox "完了"

End Sub

35.

次のコードは、AddNewメソッドに渡す値リストを配列として作成するものである。空欄に入る、配列を作成する関数名を解答しなさい。

Sub Exam1()

　　Dim conn As ADODB.Connection
　　Dim rst As ADODB.Recordset
　　Dim vl As Variant

　　Set conn = CurrentProject.Connection
　　Set rst = New ADODB.Recordset

　　rst.Open "[Table Product1]", conn, adOpenKeyset, adLockOptimistic

　　vl = ("C2007", "Lamp")

　　rst.AddNew Array("No", "Product Name"), vl

　　rst.Close

　　Set rst = Nothing: Set conn = Nothing

　　MsgBox "完了"

End Sub

36.

次のコードは、フィールド名の配列と値の配列を使って、[Table Product1]に1件のレコードを一括で追加するものである。
空欄に入る語句を解答しなさい。

Sub Exam1()

　　Dim conn As ADODB.Connection
　　Dim rst As ADODB.Recordset

　　Dim fl As Variant
　　Dim vl As Variant

　　Set conn = CurrentProject.Connection
　　Set rst = New ADODB.Recordset

　　rst.Open "[Table Product1]", conn, adOpenKeyset, adLockOptimistic

　　fl = ("No", "Product Name")
　　vl = Array("C2005", "Desk")

　　rst. fl, vl

　　rst.Close

　　Set rst = Nothing: Set conn = Nothing

　　MsgBox "完了"

End Sub

37.

次のコードは、[Table Sports1]にレコードを追加した直後に、そのレコードのName of sportを表示するものである。空欄に入る語句を解答しなさい。

Sub Exam1()

　　Dim conn As ADODB.Connection
　　Dim rst As ADODB.Recordset

　　Set conn = CurrentProject.Connection
　　Set rst = New ADODB.Recordset

　　rst.Open "[Table Sports1]", conn, adOpenKeyset, adLockOptimistic

　　rst.

　　rst.Fields("No").Value = "E0001"

　　rst.Fields("Name of sport").Value = "Ballgame"

　　rst.Update

　　MsgBox rst.Fields("Name of sport").Value

　　rst.Close

　　Set rst = Nothing: Set conn = Nothing

　　MsgBox "完了"

End Sub

38.

次のコードは、[Table Sports1]を開き、カレントレコード（先頭）を削除するものである。空欄に入る語句を解答しなさい。

Sub Exam1()

　　Dim conn As ADODB.Connection
　　Dim rst As ADODB.Recordset

　　Set conn = CurrentProject.Connection
　　Set rst = New ADODB.Recordset

　　rst.Open "[Table Sports1]", conn, adOpenKeyset, adLockOptimistic

　　rst.

　　rst.Close

　　Set rst = Nothing: Set conn = Nothing

　　MsgBox "完了"

End Sub

39.

次のコードは、[Table Sports1]の先頭レコードを削除した後、次のレコードへ移動してName of sportを表示するものである。

このコードを実行するとどうなるか。以下の選択肢より1つ解答しなさい。

Sub Exam1()

　　Dim conn As ADODB.Connection

　　Dim rst As ADODB.Recordset

　　Set conn = CurrentProject.Connection

　　Set rst = New ADODB.Recordset

　　rst.Open "[Table Sports1]", conn, adOpenKeyset, adLockOptimistic

　　rst.Delete

　　rst.MoveNext

　　MsgBox rst.Fields("Name of sport").Value

　　rst.Close

　　Set rst = Nothing: Set conn = Nothing

　　MsgBox "完了"

End Sub

削除された先頭レコードの次のレコード（元の2件目）のName of sportが表示される。

MoveNextの行で実行時エラーが発生する。

何も起きずにMsgBox「完了」だけが表示される。

削除された先頭レコードのName of sportが表示される。

40.

次のコードは、レコードを削除した直後に、別のレコードへ移動せずにそのカレント位置を表示しようとするものである。このとき表示される特殊な文字列を、半角で解答しなさい（先頭の記号を含む）。

Sub Exam1()

　　Dim conn As ADODB.Connection

　　Dim rst As ADODB.Recordset

　　Set conn = CurrentProject.Connection

　　Set rst = New ADODB.Recordset

　　rst.Open "[Table Sports1]", conn, adOpenKeyset, adLockOptimistic

　　rst.Delete

　　' 別のレコードへ移動するまで、カレント位置にはと表示される

　　MsgBox rst.Fields("Name of sport").Value

　　rst.Close

　　Set rst = Nothing: Set conn = Nothing

　　MsgBox "完了"

End Sub

41.

次のコードは、[Table Sports1]から「Name of sport」が「Golf」のレコードを検索し、そのPriceを表示するものである。

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

Sub Exam1()

　　Dim conn As ADODB.Connection

　　Dim rst As ADODB.Recordset

　　Set conn = CurrentProject.Connection

　　Set rst = New ADODB.Recordset

　　rst.Open "[Table Sports1]", conn, adOpenKeyset

　　rst. "[Name of sport] = 'Golf''"

　　MsgBox rst.Fields("Price").Value

　　rst.Close

　　Set rst = Nothing: Set conn = Nothing

　　MsgBox "完了"

End Sub

42.

次のコードは、[Table Sports1]からカーソルタイプをキーセットカーソルに指定し、「Type」が「TypeB」のレコードを検索するものである。

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

Sub Exam1()

　　Dim conn As ADODB.Connection

　　Dim rst As ADODB.Recordset

　　Set conn = CurrentProject.Connection

　　Set rst = New ADODB.Recordset

　　rst.Open "[Table Sports1]", conn,

　　rst.Find "Type = 'TypeB'"

　　MsgBox rst.Fields("Name of sport").Value

　　rst.Close

　　Set rst = Nothing: Set conn = Nothing

　　MsgBox "完了"

End Sub

43.

次のコードは、前方スクロールカーソルではFindメソッドが使えないため、別のカーソルタイプを指定して検索するものである。

空欄には使用してはいけないカーソルタイプの定数を、次の空欄には検索を行うメソッド名を解答しなさい。

※最初の空欄には「この定数ではエラーになる」という定数名入力する。

Sub Exam1()

　　Dim conn As ADODB.Connection

　　Dim rst As ADODB.Recordset

　　Set conn = CurrentProject.Connection

　　Set rst = New ADODB.Recordset

　　' カーソルタイプがだとでエラーになる。

　　rst.Open "[Table Sports1]", conn, adOpenKeyset

　　rst. "Type = 'TypeC'"

　　MsgBox rst.Fields("Name of sport").Value

　　rst.Close

　　Set rst = Nothing: Set conn = Nothing

　　MsgBox "完了"

End Sub

44.

次のコードは、インデックスを利用してテーブルタイプのレコードセットから検索を行うものである。

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

Sub Exam1()

　　Dim conn As ADODB.Connection

　　Dim rst As ADODB.Recordset

　　Set conn = CurrentProject.Connection

　　Set rst = New ADODB.Recordset

　　rst.Index = "PrimaryKey"

　　rst.Open "Table Product1", conn, adOpenKeyset, adLockOptimistic, adCmdTableDirect

　　rst. "C2001", adSeekFirstEQ

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

　　rst.Close

　　Set rst = Nothing: Set conn = Nothing

　　MsgBox "完了"

End Sub

45.

次のコードは、Findメソッドを使って「Age」が未入力のレコードを検索するものである。

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

Sub Exam1()

　　Dim conn As ADODB.Connection

　　Dim rst As ADODB.Recordset

　　Set conn = CurrentProject.Connection

　　Set rst = New ADODB.Recordset

　　rst.Open "[Table Sports1]", conn, adOpenKeyset

　　rst.Find "Age = "

　　MsgBox rst.Fields("Name of sport").Value

　　rst.Close

　　Set rst = Nothing: Set conn = Nothing

　　MsgBox "完了"

End Sub

46.

次のコードは、[Table Sports1]をPriceの降順に並べ替えるものである。

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

Sub Exam1()

　　Dim conn As ADODB.Connection

　　Dim rst As ADODB.Recordset

　　Set conn = CurrentProject.Connection

　　Set rst = New ADODB.Recordset

　　rst.CursorLocation = adUseClient

　　rst.Open "[Table Sports1]", conn, adOpenStatic

　　rst. = "Price DESC"

　　MsgBox rst.Fields("Name of sport").Value

　　rst.Close

　　Set rst = Nothing: Set conn = Nothing

　　MsgBox "完了"

End Sub

47.

次のコードは、Sortプロパティで並べ替えを行うために必要な前提設定を行うものである。

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

Sub Exam1()

　　Dim conn As ADODB.Connection

　　Dim rst As ADODB.Recordset

　　Set conn = CurrentProject.Connection

　　Set rst = New ADODB.Recordset

　　rst. =

　　rst.Open "[Table Sports1]", conn, adOpenStatic

　　rst.Sort = "Age ASC"

　　rst.Close

　　Set rst = Nothing: Set conn = Nothing

　　MsgBox "完了"

End Sub

48.

次のコードは、[Table Sports1]から「Price」が3000以上のレコードだけを抽出するものである。

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

Sub Exam1()

　　Dim conn As ADODB.Connection

　　Dim rst As ADODB.Recordset

　　Set conn = CurrentProject.Connection

　　Set rst = New ADODB.Recordset

　　rst.Open "[Table Sports1]", conn, adOpenKeyset

　　rst. = "Price >= 3000"

　　MsgBox rst.RecordCount

　　rst.Close

　　Set rst = Nothing: Set conn = Nothing

　　MsgBox "完了"

End Sub

49.

*正解機能不良

次のコードは、いったんFilterで抽出した後、その抽出を解除してすべてのレコードを対象に戻すものである。なお、解除には長さ0の文字列を設定する。

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

Sub Exam1()

　　Dim conn As ADODB.Connection

　　Dim rst As ADODB.Recordset

　　Set conn = CurrentProject.Connection

　　Set rst = New ADODB.Recordset

　　rst.Open "[Table Sports1]", conn, adOpenKeyset

　　rst.Filter = "Price >= 3000"

　　rst.Filter =

　　MsgBox rst.RecordCount

　　rst.Close

　　Set rst = Nothing: Set conn = Nothing

　　MsgBox "完了"

End Sub

50.

次のコードは、RecordCountを正しく取得するために、クライアント側カーソルを設定するものである。

空欄①にはカーソルの場所を指定するプロパティ名を、空欄②にはクライアント側を表す定数を解答しなさい。

Sub Exam1()

　　Dim conn As ADODB.Connection

　　Dim rst As ADODB.Recordset

　　Set conn = CurrentProject.Connection

　　Set rst = New ADODB.Recordset

　　rst. =

　　rst.Open "[Table Product1]", conn, adOpenStatic

　　MsgBox rst.RecordCount

　　rst.Close

　　Set rst = Nothing: Set conn = Nothing

　　MsgBox "完了"

End Sub

51.

次のコードは、レコードセットを最新の状態に取得し直すものである。

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

Sub Exam1()

　　Dim conn As ADODB.Connection

　　Dim rst As ADODB.Recordset

　　Set conn = CurrentProject.Connection

　　Set rst = New ADODB.Recordset

　　rst.Open "[Table Product1]", conn, adOpenKeyset

　　rst.

　　rst.Close

　　Set rst = Nothing: Set conn = Nothing

　　MsgBox "完了"

End Sub

52.

トランザクションの説明として正しいものはどれか。以下の選択肢より1つ解答しなさい。

レコードを並べ替えて表示するための仕組みである。

レコードを1件ずつ自動的に保存していく仕組みである。

データベースに対する一連の作業をひとつの処理としてとりまとめ、すべて確定するかすべて取り消すかを制御する仕組みである。

データベースへの接続を高速化するための仕組みである。

53.

次のコードは、トランザクションを開始し、更新処理が正常に終わったら変更を確定するものである。

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

Sub Exam1()

　　Dim conn As ADODB.Connection

　　Set conn = CurrentProject.Connection

　　conn.

　　conn.Execute "UPDATE [Table Product1] SET Price = 20000 WHERE No = 'C2001'"

　　conn.

　　Set conn = Nothing

　　MsgBox "完了"

End Sub

54.

次のコードは、トランザクション中にエラーが発生した場合に、変更をすべて取り消すものである。

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

Sub Exam1()

　　Dim conn As ADODB.Connection

　　Set conn = CurrentProject.Connection

　　On Error GoTo ErrHandler

　　conn.BeginTrans

　　conn.Execute "UPDATE [Table Product1] SET Price = 0"

　　conn.CommitTrans

　　MsgBox "完了"

　　Exit Sub

ErrHandler:

　　conn.

　　MsgBox "取り消しました"

End Sub

55.

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

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

Sub Exam1()

　　Dim conn As ADODB.Connection

　　Set conn = CurrentProject.Connection

　　On Error GoTo ErrHandler

　　conn.BeginTrans

　　conn.Execute "UPDATE [Table Product1] SET Price = Price * 2"

　　Err.Raise 9

　　conn.CommitTrans

　　Exit Sub

ErrHandler:

　　conn.RollbackTrans

　　MsgBox "取り消しました"

End Sub

Priceが2倍になった後、さらに元に戻って半分になる。

エラーで何も実行されず、テーブルは空になる。

Priceがすべて2倍に更新され、確定される。

Priceの更新は取り消され、変更前の値のままになる。

56.

CSVファイルへ接続するための接続文字列の説明として正しいものはどれか。以下の選択肢より1つ解答しなさい。

Providerは不要で、ファイルのパスだけを指定すれば接続できる。

Providerに Microsoft.Jet.OLEDB.4.0 などを指定し、Extended Properties に 'Text;HDR=No' のように指定する。

CSVファイルはADOでは一切扱うことができない。

Extended Properties に 'Excel 12.0' を指定する。

57.

次のコードは、CSVファイルが置かれたフォルダーに接続し、1行目を見出し行として、data.csvの全レコードを表示するものである。

このコードを実行するとどうなるか。以下の選択肢より1つ解答しなさい。

Sub Exam1()

　Dim conn As ADODB.Connection
　Dim rst As ADODB.Recordset

　Set conn = New ADODB.Connection
　Set rst = New ADODB.Recordset

　conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:￥data;Extended Properties='Text;HDR=Yes'"

　rst.Open "SELECT * FROM data.csv", conn

　Do Until rst.EOF

　　　Debug.Print rst.Fields(0).Value & "," & rst.Fields(1).Value & "," & rst.Fields(2).Value & "," & rst.Fields(3).Value & "," & rst.Fields(4).Value

　　rst.MoveNext

　Loop

　rst.Close
　
　conn.Close

　Set rst = Nothing

　Set conn = Nothing

　MsgBox "完了"

End Sub

エラーが発生し何も表示されない。

data.csvの2行目以降（見出し行を除く全データ行）が、各行5つのフィールドをカンマ区切りにした形で、1行ずつイミディエイトウィンドウに表示される。

先頭の1レコードだけが表示される。

見出し行を含む全行が表示される。

58.

次のコードは、CSVファイルへの接続で、接続文字列をプロパティに設定してから接続するものである。

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

Sub Exam1()

　　Dim conn As ADODB.Connection

　　Set conn = New ADODB.Connection

　　conn. = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:￥data;Extended Properties='Text;HDR=Yes'"

　　conn.Open

　　conn.Close

　　Set conn = Nothing

　　MsgBox "完了"

End Sub

59.

*解答修正

次の説明の空欄に入る語句を解答しなさい。

「では.accdbやxlsx形式を扱えないため、これらを扱う場合はを使用する。」

※空欄①には古い方のプロバイダ名、空欄②には新しい方のプロバイダ名を解答する。

60.

次の接続文字列の空欄に入る、先頭行をデータとして扱う語句を、解答しなさい。

Extended Properties='Excel 12.0;HDR= '

61.

次の接続文字列は、拡張子がtxtのテキストファイルを外部データソースとして利用するものである。

空欄に入る、テキスト形式を表す語句を解答しなさい。

「Extended Properties=';HDR=Yes'」

62.

Excelブックへ接続するための接続文字列の説明として正しいものはどれか。以下の選択肢より1つ解答しなさい。

Extended Properties は指定できない。

Providerに Microsoft.ACE.OLEDB.12.0 を指定し、Extended Properties に 'Excel 12.0;HDR=Yes' のように指定する。

Providerに Microsoft.ACE.OLEDB.12.0 を指定し、Extended Properties に 'Text;HDR=Yes' を指定する。

xlsx形式は Microsoft.Jet.OLEDB.4.0 で扱う。

63.

次のSQL文は、Excelブックの「Sheet1」からデータを取得するものである。

シート名の末尾に付ける記号を、空欄に解答しなさい。

SELECT * FROM [Sheet1]

64.

次のコードは、Excelファイルから先頭行の見出し（フィールド名）を使って抽出条件を指定できるSQL文である。

空欄に入る、この設定を行うキーワードを解答しなさい。

「Extended Properties=' 12.0;=Yes'」と設定し、SQL文を次のように記述する。

　"SELECT * FROM [Sheet1$] WHERE Product Name = 'Desk'"

65.

次のコードは、CSVファイルに対して、先頭行の見出し（フィールド名）を使って抽出条件を指定するものである。

この指定を可能にするため、Extended Propertiesで空欄をYesに設定する。

空欄に入るキーワードを半角で解答しなさい。

　　Extended Properties=';=Yes'と設定しSQL文を次のように記述する。

　　"SELECT * FROM [data1.csv] WHERE Product Name = 'Desk'"

66.

次の説明の空欄に入る、語句を解答しなさい。

外部データベースであるExcelやCSVファイルの利用の際に、HDRをNoに設定している場合は、SQL文にフィールド名が使えないため、

列の指定には例えば1列目のフィールド名はと記述し指定しする。

67.

次のSQL文は、CSVファイルでHDRをNoに設定しているため、SQL文にフィールド名が使えず、F1・F2などの列名で抽出条件を指定している。

空欄に入る記号を解答しなさい。

　　 Extended Properties='Text;HDR=No' と設定

　
　　 "SELECT * FROM [Data1.csv] WHERE [Data1 csv].F1 = 'Desk'"

68.

ADOのErrorsコレクションとErrorオブジェクトの説明として正しいものはどれか。以下の選択肢より1つ解答しなさい。

Errorオブジェクトにはエラー番号は含まれない。

エラーが発生してもErrorsコレクションには何も格納されない。

データアクセス時にエラーが発生すると、ConnectionオブジェクトのErrorsコレクションにErrorオブジェクトが格納され、NumberやDescriptionでエラー内容を確認できる。

ErrorsコレクションはRecordsetオブジェクトのErrorsプロパティより参照する。

69.

次のコードは、[Table Product1]を開いて先頭レコードのProduct Nameを表示する処理である。

エラーが発生した場合でも、共通の終了処理（オブジェクトの解放）を行うため、On Errorステートメントで終了処理のラベルへ処理を移すようにしている。

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

Sub Exam1()

　　Dim conn As ADODB.Connection

　　Dim rst As ADODB.Recordset

　　On Error GoTo

　　Set conn = CurrentProject.Connection

　　Set rst = New ADODB.Recordset

　　rst.Open "[Table Product1]", conn, adOpenKeyset

　　MsgBox rst.Fields("Price2").Value

　　rst.Close

「上記空欄と同じ」:

　　Set rst = Nothing: Set conn = Nothing

　　MsgBox "完了"

End Sub