Imports System.Data.SqlClient

Public Class CharacterNameChange

    Private Sub ChangeCharacterNamebtn_Click(sender As Object, e As EventArgs) Handles ChangeCharacterNamebtn.Click
        If MessageBox.Show("Are you sure to edit the Charactername?", "AccountEditor :: Charactername Change", MessageBoxButtons.YesNo, MessageBoxIcon.Asterisk) = Windows.Forms.DialogResult.Yes Then
            If AccountEditor.Characternotxtbx.Text <> "" Then
                Dim conn As SqlConnection = Nothing
                Try
                    conn = New SqlConnection(selectAccount.connString)
                    Dim sqlcommand As New SqlCommand("UPDATE " & selectAccount.CharacterDB & "..tCharacter SET sID = @sID WHERE nCharNo = @nCharNo;", conn)
                    sqlcommand.Parameters.AddWithValue("@sID", NewCharacterNametxtbx.Text)
                    sqlcommand.Parameters.AddWithValue("@nCharNo", AccountEditor.Characternotxtbx.Text)
                    conn.Open()
                    sqlcommand.ExecuteNonQuery()
                    MessageBox.Show("Successfully changed Character Name!", "AccountEditor :: Charactername Change", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
                    AccountEditor.Close()
                    Me.Close()
                Catch ex As Exception
                    MessageBox.Show("SQL error" & vbNewLine & ex.Message, "AccountEditor :: Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
                Finally
                    conn.Close()
                End Try
            Else
                MessageBox.Show("Please select first a Character.", "AccountEditor :: Charactername Change", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End If
        End If
    End Sub

    Private Sub CharacterNameChange_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        NewCharacterNametxtbx.Text = Nothing
        CurrentCharacterNametxtbx.Text = AccountEditor.Characterdropdown.SelectedItem
    End Sub
End Class