スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。
スポンサーリンク

データの更新(update)

データ更新のSQLとコードは、次のようになります。データの生成(create)で示したBeginTxメソッドも少し手が加わっています。
スポンサーリンク

  Const UPDATE_VALUE_SQL As String = "update t_value set value = :value " & _
"where term = :term and company_id = :company_id and market_id = " & GET_MARKET_ID_SQL & " and datetime = :datetime " & _
" and category_id = " & GET_CATEGORY_ID_SQL & " and item_id = " & GET_ITEM_ID_SQL & " ;"

Sub BeginTx()
_tx = _conn.BeginTransaction()
_createCom = New NpgsqlCommand(SET_VALUE_SQL, _conn, _tx)
InitCreateUpdate(_createCom)
_updateCom = New NpgsqlCommand(UPDATE_VALUE_SQL, _conn, _tx)
InitCreateUpdate(_updateCom)
End Sub

Sub Update(ByVal sv As SeqValue)
CreateUpdate(_updateCom, sv)
End Sub
この処理を呼び出す側は次のコードのようにします。SeqValueDAO#BeginTxのあと、SeqValueDAO#CreateとSeqValueDAO#Updateを混在させても構いません。

Dim dao As New SeqValueDAO
dao.BeginTx()
dao.Create(seqValue1)
dao.Create(seqValue2)
dao.Create(seqValue3)
dao.Update(seqValue4)
dao.Update(seqValue5)
dao.Update(seqValue6)
' ・・・
dao.CommitTx()

検索ワード:SQL、update
スポンサーリンク
<<データの読み出し(read) | ホーム | データの削除(delete)>>
コメント(-)
コメントの投稿
トラックバック(-)
コメント(0)
コメントの投稿
トラックバック(0)
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。