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

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

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

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

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

1.

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

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

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

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

複数のレコードをレコード単位での条件分岐や、更新操作など細かいデータベース操作を行う場合には、DAOよりDocmdオブジェクトでの操作が向いている。

2.

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

Error ― フィールドの保持。

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

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

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

3.

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

Microsoft Access xx.x Object Library

Microsoft ActiveX Data Objects x.x Library

Microsoft Scripting Runtime

Microsoft Office xx.x Access database engine Object 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データベースに接続するコードである。

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

Sub Exam1()

Dim conn As ADODB.Connection

Set conn = New ADODB.Connection

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

conn.Open

conn.Close

Set conn = Nothing

MsgBox "完了"

End Sub

7.

類似の語句出題

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

Dim conn As ADODB.Connection

8.

次のコードは、ADOでカレントデータベースへ接続し、Connectionオブジェクトの接続状態を判定してメッセージに表示するものである。
以下の空欄に入る適切な語句を解答しなさい。

Sub Exam1()

　　Dim conn As ADODB.Connection

　　Set conn = .Connection

　　Select Case conn.

　　　　Case adStateOpen

　　　　　　MsgBox "接続しています"

　　　　Case adStateClosed

　　　　　　MsgBox "接続していません"

　　End Select

　　Set conn = Nothing

End Sub

9.

次の説明は、データベースへの接続状態を判定するものである。説明として正しいものはどれか。以下の選択肢より1つ解答しなさい。

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

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

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

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

10.

次のコードは、カレント以外のデータベースへの接続を開くものである。

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

Sub Exam1()

　　Dim conn As ADODB.Connection

　　Set conn = ADODB.Connection

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

　　conn.

　　conn.Close

　　Set conn = Nothing

　　MsgBox "完了"

End Sub

11.

次のコードは、カレント以外のデータベースへの接続を開き、閉じてその後解放するものである

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

Sub Exam1()

　Dim conn As ADODB.Connection

　Set conn = New ADODB.Connection

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

　conn.【　①　】

　conn.【　②　】

　Set conn = 【　③　】

　MsgBox "完了"

End Sub

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

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

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

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

12.

次のコードは、レコードセットの先頭から最終レコードまでレコードが1件も無いかどうかを判定するものである。
以下の空欄に入る適切な語句を解答しなさい。

Sub Exam1()

　Dim conn As ADODB.Connection

　Dim rst As ADODB.Recordset

　Set conn = CurrentProject.Connection

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

　If rst. And rst. Then

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

　End If

　rst.Close

　Set rst = Nothing: Set conn = Nothing

　MsgBox "完了"

End Sub

13.

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

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

　　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.

次のコードは、Recordsetをカーソルの種類「adOpenForwardOnly（前方専用）」で開いている。
このとき、レコードセットを最終レコードまで行く前の段階で RecordCountプロパティが返す値として最も適切ものはどれか。以下の選択肢より１つ解答しなさい。

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

conn.Open ...（省略）
rst.Open "SELECT * FROM [Table Product1]", conn, adOpenForwardOnly, adLockReadOnly

MsgBox rst.RecordCount

0

-1

1

実際に取得したレコードの件数

15.

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

以下の選択肢より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

adOpenKeyset

adOpenForwardOnly

adLockOptimistic

adUseClient

16.

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

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

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

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

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

17.

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

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

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= 20000

　rst.Update

　rst.Close

　Set rst = Nothing: Set conn = Nothing

　　MsgBox "完了"

End Sub

18.

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

adLockPessimistic

adLockOptimistic

adLockReadOnly

adLockBatchOptimistic

19.

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

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

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

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

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

20.

次のコードは、Openメソッドで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

21.

次のコードは、Connectionオブジェクトのあるメソッドの戻り値を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.

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

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

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

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

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

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

23.

次のコードは、ADOのConnectionオブジェクトのExecuteメソッドを使い、[Table Sports1] テーブルのすべてのレコードを削除するものである。

実行してもレコードセットが返らない時、そのアクションを実行する場合のExecuteメソッドを使用した記述として正しいものを、次の選択肢の中から1つ選び解答しなさい。

空欄に入る記述を選択肢から選んで解答しなさい。

Sub Exam1()

　　Dim conn As ADODB.Connection

　　Set conn = CurrentProject.Connection

　　【　① 】

　　conn.Close

　　Set conn = Nothing

　　MsgBox "完了"

End Sub

Set conn = Execute("DELETE * FROM [Table Sports1]")

conn.Execute "DELETE * FROM [Table Sports1]"

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

conn.Execute

24.

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

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

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

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

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

25.

次のコードは、ADOのRecordsetを最終レコードから先頭レコードへ向かって1件ずつ処理し、最後にカレントレコードを先頭へ戻すものである。

最初の空欄には前のレコードに移動するメソッド、次の空欄には先頭レコードに移動するメソッドが入る。

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

Sub Exam1()

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

　Set conn = CurrentProject.Connection

　Set rst = New ADODB.Recordset

　rst.Open "SELECT * FROM [Table Sports1]", conn, adOpenStatic

　If Not rst.EOF Then

　rst.MoveLast

　Do Until rst.BOF

　Debug.Print rst.Fields(0)

　rst.

Loop

　rst.

End If

　rst.Close: conn.Close

　Set rst = Nothing: Set conn = Nothing

End Sub

26.

次のコードを実行するとどうなるか。以下の選択肢より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で実行時エラーが発生する。

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.

次のコードは、ADOのRecordsetで、Fieldオブジェクトに値を代入してレコードを更新するものである。

この記述におけるレコードソースへの反映のタイミングとして適切なものを選択肢の中から一つ選び解答しなさい。

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

rst.Update

Updateメソッドが実行された時点、またはカレントレコードを他のレコードに移動した時点で反映される。

Fieldオブジェクトに値を代入した時点で、Updateメソッドを実行しなくてもただちに反映される。

Updateメソッドを実行すると反映され、同時にカレントレコードが次のレコードへ移動する。

Updateメソッドを実行しても反映されず、レコードセットを閉じた時点で初めて反映される。

30.

ADOのRecordsetオブジェクトを格納したオブジェクト変数rstから、Age フィールドの値を参照したい。

フィールドを参照する記述として誤っているものを、以下の選択肢より１つ解答しなさい。

rst![Age].Value

rst.Fields("Age").Value

rst("Age").Value

rst.Field("Age").Value

31.

次のコードは、[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

32.

次のコードは、[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

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

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

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

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

33.

ADOのRecordsetでAddNewメソッドを使ってレコードを追加する方法に関する説明として、正しいものを次の選択肢の中から1つ選び解答しなさい。

AddNewメソッドの引数としてフィールドリストと値リストを指定した場合、レコードの追加はレコードセットを閉じた時点で反映される。

AddNewメソッドの引数としてフィールドリストと値リストを指定する方法と、AddNewメソッドの実行後にFieldオブジェクトへ値を代入し、最後にUpdateメソッドを実行する方法の2通りがある。

AddNewメソッドの実行後にFieldオブジェクトへ値を代入する方法では、Updateメソッドを実行しなくても、AddNewメソッドの実行だけでレコードの追加が確定する。

レコードを追加するには、必ずAddNewメソッドの引数としてフィールドリストと値リストを指定する必要があり、Fieldオブジェクトへ値を代入する方法は使えない。

34.

次のコードは、[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

35.

次のコードは、フィールド名の配列とその値の配列を渡して、[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")「左記2番目の空欄と同じ」("C2006", "Rack")

　　rst.Close

　　Set rst = Nothing: Set conn = Nothing

　　MsgBox "完了"

End Sub

36.

次のコードは、[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.Close

　　Set rst = Nothing: Set conn = Nothing

　　MsgBox "完了"

End Sub

37.

次のコードは、[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

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

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

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

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

38.

次のコードは、テーブルを開いた状態でレコードを削除した直後に、別のレコードへ移動せずにそのカレント位置の値を表示しようとしエラーとなるものである。

カレント位置に表示される、以下の空欄に入る適切な語句を解答しなさい。

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

39.

次のコードは、[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

40.

次のコードは、[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

41.

ADOのRecordsetでFindメソッドを使ってレコードを検索する方法に関する説明として、正しいものを次の選択肢の中から1つ選び解答しなさい。

検索方向を指定する引数にadSearchForwardを指定すると最終レコードへ向かって、adSearchBackwardを指定すると先頭レコードへ向かって検索する。

カーソルタイプが前方スクロールカーソルのレコードセットでFindメソッドを使用しても、エラーは発生しない。

条件を満たすレコードが複数見つかった場合は、最後に見つかったレコードがカレントレコードになる。

Findメソッドの引数「検索条件」には、And演算子やOr演算子を使って複数の条件式を組み合わせて指定できる。

42.

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

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

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

43.

次のコードは、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 " "

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

　　rst.Close

　　Set rst = Nothing: Set conn = Nothing

　　MsgBox "完了"

End Sub

44.

次のコードは、[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 "

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

　　rst.Close

　　Set rst = Nothing: Set conn = Nothing

　　MsgBox "完了"

End Sub

45.

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

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

Sub Exam1()

　　Dim conn As ADODB.Connection

　　Dim rst As ADODB.Recordset

　　Set conn = CurrentProject.Connection

　　Set rst = New ADODB.Recordset

　　rst.CursorLocation =

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

　　rst.Sort = "Age ASC"

　　rst.Close

　　Set rst = Nothing: Set conn = Nothing

　　MsgBox "完了"

End Sub

46.

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

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

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 And Price <= 5000"

　　MsgBox rst.RecordCount

　　rst.Close

　　Set rst = Nothing: Set conn = Nothing

　　MsgBox "完了"

End Sub

47.

次のコードは、レコードセットをFilterで抽出した後、その抽出を解除してすべてのレコードを対象に戻すものである。

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

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

Null

Nothing

" "

""

48.

次のコードは、レコードセットのカーソルの場所を設定しレコードの件数を取得するものである。
以下の空欄に入る適切な語句を解答しなさい。

Sub Exam1()

　　Dim conn As ADODB.Connection

　　Dim rst As ADODB.Recordset

　　Set conn = CurrentProject.Connection

　　Set rst = New ADODB.Recordset

　　rst. = aduseclient

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

　　MsgBox rst.RecordCount

　　rst.Close

　　Set rst = Nothing: Set conn = Nothing

　　MsgBox "完了"

End Sub

49.

次のコードは、画面の表示を最新の状態にするものである。以下の空欄に入る適切な語句を解答しなさい。

　　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

50.

ADOのRecordsetで各メソッドやプロパティを実行した後、カレントレコードがどの位置になるかに関する説明として、正しいものを次の選択肢の中から1つ選び解答しなさい。

Filterプロパティでレコードを抽出すると、カレントレコードは抽出されたレコードの最終レコードに移動する。

Findメソッドで条件を満たすレコードが複数見つかった場合、最後に見つかったレコードがカレントレコードになる。

Updateメソッドを実行しても、カレントレコードは移動せず、更新したレコードのままである。

Deleteメソッドを実行すると、削除したレコードの次のレコードが自動的にカレントレコードになる。

51.

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

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

Sub Exam1()

　　Dim conn As ADODB.Connection

　　Set conn = CurrentProject.Connection

　　conn.

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

　　conn.
　　
　　conn.Close

　　Set conn = Nothing

　　MsgBox "完了"

End Sub

52.

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

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

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

53.

次のエラーが発生するコードを実行するとどうなるか。

以下の選択肢より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の更新は取り消され、変更前の値のままになる。

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

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

54.

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

トランザクションはBeginTransで開始しなくてもCommitTransメソッドでCommitTransメソッドで変更保存が可能である。

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

DAOではレコードセットの操作やトランザクションの実行はできない。

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

55.

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

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

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

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

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

56.

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

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

Sub Exam1()

　　Dim conn As ADODB.Connection

　　Set conn = New ADODB.Connection

　　conn. = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:￥data￥;Extended Properties='Text; =Yes'"

　　conn.Open

　　conn.Close

　　Set conn = Nothing

　　MsgBox "完了"

End Sub

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.Jet.OLEDB.4.0;Data Source=C:￥data￥;Extended Properties='Text;HDR=Yes'"

　Set rst = conn.Execute("SELECT * FROM data.csv")

　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.

次のコードは、ADOを使って外部ファイルに接続し、レコードセットを取得する接続処理である。

上段はCSVファイルへの接続、下段はExcelブックへの接続を表している。Provider（データプロバイダ）とExtended Propertiesに指定する語句を、それぞれ①〜④に当てはめたい。

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

【CSVファイルへの接続】

CN.Open "Provider=【　① 】;" & _

　　　　"Data Source=フォルダのパス;" & _

　　　　"Extended Properties='【　➁ 】;HDR=NO'"

【Excelブックへの接続】

CN.Open "Provider=【　③ 】;" & _

　　　　"Data Source=Excelブックのパス;" & _

　　　　"Extended Properties='【　④ 】;HDR=NO'"

1：Microsoft.Jet.OLEDB.4.0　
2：Microsoft.ACE.OLEDB.12.0　
3：Text　
4：Excel 12.0

【　①　】−2　【　②　】−4　【　③　】−1　【　④　】−3

【　①　】−2　【　②　】−3　【　③　】−1　【　④　】−4

【　①　】−1　【　②　】−3　【　③　】−2　【　④　】−4

【　①　】−1　【　②　】−4　【　③　】−2　【　④　】−3

59.

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

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

「Extended Properties=';HDR=Yes'」

60.

ADOのExcelブックの接続において次の条件において、接続文字列の空欄に入る適切な語句を解答しなさい。

先頭行をフィールド名として扱う場合

Extended Properties='Excel 12.0;HDR= '

先頭行をデータとして扱う場合

Extended Properties='Excel 12.0;HDR= '

61.

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

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

Extended Properties に 'Text;HDR=Yes' を指定する。

Extended Properties は指定できない。

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

62.

次のSQL文は、Excelブックへの接続において Excelブックのシート名「Sheet1」からレコードセットを取得するものである。

シート名を指定する語句を、空欄に解答しなさい。

conn.Excecute ("SELECT * FROM ")

63.

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

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

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

64.

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

空欄に入る「.」以外の記号を解答しなさい。

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

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

65.

ADOでExcelブックまたはCSVファイルに接続し、Executeメソッドでレコードセットを抽出し取得する時、

接続文字列のExtended Propertiesにある「HDR」の設定によって、WHERE句でのフィールドの抽出指定方法が変わります。HDR=YES ならフィールド名で指定できるが、HDR=NO ではフィールド名が使えず、別の記述で指定する。

HDR=NO のとき1列目を指定した記述について、空欄に入るコードを解答しなさい。

＊前提：Excelのシート名は「VBA」、CSVはファイル名拡張子含めて「data.csv」、抽出条件に使うのは1列目のフィールドHDR=YES 時にはフィールド名はそれぞれ「data1」抽出する値は「100」とする。

・Excelブック

【HDR=YES の場合】

SELECT * FROM [VBA\$] WHERE data1 = 100

【HDR=NO の場合】

SELECT * FROM [VBA\$] WHERE = 100

・CSVファイル

【HDR=YES の場合】

SELECT * FROM data.csv WHERE data1 = 100

【HDR=NO の場合】

SELECT * FROM [data.csv] WHERE = 100

66.

次のコードは、ADOでデータベースを操作中にエラーが発生した際、Errorオブジェクトからエラー情報を取得してメッセージに表示するものである。

先の空欄にはエラーに関する情報を返すプロパティが、後の空欄にはエラーを起こしたオブジェクトを返すプロパティが入る。

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

Sub Exam1()

　　Dim conn As ADODB.Connection

　　Dim rst As ADODB.Recordset

　　Dim MyErr As ADODB.Error

　　Set conn = CurrentProject.Connection

　　Set rst = New ADODB.Recordset

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

　　On Error GoTo ErrExit

　　rst.AddNew

　　rst("No") = "S3001"

　　rst.Update

　　Exit Sub

ErrExit:

　　For Each MyErr In Conn.Errors

　　　　MsgBox MyErr. & vbCrLf & MyErr.

　　Next

End Sub

67.

似た論点の問題

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

Errorオブジェクトのプロパティにはエラー番号を返す Number、エラーオブジェクトを返す Description、エラーに関する情報を返すSourceがある。

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

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

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