access count数を変数に格納

解決済

質問者：ひろみch
質問日時：2022/03/30 19:21
回答数：2件

SQL文でaccessのフィールドのレコード数を数えています。

Range("A1").CopyFromRecordset rsで無事、Range("A1")にレコード数を入力が出来ているのですが

セルに入力ではなく、出来れば変数にしたいのですが、データベース初心者なので、力をいただけないでしょうか

１度セルに入力後、変数に格納も出来ますが、出来れば変数に代入のみをしたいです

Range("A1").CopyFromRecordset rsの部分を
count_suu = rs のようにで代入できません

http://club-vba.tokyo/vba-sql-count/
こちらのサイトを参考にさせていただいています。

Sub レコード数をカウントする()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim count_suu as variant

'Connectionオブジェクトを作成
Set cn = New ADODB.Connection
'Recordsetオブジェクトを作成
Set rs = New ADODB.Recordset

'データベースを開く
cn.Open _
"Provider=Microsoft.ACE.OLEDB.16.0;" & _
"Data Source=" & ThisWorkbook.Path & "\テスト.accdb;"

Dim vSQL As String

vSQL = "SELECT COUNT(商品名) FROM 商品マスタ;"
'SQLを実行
cn.Execute vSQL

'「商品マスタ」テーブルのデータを取得してセルに転記
rs.Open vSQL, cn
'ここは成功
Range("A1").CopyFromRecordset rs

’エラー
count_suu = rs

rs.Close
cn.Close
End Sub

accessもexcelも2016です。