Excel VBA質問箱 IV

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

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


64316 / 76738 ←次へ | 前へ→

【17003】Re:アクセスのパラメータクエリを抽出したい
発言  ichinose  - 04/8/18(水) 14:31 -

引用なし
パスワード
   ▼ponpon さん:
こんにちは。

> 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(年月日入力.開始年月日, 年月日入力.終了年月日)
'この「年月日入力.開始年月日」や「年月日入力.終了年月日」がどんなオブジェクトなのかわかりませんが、
'想像するに年月日入力がユーザーフォームで、開始年月日がTextboxですか?
'オブジェクトに独自の名前をつけた場合は、その説明をお願いします!!
'でないと再現できないですよね?
'↑が何なのかわからないのですが、もし、Textboxだとしたら・・・・、

'  myArray = Array(年月日入力.開始年月日.text, 年月日入力.終了年月日.text)

'で試してみて下さい

'Adoの5.0でこちらで確認しましたが、.Textをつけた時は正常終了しました


>  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

それとこの投稿を見ている人が簡単に再現できるように
再現するテーブル構造や "クエリ図書貸出簿2"にあたるクエリの内容(Sql)も記述してくださいね!!

0 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 お礼

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