ADODB.RecordsetでRecordCountを取得する - 小さい頃はエラ呼吸

はじめに

レガシーASP(クラシックASP)で、SQLを発行してデータベースからデータを取得する際に、結果として取得したレコードの件数を取得したい場合があります。このエントリでは、ADODB.RecordsetのRecordCountで正しいレコード数を取得する方法を紹介します。

RecordCountプロパティが-1を返す

レコードの件数を取得するSQL（SELECT COUNT(*) FROM 〜）を使うことも可能ですが、データの取得と同時に件数も取得したいときは、RecordCountプロパティを参照することで、SELECTしたレコードの件数を取得することができます。

しかしながら、通常ではRecordCountプロパティは、-1を返します。これは、CursorLocationがデフォルト（サーバサイドカーソル）になっていることが原因です。

サーバーサイドカーソルを使用して作成したレコードセットに対して RecordCount プロパティを取得しようとしたとき、-1 が返されることがあります。
ActiveX Data Objects (ADO) Version 2.0 においては、CursorType プロパティが adOpenForwardonly (前方スクロールカーソル) または adOpenDynamic (動的カーソル) のときにこの結果が得られます。
[VB] ADO Recordset で RecordCount プロパティが -1 を返す場合

この問題を回避するには、以下の２つの対処方法のいずれかを行います。

サーバーサイドカーソルで、CursorType プロパティに adOpenKeyset もしくは adOpenStatic を使用する。
クライアントサイドカーソルを使用する。

サーバーサイドカーソルで、CursorType プロパティに adOpenKeyset もしくは adOpenStatic を使用するか、クライアントサイドカーソルを使用します。クライアントサイドカーソルでは、CursorType の設定値がどのようなものであっても、adOpenStatic のみが適用されます。
[VB] ADO Recordset で RecordCount プロパティが -1 を返す場合

CursorLocationをクライアントサイドカーソルに変更して、RecordCountを取得する

dim connect, rs, count

Set connect = CreateObject("ADODB.Connection")
connect.Open "xxx"
connect.CursorLocation = 3 ' クライアントサイドカーソルに変更

Set rs = CreateObject("ADODB.Recordset")
rs.Open "SELECT * FROM HOGE(NOLOCK)", connect
If rs.eof Then
' 0件の場合の処理

End If
' RecordCountの取得
count = rs.RecordCount

rs.Close
Set rs = Nothing

参考サイト

CursorLocation (Connection オブジェクト) - ASP@Workshop

以下のエントリもあわせてどうぞ

ADODB.Recordsetのcloseメソッドでエラーが発生する場合の対処法 - 大人になったら肺呼吸
クラシックASPアプリケーションのUTF-8化についてまとめてみた。 - 大人になったら肺呼吸
Active Server Pages（レガシーasp）開発で学んだこと(1) - 大人になったら肺呼吸