IF文を使ったUpdateをするには？ (ID:100059)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

お世話になっています。
ゆみです。
昨日はありがとうございました。
連日になってしまい本当に申し訳ありませんが。
私の力不足で何度書き換えてもUpdateが上手くいかず困っています。
もし、分かる方がいらっしゃいましたら教えて頂けると嬉しいです。
まだ、初心者のため専門用語の知識が薄く。文章の内容が分かりづらかったり
ソースの書き方がめちゃくちゃだったりして見づらいかもしれませんが
見ていただけたら嬉しいです。よろしくお願いします。

【質問内容】

登録ボタンを押下した際に、「登録してもよろしいでしょうか？」というメッセージボックスを表示させ
「はい」を押した場合にテーブル「tb_syokuji」にID＝１が合った場合はUpdateを行い
無かった場合は、insertを行いたいのですが上手くいきません。
insertはなんとか出来るようになったのですが、updeteが上手くいかず、
また、IDへの上書きも上手く出来ません。
色々と調べて文章を書き換えては見たのですが・・・・。
もし、分かる方がみえましたら教えていただけると嬉しいです。
本当に初歩的な事を聞いてしまって申し訳ないです。よろしくお願いします。

【ソース】

Private Sub sub_syokuji_Click()
    
    ret = MsgBox("登録してもよろしいでしょうか？", vbOKCancel)
    
    Set rs = New ADODB.Recordset
               
  If ret = 1 Then
'***********************************************************************************************
    'データの更新(未解決)
'***********************************************************************************************
    strSQL = "UPDATE tb_syokuji SET flgSyokuji1 = flgSyokuji(1),flgSyokuji2=flgSyokuji(2),flgSyokuji3=flgSyokuji(3),flgSyokuji4=flgSyokuji(4),flgSyokuji5=flgSyokuji(5),flgSyokuji6=flgSyokuji(6),flgSyokuji7=flgSyokuji(8),flgSyokuji9=flgSyokuji(9),flgSyokuji10=flgSyokuji(10), where ID = "1" ;"
        
    
'***********************************************************************************************
    'データの保存
'***********************************************************************************************
Else
   
        strSQL = "INSERT INTO tb_syokuji (flgSyokuji1,flgSyokuji2,flgSyokuji3,flgSyokuji4,flgSyokuji5,flgSyokuji6,flgSyokuji7,flgSyokuji8,flgSyokuji9,flgSyokuji10) " & _
             "VALUES ('" & flgSyokuji(1) & _
                      "', '" & flgSyokuji(2) & _
                      "', '" & flgSyokuji(3) & _
                      "', '" & flgSyokuji(4) & _
                      "', '" & flgSyokuji(5) & _
                      "', '" & flgSyokuji(6) & _
                      "', '" & flgSyokuji(7) & _
                      "', '" & flgSyokuji(8) & _
                      "', '" & flgSyokuji(9) & _
                      "', '" & flgSyokuji(10) & _
                      "'); "

cn.Execute strSQL

End if

←解決時は質問者本人がここをチェックしてください。

戻る