C# VB Web システム開発の部屋

システム開発で役に立つコードを厳選したブログです。

【VB.NET】データベースの更新(行数を取得して更新漏れを防ぐ方法)

 

サンプルコード

 

try
  Using  SqlCon As New SqlClient.SqlConnection 
    Dim SqlCom As SqlClient.SqlCommand = SqlCon.CreateCommand 
    Dim SqlTran As SqlClient.SqlTransaction 
    SqlCon.ConnectionString = My.Settings.'接続文字列'   
SqlCom.CommandTimeout = 600 'タイムアウトまでの待機時間 SqlCon.Open() SqlTran = SqlCon.BeginTransaction SqlCom.Transaction = SqlTran SqlCom.CommandText = "UPDATE 'テーブル名' SET '項目名' = '値' WHERE '条件'" Dim intI As Integer = SqlCom.ExecuteNonQuery If intI = 0 Then '更新行が0行の場合、エラーとする。 Throw New Exception("更新行が0行の為、更新に失敗しました。") End If 'コミット SqlTran.Commit() If SqlCon.State = ConnectionState.Open Then SqlCon.Close()
  End If
 
  SqlCom.Dispose() End Using catch ex Exception  'エラー処理 end try

VB.NET