UPDATE文で・・・・

VBでUPDATE文を書いて実行したのですが
うまく更新されません。
なぜなのでしょうか?教えてください。

SQL = " UPDATE t_tanaorosi SET "
sSQL = sSQL & " 実在庫数=実在庫数-(実在庫数-棚卸数)"
sSQL = "WHERE"
sSQL = sSQL & " 実在庫数=" & pvBase.CvtSQL(TDBGrid.Columns("実在庫数").Value)

商品名を入力すると自動的に実在庫数が入力されるようになっています。
棚卸数を入力して登録して
同じ商品名を入力すると前回入力した棚卸数の数だけ減って自動に入力されるようにしたいのです。
よろしくお願いします。

No.5 ベストアンサー 回答者： chibita_papa 回答日時： 2006/06/17 09:25

sSQL = sSQL & " 実在庫数=実在庫数-(実在庫数-棚卸数)"

は、展開すると
sSQL = sSQL & " 実在庫数=棚卸数 "
と言うことですよね。

これでどうですか

pvBase.CvtSQL(TDBGrid.Columns("実在庫数").Value)
が気になりますが。

No.4 回答者： chibita_papa 回答日時： 2006/06/14 10:55

sSQL = " UPDATE t_tanaorosi SET "

sSQL = sSQL & " 実在庫数=実在庫数-(実在庫数-棚卸数)"
sSQL = sSQL & "WHERE"
sSQL = sSQL & " 実在庫数=" & pvBase.CvtSQL(TDBGrid.Columns("実在庫数").Value)

に変更してみてください。
１行目 SQL = を sSQLへ
２行目 sSQL = "WHERE" を sSQL = sSQL & "WHERE"へ

この回答への補足

ご指摘の通り変更してみましたが
駄目でした。
棚卸数は画面で入力した数がDBで更新されていますが
実在個数は減りません。
どこがおかしいのか分かりません。
教えてください。

補足日時：2006/06/16 23:33

No.3 回答者： sakko99 回答日時： 2006/06/14 09:34

sSQL の中身をデバックで取得してクエリアナライザで実行してみてください。

正しく更新されますか？

No.2 回答者： noname#22222 回答日時： 2006/06/14 09:29

SQL = "UPDATE t_tanaorosi SET " & _

　　　　 " 実在庫数=実在庫数-(実在庫数-棚卸数) "
　　　　 "WHERE " & _
　　　　 "実在庫数=" & pvBase.CvtSQL(TDBGrid.Columns("実在庫数").Value)

・WHERE の前にブランクがない。
・UPDATE文が完成していない。

という不具合はあるのではないでしょうか?
質問文のタイプミスでなければ、

? sSQL

WHERE 実在庫数=20

となっていると思いますが？

この回答への補足

ご指摘の通り変更してみましたが
駄目でした。
棚卸数は画面で入力した数がDBで更新されていますが
実在個数は減りません。
どこがおかしいのか分かりません。
教えてください。

補足日時：2006/06/16 23:39

No.1 回答者： t_nojiri 回答日時： 2006/06/14 01:20

コミットしてないとかって事は無いですよね？

更新系のトランザクションはコミット必要ですよ。

しかし、テーブル名もエラーコードも無しでは正直なんとも言えません。