Excel VBA質問箱 IV

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

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


35616 / 76738 ←次へ | 前へ→

【46318】Re:アクセスのクエリを実行したい
回答  Kein  - 07/1/30(火) 14:39 -

引用なし
パスワード
   私はDAOしか使わないので、DAOのコード例を提示します。
ユーザーフォームに配置したボタンを押して、Sheet1 に指定の日付期間の
データを引っ張るコードです。
(参照設定で Microsoft DAO 3.6 Object Library にチェック)

Private Sub CommandButton1_Click()
  Dim MyDB As DAO.Database, MyRS As DAO.Recordset
  Dim StDy As String, EDy As String, MySQL As String

  If Not IsDate(TextBox1.Value) Or _
  Not IsDate(TextBox2.Value) Then
   MsgBox "テキストボックスの値は日付として認識できません", 48
   Exit Sub
  End If     
  StDy = Format(CDate(TextBox1.Value), "yyyy/mm/dd")
  EDy = Format(CDate(TextBox2.Value), "yyyy/mm/dd")
  MySQL = "SELECT 店舗, 数量 FROM 販売数 WHERE 販売日 >= #" & _
  StDy & "# AND 販売日 <= #" & EDy & "#;"
  Set MyDB = DBEngine.Workspaces(0) _
  .OpenDatabase(ThisWorkbook.Path & "\在庫管理.mdb")
  Set MyRS = MyDB.OpenRecordset(MySQL)
  Sheets("Sheet1").Range("A2").CopyFromRecordset MyRS
  Close MyRS: Close MyDB
  Set MyRS = Nothing: Set MyDB = 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 お礼

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