Excel（エクセル）のマクロ・ＶＢＡ・関数・操作などのメモ

Recordset オブジェクト内のレコード数（ADO）RecordCount プロパティ

2017/09/04

RecordCount プロパティ

Recordset オブジェクトのレコード数を取得します。

【書式】

＜取得＞
long = object.RecordCount

引数・戻り値

object ・・・対象となる Recordset オブジェクトを指定します。
long ・・・ Recordset のレコード数を示す長整数型（long）の値を取得します。ただし、レコード数がわからない場合、プロバイダやカーソルタイプが RecordCount をサポートしていない場合は、-1 を返します。

閉じている Recordset 上で RecordCount プロパティ を取得するとエラーが発生します。

Recordset オブジェクトのカーソルタイプ別の RecordCount プロパティ の戻り値

【書式】　object.CursorType = ＜カーソルタイプ＞

※　object　…　Recordset オブジェクト

カーソルタイプ	内容	戻り値
adOpenDynamic	動的カーソル	-1
adOpenForwardOnly	前方スクロールカーソル	-1
adOpenKeyset	キーセットカーソル	レコード数
adOpenStatic	静的カーソル	レコード数

CursorLocation プロパティに adUseClient を設定した場合は、すべてのカーソルタイプで、レコード数が戻り値となります。

【書式】　object.CursorLocation = ＜カーソルロケーション＞

※　object　…　Recordset オブジェクト

カーソルロケーション	値	内容
adUseNone	1	カーソルサービスを使いません
adUseServer	2	サーバーサイドカーソル（既定値）
adUseClient	3	クライアントサイドカーソル

RecordCount プロパティ使用例

サンプルVBAソース

　
Sub Sample_ADO_RecordCount()
    
    '参照設定:Microsoft ActiveX Data Objects 6.1 Library
    
    Dim cn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim constr As String
    Dim DBFile As String
    Dim strSQL As String
    
    DBFile = ActiveWorkbook.Path & "\mydb1.accdb"
    constr = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & DBFile
    
    Set cn = New ADODB.Connection
    cn.ConnectionString = constr
    cn.Open
    
    strSQL = "Select * from 社員名簿"
    
    Set rs = New ADODB.Recordset
    rs.CursorLocation = adUseClient
    rs.CursorType = adOpenDynamic
    
    rs.Open strSQL, cn
    Debug.Print rs.RecordCount
    
    rs.Close
    Set rs = Nothing
    
    cn.Close
    Set cn = Nothing
    
End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

　

Sub Sample_ADO_RecordCount()

'参照設定:Microsoft ActiveX Data Objects 6.1 Library

Dim cn As ADODB.Connection

Dim rs As ADODB.Recordset

Dim constr As String

Dim DBFile As String

Dim strSQL As String

DBFile = ActiveWorkbook.Path & "\mydb1.accdb"

constr = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & DBFile

Set cn = New ADODB.Connection

cn.ConnectionString = constr

cn.Open

strSQL = "Select * from 社員名簿"

Set rs = New ADODB.Recordset

rs.CursorLocation = adUseClient

rs.CursorType = adOpenDynamic

rs.Open strSQL, cn

Debug.Print rs.RecordCount

rs.Close

Set rs = Nothing

cn.Close

Set cn = Nothing

End Sub

　

実行結果

- データベース AbsolutePosition プロパティ, Access, ADO, CreateObject 関数, excel vnba, Recordset オブジェクト, Select文, SQL, VBA中・上級, エクセル VBA, データベース, 参照設定

Tweet

Message コメントをキャンセル

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: データベースを作成する（ADOX）

ADOX を使用してデータベース（Access）を作成 Catalog オブジェ …

: SQL文を実行する(ADO)Execute メソッド

Command オブジェクトの Execute メソッドで、SQL文を実行 Co …

: データベース（MySQL）に接続する（ADO）

MySQL ODBCドライバ Windowsには標準で、いくつかの ODBC ド …

: Recordset オブジェクトの内容をワークシートにコピーする（CopyFromRecordset メソッド・ADO）

CopyFromRecordset メソッド ADO の Recordset オ …

: レコードの削除（ADO）Delete メソッド

データベースのレコードを削除する Delete メソッドカレントレコードを削除 …

: CSVファイルに接続（ADO）

ADOでCSVファイルに接続 ADO を使用してCSVファイルを読み込みます。C …

: Excel VBA のクラスを使ってデータベースへ接続する（ADO）

データベースの処理をクラスモジュールに書く ExcelVBAで、クラス使用する方 …

: データベース（Access 等）に接続（ADO）

ADO で、データベースに接続外部データベースを操作する方法のひとつに ADO …

: レコードの追加（ADO）AddNew メソッド,Update メソッド

データベースにレコードを追加する AddNew メソッド新規レコードを追加し、 …

: テーブルの作成・削除／フィールドの作成・削除（ADOX）

ADOX を使用してテーブル・フィールド（列）を作成・削除 Table オブジェ …

PREV: BOF プロパティ・EOF プロパティ（ADO）
NEXT: フィールド名（ADO）Field オブジェクト