SQLのUPDATE文で空白（半角・全角含）の抽出の仕方

Question

Excel2013のVBAにてADO接続でSQL文を発行しています。
このときに空白（半角・全角含）条件でUPDATE文を記載する場合にデータが拾われてきません。

＜SQL文＞
sql = ""
sql = sql & " SELECT * FROM [" & .Worksheets(SheetHairetu(K)).Name & "$] "
sql = sql & " WHERE (LTrim(RTrim([売上1月])) = 0) and ([データソース] = '赤箱')"

rs.Open sql, CN

上記のSQLを実行しても空白条件のデータを拾ってくることができません。
エラーも出てこないので、WHERE 文をどのようにしたら、空白条件のデータを拾ってくるかを
教えていただければと思います。

Comments

[coco_bauer]

WHERE句の中でRTrim,LTrimを適用しているということは[売上1月]は文字列という想定だと思われます。しかし、文字列=数字　という条件は一般には成り立たないのではないでしょうか？　　LTrim(RTrim([売上1月])) = "0"であれば、売り上げが０のものが出てくると思います。

[kei5]

連絡有難うございます。ADOでExcelセルを編集しようとしているのですが、セルの書式は「通貨」になっています。sqlのWhere句については以下のようにした場合にもデータが拾われてきません。
sql = sql & " WHERE (LTrim(RTrim([売上1月])) = ’’) and ([データソース] = '赤箱')"
「通貨」セルに空白が入っていた場合に空白データが拾われる条件が分かれば教えていただければと思います。

Answer 1

IS NULL で取得できました。

SELECT * FROM [Sheet1$] WHERE [売上1月] IS NULL AND [データソース]='赤箱';

恐らくライブラリのバージョンは関係ないと思いますが、以下の２つ（自分のPCにある最古と最新）を試して、どちらも大丈夫でした。

[ツール]-[参照設定]から
Microsoft ActiveX Data Objects 2.0 Library
Microsoft ActiveX Data Objects 6.1 Library

Comments

[kei5]

有難うございました。私のほうでも上手く抽出できることを確認しました。一方でADOの1月売上項目を編集してUpdate処理をかけようとすると、他のレコードまで更新してしまう事象が発生しています。ADOのupdate処理ではレコードセット内の全てのデータをアップデートかけてしまうのでしょうか？

RS.Open sql, CN, adOpenStatic, adLockPessimistic

If Not RS.EOF Then
do until rs.eof
RS.MoveFirst
RS.Fields("売上1月").Value = "0"
RS.Update
RS.MoveNext
loop
end if

もし、DAOを利用したほうが上手くいくのであれば、それもご教授いただければ幸いです。

[ttyp03]

do until の次の行で、RS.MoveFirst をやっているのが気になります。
RS.MoveFirst をやらないコードでは、SQLの条件にマッチしたレコードのみが更新されることは確認できました。

Answer 2

空白であれば、「''」か「～ IS NULL」で抽出できるのではないのでしょうか？

Comments

[kei5]

有難うございます。Oracleならば、「IS NULL」は空白文字で拾われてきますが、今回はExcel上のデータなので、拾われてきません。同じく「''」でも試しましたが、エラーは表示されずにSQLが実行されてしまいます。ExcelのADOで空白文字を拾ってくる方法をご存知であれば教えていただきたいです。

[kei5]

すみません。「''」の場合はSQLを実行してもデータは拾われません。