SQL文でaccessのフィールドのレコード数を数えています。
Range("A1").CopyFromRecordset rsで無事、Range("A1")にレコード数を入力が出来ているのですが
セルに入力ではなく、出来れば変数にしたいのですが、データベース初心者なので、力をいただけないでしょうか
1度セルに入力後、変数に格納も出来ますが、出来れば変数に代入のみをしたいです
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です。
No.2ベストアンサー
- 回答日時:
vSQL = "SELECT COUNT(商品名) FROM 商品マスタ;"
rs.Open vSQL, cn
count_suu = rs.Fields(0).Value
です。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) DoCmd.SearchForRecord が動かない時の解決方法 3 2022/07/22 15:31
- Access(アクセス) 実行時エラー3131 FROM 句の構文エラーです について 7 2022/06/13 15:45
- Access(アクセス) docmd.gotorecordを起動するには 5 2022/06/17 15:20
- Visual Basic(VBA) データベースから絞り込んでデータを読み込み 1 2023/02/21 19:51
- Visual Basic(VBA) 前回ご教授いただいたコードに覚えたてのループ処理で品名りんごAから順に20回for nextでループ 7 2023/01/13 22:01
- Visual Basic(VBA) Sheet2からオートフィルターで売上日を抽出した件数をカウントし、その件数をSheet1のセルB1 2 2023/01/12 12:24
- Visual Basic(VBA) 【VBA】Excelの特定範囲のセルを画像で保存したい 2 2023/01/25 13:06
- Visual Basic(VBA) Sheet1の出荷日と品名が並んだ表からSheet2の品名別出荷日別の個数一覧表を作っています。 オ 3 2022/12/01 23:54
- Visual Basic(VBA) A列B列C列 3 2023/04/26 18:11
- Visual Basic(VBA) Sheet「状況」から、分類の年齢別カウント数をSheet「D表」へ転記する下記マクロを作っています 7 2022/12/14 17:57
このQ&Aを見た人はこんなQ&Aも見ています
-
「環境が人を育てる」って本当?環境によって人格や生き方は本当に変わるのか
環境が人生に与える影響は実際どれほどのものなのか、専門家の田宮由美さんに伺った。
-
VBとアクセスでSQL文に変数を使いたいのですが
Visual Basic(VBA)
-
Accessのフォーム上にレコード数とレコード番号の表示
その他(データベース)
-
Access サブフォームでの選択行の取得
その他(データベース)
-
-
4
テキストボックスにクエリ結果を表示させたい
その他(データベース)
-
5
select文の戻り値を変数に格納したい。
Visual Basic(VBA)
-
6
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
-
7
ACCESSで空白のデーターをクエリで判定/識別する方法を教えてくださ
Access(アクセス)
-
8
日付型のフィールドに空白を入れる方法を教えてください
その他(データベース)
-
9
ACCESS フォームをそのまま印刷について
その他(データベース)
-
10
アクセスで数値型のフィールドにNullをいれたい
その他(データベース)
-
11
アクセスのエラー「クエリには出力フィールドが1つ以上必要です。」
その他(Microsoft Office)
-
12
ループで呼び出しながら、追加クエリでテーブルに追加
Visual Basic(VBA)
-
13
サブフォームに対してGoToRecordするには?
その他(Microsoft Office)
-
14
Access 最後のレコードに到達するまでループ処理を行う方法
Access(アクセス)
-
15
アクセスでテキストボックスの値が空白だったら
Access(アクセス)
-
16
アクセスのレポートでレコード数をカウントしたい
その他(データベース)
-
17
AccessのSQL文で1件のみヒットしたら終了させる構文。
その他(データベース)
-
18
2つのテーブルに共通するレコードを削除したい
Access(アクセス)
-
19
Access VBAでクエリーのレコード件数を取得したいのですが
その他(データベース)
-
20
ACCESS クエリで、グループ化したものをカウントしたい
その他(データベース)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
「更新に必要なキー列の情報が...
-
Accessのテーブルのレコ...
-
Set rst = db.OpenRecordset("S...
-
access count数を変数に格納
-
Access VBAで自動連番を振るには
-
初心者です。Access レポートで...
-
Accessの更新前処理について。D...
-
Excel 2019 のピボットテーブル...
-
エクセルVBAで5行目からオート...
-
Accessでテーブル名やクエリ名...
-
Accessでコードを入れると名前...
-
Accessでテーブルの値をテキス...
-
「直需」の意味を教えてください
-
3つの表を1つに縦に連結する
-
group by でselect
-
変数が選択リストにありません
-
Oracle 2つのDate型の値の差を...
-
異なるサーバのDBデータ同士を...
-
Accessのフィールド数が255しか...
-
顧客IDを入力すると顧客名や住...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
access count数を変数に格納
-
access2000でつまづいてます
-
Accessの更新前処理について。D...
-
ADOでループすると1レコードず...
-
「更新に必要なキー列の情報が...
-
ACCESSのFindコマンドが遅い
-
Access2003でのテーブルの有無確認
-
[Access]削除時のエラーメッセ...
-
Access VBAで自動連番を振るには
-
VBAのデバックをどなたかお手伝...
-
ECサイトの購入後の在庫処理
-
AceessVBA 非同期処理について
-
cobolのカーソルについて
-
ACCESS 処理件数の取得
-
adoのWHERE句 クエリだとフィ...
-
VB2010のSQLを使ったレコードカ...
-
VBScript+SQLServerでcountがう...
-
半角スペースの置換でエラーを...
-
Set rst = db.OpenRecordset("S...
-
Access VBA
おすすめ情報
マクロはexcelから実行しています。