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

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

【VB.NET】UPDATE文または、DELETE文を実行する ーモジュール③ー

 

<プログラムの説明>

 UPDATE文または、DELETE文の実行結果を返します。

 実行結果 True = 成功 False = 失敗

  ※行数チェック無し

 

<引数の説明>

 SqlCmdText・・・SQL Query(UPDATE文、DELETE文)

 

<DebuggerStepThrough>
Public Function SqlRun(ByVal SqlCmdText As String) As Boolean SqlRun = False Using SqlConnection As New SqlClient.SqlConnection Dim SqlCommand As SqlClient.SqlCommand = SqlConnection.CreateCommand Dim SqlTransaction As SqlClient.SqlTransaction     'My.SettingのSQL Serverデータベースを開く SqlConnection.ConnectionString = My.Settings.SqlCon      SqlConnection.Open()      '最大待機時間を10分に設定 SqlCommand.CommandTimeout = 600
SqlTransaction = SqlConnection.BeginTransaction SqlCommand.Transaction = SqlTransaction Try       'SQL Queryを実行する
SqlCommand.CommandText = SqlCmdText SqlCommand.ExecuteNonQuery() SqlTransaction.Commit() SqlRun = True Catch ex As Exception If SqlTransaction Is Nothing = False Then SqlTransaction.Rollback() End If
MessageBox.Show(ex.Message)
Finally If SqlConnection.State = ConnectionState.Open Then SqlConnection.Close() End If SqlCommand.Dispose() End Try End Using End Function