Excel VBA質問箱 IV

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

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


64320 / 76732 ←次へ | 前へ→

【16993】アクセスのパラメータクエリを抽出したい
質問  ponpon  - 04/8/18(水) 10:50 -

引用なし
パスワード
    Excel、ACCESSとも初心者です。
 学校で使う図書貸し出しの自動化をはかっています。EXCEL2003からADOを使ってACCESSのパラメータクエリ(図書貸し出し簿2)に開始年月日と終了年月日を渡し、その期間の貸し出し簿を抽出し、グラフ化することに成功しましたが、EXCEL2002で動作させるとエラーになります。
 参照設定が、2003の場合 ADO2.7ですが、2002の場合 ADO2.5です。
 それだけの違いなのですが、うまく動きません。もう一度はじめからやり直さなければならないのでしょうか?
 何かいい方法を教えてください。
ACCESSには接続できます。
myArrayのデータには日付かが取得されています。
Set myRS = myCmd.Execute(Parameters:=myArray)のところで
”SQLステートメントが正しくありません。”エラーになります。


Sub 図書貸出簿のデータ取得()

Dim myCon As New ADODB.Connection
Dim myCmd As New ADODB.Command
Dim myRS As New ADODB.Recordset
  
 myCon.Open "file name=C:\Documents and Settings\AAA\My Documents_
 \図書台帳\tosyo.udl;"
  With myCmd
  .ActiveConnection = myCon
  .CommandText = "クエリ図書貸出簿2"
  End With

  myArray = Array(年月日入力.開始年月日, 年月日入力.終了年月日)
  Set myRS = myCmd.Execute(Parameters:=myArray) ここでエラーになります。
   
  Sheet1.Select
  Range("A1").CurrentRegion.ClearContents
  Range("A2").CopyFromRecordset myRS
 
 Set myCmd = Nothing
 myRS.Close
 Set myRS = Nothing
 myCon.Close
 Set myCon = Nothing

End Sub

1 hits

【16993】アクセスのパラメータクエリを抽出したい ponpon 04/8/18(水) 10:50 質問
【17003】Re:アクセスのパラメータクエリを抽出したい ichinose 04/8/18(水) 14:31 発言
【17004】Re:アクセスのパラメータクエリを抽出した... ichinose 04/8/18(水) 14:36 発言
【17005】Re:アクセスのパラメータクエリを抽出し... ponpon 04/8/18(水) 15:04 お礼
【17011】Re:アクセスのパラメータクエリを抽出し... ichinose 04/8/18(水) 17:19 発言
【17015】Re:アクセスのパラメータクエリを抽出し... ponpon 04/8/18(水) 20:24 お礼

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