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 を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: フィールド名（ADO）Fields コレクション

Fields コレクション Recordset オブジェクト内の１つ以上の列（フ …

: データベース（Oracle）に接続する（ODBC を使用）

ODBC接続（ADO） ADOで、ODBC（Open Database Conn …

: レコードを並べ替える（ADO）Sort プロパティ

データベースのレコードを並べ替える Sort プロパティ【書式】 object …

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

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

: レコードの更新（ADO）Update メソッド

データベースのレコードを更新する Update メソッドカレントレコードの内容 …

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

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

: インデックス、プロパティの設定（ADOX）

インデックスを作成する index オブジェクト【書式】＜CreateObj …

: レコードを指定した条件で抽出する（ADO）Filter プロパティ

データベースのレコードを指定した条件で抽出する Filter プロパティ【書式 …

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

ADOでExcelファイルに接続 ADO を使用してExcelファイルを読み込み …

: BOF プロパティ・EOF プロパティ（ADO）

EOF プロパティ・BOF プロパティ BOF プロパティは、カレントレコードの …

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