Excel VBA質問箱 IV

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

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


11181 / 13646 ツリー ←次へ | 前へ→

【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

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