ADO Recordset の件数カウント

10年ぶり ^*01このへん、記憶いいかげんです。 にMicrosoft Access と格闘中。
いろいろ忘れていたりしたので、例によって備忘録的エントリー。

SQL でカウントしちゃう

これは以前は気が付きませんでした。
参考：ADOでレコード件数取得

Dim con As ADODB.Connection
Dim rst As ADODB.Recordset
Dim sql As String

Set con = CurrentProject.Connection

sql = "SELECT COUNT(*) AS cnt FROM hoge"

rst = con.Execute(sql)

debug.print rst!cnt

以前は、わざわざレコードセットを先頭→終端と移動させて数えていました。

Dim con As ADODB.Connection
Dim rst As ADODB.Recordset
Dim sql As String

Set con = CurrentProject.Connection

sql = "SELECT * cnt FROM hoge"

rst = con.Execute(sql)

With rst
    .MoveFirst
    .MoveLast
    debug.print .RecordCount
End With

それにしても、行末にセミコロンを打てないのが、こんなに落ち着かないとは思わなかった。