AD0を使ってレコード総数を取得する方法は？

質問

22歳男性です。
VBAでADOを用いてデータベース（SQL Server）に接続してレコードを取得するプログラムを作りました。
-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
dim recordset as new ADODB.Recordset
dim a as integer

recordset.open , , adOpenStatic

a = recordset.recordcount ←←　レコード総数代入
-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
（少しソースを省いています。）

このようにして、レコードの総数を代入するようなプログラムを作ったんですけど、このレコードの総数を取得する方法は、「recordcount」を使うしかないのでしょうか？

もし上記以外の方法で、レコードの総数を取得できる方法を知っていたら教えてください。

回答No.1

redfox63 · ベストアンサー

実際のデータが必要ないのであれば SQL文でCOUNTを使って何行ある確認してはいかがでしょう

dim rs as ADODB.Recordset
Set rs = cn.Execute("SELECT COUNT(フィールド名) FROM テーブル名")
a = rs(0).Value
といった具合です

お礼

なるほど。上記のようなSQL文だと確かに全行数を取得することが出来ますね。
ご回答していただきありがとうございます！