Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


35623 / 76738 ←次へ | 前へ→

【46311】アクセスのクエリを実行したい
質問  phoo  - 07/1/30(火) 13:00 -

引用なし
パスワード
   VBA初心者です。
今、販売数や在庫数を管理するToolを作っています。
データはアクセスに蓄積し、エクセルで必要な期間のデータを抽出したいと思っています。
こちらの過去ログを参考にさせていただいて下記のようなコードを作成しました。
UserForm2のTextBox1に開始日、TextBox2に終了日を入力しそれをクエリのパラメーターへ渡しデータを抽出しようとしていますが、TextBox1とTextBox2にどのような日付を入れてもテーブルにあるすべてのデータが抽出されてしまいます。
初心者のためコードも見よう見真似です。
どなたかご教授いただけませんでしょうか?よろしくお願いします。


<クエリ>
販売日 日付/時刻型  Between [Date1] and [Date2]
店舗  テキスト型
数量  データ型


Private Sub 販売数抽出()

Dim Cn As ADODB.Connection
Dim Rs As ADODB.Recordset
Dim Cmd As ADODB.Command

Set Cn = New ADODB.Connection
Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & "\在庫管理.mdb"
Set Rs = New ADODB.Recordset
Set Cmd = New ADODB.Command
Cmd.ActiveConnection = Cn

Cmd.CommandText = "販売数"
Set Rs = Cmd.Execute(Parameters:=Array(UserForm2.TextBox1.Text, UserForm2.TextBox2.Text)

ActiveSheet.Range("a2").CopyFromRecordset Rs
Set wcmd = Nothing
Rs.Close: Set Rs = Nothing
Cn.Close: Set Cn = Nothing

End Sub

0 hits

【46311】アクセスのクエリを実行したい phoo 07/1/30(火) 13:00 質問
【46313】Re:アクセスのクエリを実行したい neptune 07/1/30(火) 13:29 発言
【46362】Re:アクセスのクエリを実行したい 1 ichinose 07/1/31(水) 21:54 発言
【46363】Re:アクセスのクエリを実行したい 2 ichinose 07/1/31(水) 21:54 発言
【47697】Re:アクセスのクエリを実行したい 2 phoo 07/3/19(月) 17:00 質問
【47709】Re:アクセスのクエリを実行したい 2 ichinose 07/3/20(火) 7:56 発言
【47731】Re:アクセスのクエリを実行したい 2 ichinose 07/3/21(水) 8:09 発言
【47837】Re:アクセスのクエリを実行したい 2 phoo 07/3/23(金) 18:35 お礼
【46318】Re:アクセスのクエリを実行したい Kein 07/1/30(火) 14:39 回答
【46319】Re:アクセスのクエリを実行したい Kein 07/1/30(火) 14:41 発言
【46321】Re:アクセスのクエリを実行したい phoo 07/1/30(火) 15:43 お礼

35623 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free