VBAでレコードセットの総レコード数を取得する方法

質問

Dim con As ADODB.Connection
Dim rsData As ADODB.Recordset
Dim DNSname$,USERname$,PASSw$,cnt&
　Set con = CreateObject("ADODB.Connection")
　con.Open "DSN=" & DNSname & "; UID= " USERname & "; PWD=" & PASSw
　Set rsData = New ADODB.Recordset
　rsData.Open SQL, con
　Do While Not rsData.EOF
　　rsData.MoveLast
　　cnt=rsData.RecordCount
　　rsData.First
　LOOP
といいコードで総レコード数が取得できるかなとやってみたところ、rsData.MoveLastのところで、「行セットは逆フェッチをサポートしていません」というエラーが出ました。
なにかほかの方法で総レコード数を取得する方法があるのでしょうか？
自分で他に試したことは、rsData.EOFまでrsData.MoveNextでもっていきrsData.EOF-1レコードの.RecordCountを取得すしようと試みましたが、最後のレコードまできても.RecordCountは「-1」のまま変化しませんでした。レコードセットの呼び込み方が不味いのでしょうか？

回答No.4

bonaron · ベストアンサー

#2 です。
Set con = CreateObject("ADODB.Connection")
con.CursorLocation = adUseClient
con.Open "DSN=" & DNSname & "; UID= " USERname & "; PWD=" & PASSw
としてみたらどうなりますか？

お礼

＞con.CursorLocation = adUseClient
の行を追加したら取得できました。
レコードセットのほうになにか設定値があるのかと色々探していましたが、オブジェクトのだったんですね。ありがとうございました。

回答No.3

imogasi

私の作った７件の社員3テーブルにたいし
（質問のコードを少し簡略化してますが）
Sub test02()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim DNSname$, USERname$, PASSw$, cnt&
Set cn = CurrentProject.Connection
Set rs = New ADODB.Recordset
rs.Open "社員3", cn, adOpenKeyset, adLockOptimistic
cnt = rs.RecordCount
MsgBox cnt
rs.MoveFirst
Do Until rs.EOF
MsgBox rs!氏名
rs.MoveNext
Loop
End Sub
で　７　と出ました。
＝＝＝＝
rs.Open "社員3", cn, adOpenKeyset, adLockOptimistic
の adOpenKeyset, adLockOptimistic
を質問のように除くと、－１と出てうまくいかない。
ここが原因でしょう。
http://www.accessclub.jp/vbakaisetu/22.html
参照

補足

>Set cn = CurrentProject.Connection
部分のCurrentProjectで「変数が宣言されていません」とのエラーが出ましたので
Set con = CreateObject("ADODB.Connection")
にしてimogasiさんのコードを実行したところ(adOpenKeyset, adLockOptimisticはつけました)、cnt は「-1」でした。
CurrentProjectとはどのように宣言するのでしょうか？

回答No.2

bonaron

Set rsData = New ADODB.Recordset
　rsData.Open SQL, con, adOpenKeyset
　cnt=rsData.RecordCount
でどうでしょうか？

補足

bonaronさんのやり方やった場合、cntは「-1」でした。
参照設定で、「Microsoft Active Data Objects 2.8 Library」を使用しているのですが、これが間違いなのでしょうか？

回答No.1

zap35

con.Open "DSN=" & DNSname & "; UID= " USERname & "; PWD=" & PASSw
　Set rsData = con.Execute("SELECT COUNT(*) FROM " & TableName)
　MsgBox rsData.Fields(0).Value

のようにSQLで求められませんか？　テストしたのはmdbでOracleでは試していませんが…

TableNameのところは置き換えてください

補足

rsData.Open SQL, conを無効にして
>Set rsData = con.Execute(
でも接続できレコードセットは取得できました。
しかし
>MsgBox rsData.Fields(0).Value
では、そのフィールドの内容が出るだけでレコード総数は求められませんでした。