アクセスVBAの部屋

VBA Homeへ戻る

ADO＿レコード数を調べる

レコードセットのレコード数を調べます。レコードセットのレコード数を調べます。 Openメソッドにはカーソルタイプ引数「adOpenKeyset」とロックタイプ引数「adLockOptimistic」を指定します。

コード

Public Sub ADOTest()
　Dim cn As New ADODB.Connection
　Dim rs As New ADODB.Recordset
　Set cn = CurrentProject.Connection
　rs.Open "T_名簿", cn, adOpenKeyset, adLockOptimistic
　Debug.Print rs.RecordCount & "件です"
　rs.Close: Set rs = Nothing
　cn.Close: Set cn = Nothing
End Sub

実行結果

全レコードの数が取り出されました。

（この項終わり）