Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11192 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【17599】DBからデータを取得 masami 04/9/3(金) 8:46 質問[未読]
【17636】Re:DBからデータを取得 ichinose 04/9/3(金) 19:46 発言[未読]
【17638】Re:DBからデータを取得 Asaki 04/9/3(金) 20:11 発言[未読]
【17644】Re:DBからデータを取得 ichinose 04/9/3(金) 21:45 発言[未読]
【17599】DBからデータを取得
質問  masami  - 04/9/3(金) 8:46 -
引用なし
パスワード
   EDT_MENU.TANKA_1がチェックされていればDBに接続ずみなので
DBからデータを持ってきて
w_buhin とDBから持ってきた品番の値が一致すればワークシート内にbaikaをセットするようにしたのですがオブジェクトが必要ですとエラーがでます。RecordSetのやり方がいけなかったのでしょうか？

If EDT_MENU.TANKA_1.Value = True Then
　　str_sql = "select hinban,baika,hinban_st,tourokuday from tankatable;" ' where tourokuday > add_months(trunc(sysdate),-24),hinban_st = '3' or '0' ;"
　　If w_buhin = RecordSet.hinban Then
　　　　　　Worksheets(w_sheet).Cells(N2 + 5, 10) = RecordSet.baika
　　End If
End If
【17636】Re:DBからデータを取得
発言  ichinose  - 04/9/3(金) 19:46 -
引用なし
パスワード
   ▼masami さん：
こんばんは。
朝、出掛けにちらっと拝見しましたが、
この投稿だと回答が付きにくいですよ！！

>EDT_MENU.TANKA_1がチェックされていればDBに接続ずみなので
>DBからデータを持ってきて
>w_buhin とDBから持ってきた品番の値が一致すればワークシート内にbaikaをセットするようにしたのですがオブジェクトが必要ですとエラーがでます。RecordSetのやり方がいけなかったのでしょうか？
このエラーを再現できる情報が少ないということです。

それから、どの行でエラーが起こっているかもわかりません。

面倒ですが、こういう情報はがないと検証できませんよね？

で、拝見してコードで不思議に思った事ですが・・・。

>
>If EDT_MENU.TANKA_1.Value = True Then
>　　str_sql = "select hinban,baika,hinban_st,tourokuday from tankatable;" ' where tourokuday > add_months(trunc(sysdate),-24),hinban_st = '3' or '0' ;"
'このSQLでとこでRecoredsetを取得しているのですか？

>　　If w_buhin = RecordSet.hinban Then
'　　　　　　　　　　↑これ何ですか？
>　　　　　　Worksheets(w_sheet).Cells(N2 + 5, 10) = RecordSet.baika
>　　End If
>End If
【17638】Re:DBからデータを取得
発言  Asaki  - 04/9/3(金) 20:11 -
引用なし
パスワード
   あまりよく判っていませんが、
どうやってDBに接続しているのでしょうか？
ADO？oo4o？(たぶん、相手はOracleですよね？)
作ったSQLが実行されていないように見えますが、その辺はどうなんでしょう？

ところで、余計なお世話ですが、Where句をつけるのであれば、
たぶん↓のように書かないとダメだと思いますが。
str_sql = "select hinban,baika,hinban_st,tourokuday from tankatable"
str_sql = str_sql & " where tourokuday > add_months(trunc(sysdate),-24)"
str_sql = str_sql & " and hinban_st in ('3','0') ;"
【17644】Re:DBからデータを取得
発言  ichinose  - 04/9/3(金) 21:45 -
引用なし
パスワード
   >こんばんは。
>朝、出掛けにちらっと拝見しましたが、
>この投稿だと回答が付きにくいですよ！！
>
>>EDT_MENU.TANKA_1がチェックされていればDBに接続ずみなので
>>DBからデータを持ってきて
>>w_buhin とDBから持ってきた品番の値が一致すればワークシート内にbaikaをセットするようにしたのですがオブジェクトが必要ですとエラーがでます。RecordSetのやり方がいけなかったのでしょうか？
>このエラーを再現できる情報が少ないということです。
>
>それから、どの行でエラーが起こっているかもわかりません。
ごめんなさい、これは、記述されていましたね。失礼しました。

ということは、省略してあるけどRecordsetは取得されていると言う事ですか？

>>
>>If EDT_MENU.TANKA_1.Value = True Then
>>　　str_sql = "select hinban,baika,hinban_st,tourokuday from tankatable;" ' where tourokuday > add_months(trunc(sysdate),-24),hinban_st = '3' or '0' ;"
>'このSQLでとこでRecoredsetを取得しているのですか？
>
>>　　If w_buhin = RecordSet.hinban Then
>'　　　　　　　　　　↑これ何ですか？
>>　　　　　　Worksheets(w_sheet).Cells(N2 + 5, 10) = RecordSet.baika
'そうすると､気になるのは　　↑のw_sheetが何なのかですが・・　　　　　　　　　　　
>>　　End If
>>End If
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11192 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free