Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

71230 / 76807

←次へ　｜　前へ→


	【10073】Re:データベースクエリー

ichinose - 04/1/6(火) 10:02 -


	引用なし

	パスワード

こうちゃん、まえださん、おはようございます。

>ichinoseさんもおっしゃってますが、SQLを一度見直してみてはいかがでしょう。
>
>たとえば
>
>>db4 = "WHERE (`DB$`.得意先名='" & dbAitem & "') AND (`DB$`.売上対策<>'"
>db4 = "WHERE (`DB$`.得意先名='" & dbAitem & "') AND (`DB$`.売上対策<>'')"
>
>とかではいかがでしょう。
こうちゃん、フォローありがとうございます。

まえださん。

売上対策という列のデータの型を確認してくださいね。

db4 = "WHERE (`DB$`.得意先名 = '" & dbAitem & "') AND (`DB$`.売上対策 Is Not Null)"

なんてのも試してみて下さい。

それから、Array関数のネストの記述もこのコードでは、
本来は、必要ないように見えました。

db1 = "ODBC;DSN=Excel Files;DBQ=C:\損益データ.xls;DefaultDir=C:\Data;DriverId=790;MaxBufferSize=2048;PageTimeout=5;"
db2 = "SELECT `DB$`.コード, `DB$`.得意先名, `DB$`.年月日, `DB$`.売上対策"
db3 = " FROM `C:\損益データ`.`DB$` `DB$`"
db4 = " WHERE (`DB$`.得意先名='" & dbAitem & "') AND (`DB$`.売上対策 Is Not Null)"

　　With ActiveSheet.QueryTables.Add(Connection:=db1, Destination:=Range("A1"))
　　　　.CommandText = db2 & db3 & db4

この辺ですが・・・。
確認してみて下さい。

1 hits

▼

【10041】データベースクエリー まえだ 04/1/4(日) 22:43