VB Code :: โค้ดแก้ไข

tr = Conn.BeginTransaction()
Try
sb = New StringBuilder()
sb.Append("UPDATE Goods")
sb.Append(" SET Goods_Des=@Goods_Des,Goods_Rate=@Goods_Rate")
sb.Append(" WHERE (Goods_ID=@Goods_ID)")


Dim sqlEdit As String
sqlEdit = sb.ToString

With com
.CommandText = sqlEdit
.CommandType = CommandType.Text
.Connection = Conn
.Transaction = tr
.Parameters.Clear()
.Parameters.Add("@Goods_ID", SqlDbType.NVarChar).Value = txtGoodsID.Text.Trim()
.Parameters.Add("@Goods_Des", SqlDbType.NVarChar).Value = txtGoodsDes.Text.Trim()
.Parameters.Add("@Goods_Rate", SqlDbType.Float).Value = txtGoodsRate.Text.Trim()

Dim result As Integer
result = .ExecuteNonQuery()
If result = 0 Then
tr.Rollback()
MessageBox.Show("รหัสชนิดห้องพักที่คุณป้อน ไม่ถูกต้อง !!!", "แจ้งข้อมูล", MessageBoxButtons.OK, MessageBoxIcon.Information)
txtGoodsID.SelectAll()
Else
tr.Commit()

ClearAllData()
showData()
FormatDgvGoods()

End If

End With
Catch ex As Exception
tr.Rollback()
MessageBox.Show("เกิดข้อผิดพลาด เนื่องจาก " & ex.Message, "แจ้งข้อมูล", MessageBoxButtons.OK, MessageBoxIcon.Information)

End Try
End If
txtGoodsDes.Focus()