すみません、検索はしたのですが・・・
VB6.0でACCESS2000のデータをUPDATEしたいと思っています。
ですが
※P_CN_DATABASEは、ADODB.Connectionです。
※VAL_1/VAL_2は変数です。
---------------------------------------------------------------------
P_CN_DATABASE.Execute "UPDATE SET TABLE1 COLUMN1 = '" & VAL_1 & "'"
---------------------------------------------------------------------
とすると、全件のデータが更新されるのですが、
---------------------------------------------------------------------
P_CN_DATABASE.Execute "UPDATE SET TABLE1 COLUMN1 = '" & VAL_1 & "' WHERE COLUMN2 = '" & VAL_2 & "'"
---------------------------------------------------------------------
このようにWhere句をつけるとエラーも発生せず、何も更新されません。
更新するデータとWhere句のデータの、それぞれのシングルクォーテーションが不要なのかな?と思い、はずして試しましたがダメでした。
何がいけないのでしょうか?
よろしくお願いします!
No.2ベストアンサー
- 回答日時:
こんにちは。
maruru01です。とりあえず、UPDATE構文が間違っている件は置いておくとします。
COLUMN2フィールドにはどんな値があって、変数VAL_2には実行時にどんな値が代入されているかを確認して下さい。
(Executeで実行する直前にMsgBoxを置くか、イミディエントウィンドウに出力しましょう。)
データ型が違う場合は、エラーになるはずですが、一応それも確認して下さい。
また、データが文字列ということは、全角・半角やその他微妙に、実際のテーブルの内容と変数VAL_2の内容が違うかも知れないので確認して下さい。
なお、No.1の人のWHEREを「""」の外に出すという方法をしてもエラーになるだけで、指摘内容は間違っていると思います。
(そのそも、Executeメソッドでは表示だけ(つまりSELECTだけ)はもともと出来ないはずです。)
この回答への補足
お返事ありがとうございました。
あれからも色々やってみたところ、
UPDATE文のテーブル名やカラム名も、全て変数にしたところ、Where句に一致するデータだけが更新されました。
理由は分かりませんが・・・
お二方からのお返事嬉しかったです、ありがとうございました。
お返事ありがとうございます。
> とりあえず、UPDATE構文が間違っている件は置いておくとします。
すみません・・・間違えました(--;
実行時のSQL文はイミディエントウィンドウに出力していました。特に問題はなかったと思われたのですが・・・。
[VAL_2]には文字列としての数字がはいっています。
--------------------------------------
" WHERE COLUMN2 = '00001' "
--------------------------------------
となります。
ACCESSにおけるカラムのデータ型はテキスト型です。
データベースにも存在しているデータです。
※データ型が違っているエラーは通過してきましたので(--;)、大丈夫だと思っていますが・・・
#1の方の方法もまだ試していないのですが、WHERE句を外に出してもだめそうなのですね・・・
また宜しかったら、お話伺わせて下さい。
ありがとうございました。
No.1
- 回答日時:
こん**は。
「"」の位置をもう一度見てください。
P_CN_DATABASE.Execute "UPDATE SET TABLE1 COLUMN1 = '" & VAL_1 & "' WHERE COLUMN2 = '" & VAL_2 & "'"
では、"UPDATE~COLUMN1 = '"と"'WHERE COLUMN2 = '"と"'"が、画面表示の対象になってしまっています。
つまり、WHERE句が命令じゃなく表示になっています。
だから、
P_CN_DATABASE.Execute "UPDATE SET TABLE1 COLUMN1 = '" & VAL_1 & "'" WHERE "COLUMN2 = '" & VAL_2 & "'"
のように、WHEREが命令になるようにしてみてください。
参考になれば幸いです。
shiro-haseさん、お返事ありがとうございます。
今、自宅ではないため試せないのですが、
帰宅後、さっそく試してみます!
ただ少し分からないのですが、Where句を指定しないUpdate文は、単なる文字列ですよね?
------------------------------------------------
"UPDATE SET TABLE1 COLUMN1 = '" & VAL_1 & "'"
------------------------------------------------
この部分だけだと画面表示の対象にはならずに命令として認識されるのでしょうか?
(実際データが更新されているので認識されているのでしょうが・・・)
なぜ「WHERE」だけが、文字列生成の「"」「"」からはずれるのか理解できなくて・・・。
もし宜しかったら、教えていただければと思います。
お返事ありがとうございました。
※しかも質問に載せたUpdate文も間違っていますね・・・すみません!
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
教えて下さい
-
【エクセル】測定時間がバラバ...
-
C# ソケット通信でデータ受信時...
-
配列でデータが入っている要素...
-
特定のデータの抽出方法を教え...
-
EXCELVBAでSQLserverからデータ...
-
外部データの更新がうまくでき...
-
GridViewの行の一部を複数行にする
-
VBA 毎日取得するデータを順番...
-
gridでデータ削除後に上へ1件...
-
プログラミング python pandas ...
-
カンマからスラッシュに
-
ポケコン PC-E650 の...
-
ページ数を求めたい
-
[C言語] コメント文字列を無視...
-
COBOLの定義について
-
メモ帳(テキストデータ)をExc...
-
この行は既に別のテーブルに属...
-
モジュラス103の算出方法について
-
S9タイプからXタイプにデータ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
教えて下さい
-
【エクセル】測定時間がバラバ...
-
配列でデータが入っている要素...
-
VBA 円グラフ 特定条件に一致し...
-
メモ帳(テキストデータ)をExc...
-
EXCELVBAでSQLserverからデータ...
-
VBA 空白セルを削除ではない方...
-
S9タイプからXタイプにデータ...
-
ブレーカー落ちで壊れたりしな...
-
Accessで該当データにフラグを...
-
多量のSUMIF式を軽くしたい
-
エクセルで2つの時系列のデー...
-
VBAを使ってOutlookメール本文...
-
特定のデータの抽出方法を教え...
-
この行は既に別のテーブルに属...
-
カンマからスラッシュに
-
VBAでシートからコンボボックス...
-
GridViewの行の一部を複数行にする
-
ユーザーフォームのテキストボ...
-
<VB>String→Object
おすすめ情報