Imports System.Data Imports System.Data.SqlClient Public Class Edit Inherits System.Web.UI.Page #Region " Web Form µðÀÚÀ̳ʿ¡¼­ »ý¼ºÇÑ ÄÚµå " 'ÀÌ È£ÃâÀº Web Form µðÀÚÀ̳ʿ¡ ÇÊ¿äÇÕ´Ï´Ù. Private Sub InitializeComponent() End Sub Protected WithEvents Name As System.Web.UI.WebControls.TextBox Protected WithEvents RequiredFieldValidator1 As System.Web.UI.WebControls.RequiredFieldValidator Protected WithEvents Email As System.Web.UI.WebControls.TextBox Protected WithEvents RegularExpressionValidator1 As System.Web.UI.WebControls.RegularExpressionValidator Protected WithEvents Title As System.Web.UI.WebControls.TextBox Protected WithEvents Requiredfieldvalidator2 As System.Web.UI.WebControls.RequiredFieldValidator Protected WithEvents Content As System.Web.UI.WebControls.TextBox Protected WithEvents RequiredFieldValidator3 As System.Web.UI.WebControls.RequiredFieldValidator Protected WithEvents btnSubmit As System.Web.UI.WebControls.Button Protected WithEvents lblError As System.Web.UI.WebControls.Label Protected WithEvents ValidationSummary1 As System.Web.UI.WebControls.ValidationSummary 'Âü°í: ´ÙÀ½ÀÇ ÀÚ¸® Ç¥½ÃÀÚ ¼±¾ðÀº Web Form µðÀÚÀ̳ÊÀÇ Çʼö ¼±¾ðÀÔ´Ï´Ù. '»èÁ¦Çϰųª ¿Å±âÁö ¸¶½Ê½Ã¿À. Private designerPlaceholderDeclaration As System.Object Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init 'CODEGEN: ÀÌ ¸Þ¼­µå È£ÃâÀº Web Form µðÀÚÀ̳ʿ¡ ÇÊ¿äÇÕ´Ï´Ù. 'ÄÚµå ÆíÁý±â¸¦ »ç¿ëÇÏ¿© ¼öÁ¤ÇÏÁö ¸¶½Ê½Ã¿À. InitializeComponent() End Sub #End Region Dim Num As String Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load '¿©±â¿¡ »ç¿ëÀÚ Äڵ带 ¹èÄ¡ÇÏ¿© ÆäÀÌÁö¸¦ ÃʱâÈ­ÇÕ´Ï´Ù. Num = Request.QueryString("Num") If Num = "" Then Response.Redirect("List.aspx") End If If CStr(Request.UrlReferrer.ToString()) = "" Then '¹Ì¿Ï¼º Response.Redirect("List.aspx") End If If Not IsPostBack Then LoadData() End If End Sub Private Sub LoadData() Dim objCon As SqlConnection Dim objCmd As SqlCommand Dim objDr As SqlDataReader objCon = New SqlConnection("server=localhost;user id=dotnetnote;password=dotnetnote;database=dotnetnote") 'objCon.Open() objCmd = New SqlCommand("Select * From DotnetNoteBasicVB Where Num = @Num", objCon) objCmd.Parameters.Add("@Num", SqlDbType.Int) objCmd.Parameters("@Num").Value = Num Try objCon.Open() objDr = objCmd.ExecuteReader() If objDr.Read() Then Name.Text = objDr.Item("Name") Email.Text = objDr.Item("Email") Title.Text = objDr.Item("Title") Content.Text = objDr.Item("Content") Else lblError.Text = "±ÛÀÌ »èÁ¦µÇ¾ú°Å³ª Á¸ÀçÇÏÁö ¾Ê½À´Ï´Ù.
" End If objDr.Close() Catch ex As Exception lblError.Text = "µ¥ÀÌÅÍ ·Îµù¿¡ ½ÇÆÐÇÏ¿´½À´Ï´Ù. »çÀ¯´Â ´ÙÀ½°ú °°½À´Ï´Ù.
" lblError.Text = ex.Message Finally objCon.Close() End Try End Sub Private Sub btnSubmit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSubmit.Click Dim objCon As SqlConnection Dim objCmd As SqlCommand objCon = New SqlConnection("server=localhost;user id=dotnetnote;password=dotnetnote;database=dotnetnote") objCmd = New SqlCommand("Update DotnetNoteBasicVB Set Name=@Name, Email=@Email, Title=@Title, Content=@Content Where Num = @Num", objCon) objCmd.Parameters.Add("@Name", SqlDbType.VarChar, 25) objCmd.Parameters.Add("@Email", SqlDbType.VarChar, 100) objCmd.Parameters.Add("@Title", SqlDbType.VarChar, 140) objCmd.Parameters.Add("@Content", SqlDbType.Text) objCmd.Parameters.Add("@Num", SqlDbType.Int) objCmd.Parameters("@Name").Value = Name.Text objCmd.Parameters("@Email").Value = Email.Text objCmd.Parameters("@Title").Value = Title.Text objCmd.Parameters("@Content").Value = Content.Text objCmd.Parameters("@Num").Value = Num Try objCon.Open() objCmd.ExecuteNonQuery() Response.Redirect("List.aspx") Catch ex As Exception lblError.Text = "¿À·ù·Î ÀÎÇØ ÀúÀåÀÌ ½ÇÆÐÇÏ¿´½À´Ï´Ù. »çÀ¯´Â ´ÙÀ½°ú °°½À´Ï´Ù.
" lblError.Text = ex.Message Finally objCon.Close() End Try End Sub End Class