{"id":1564,"date":"2011-09-23T17:53:25","date_gmt":"2011-09-23T21:53:25","guid":{"rendered":"http:\/\/www.iowawebnet.com\/ein\/?p=1564"},"modified":"2011-09-28T10:55:58","modified_gmt":"2011-09-28T14:55:58","slug":"vb-net-update-record-in-code-behind","status":"publish","type":"post","link":"https:\/\/www.iowawebnet.com\/ein\/2011\/09\/vb-net-update-record-in-code-behind\/","title":{"rendered":"VB.NET &#8211; Update record in code behind"},"content":{"rendered":"<p>Default.aspx<\/p>\n<pre>\r\nProject Status:<select>\r\n  <option>Open<\/option>\r\n  <option>In process<\/option>\r\n  <option>On hold<\/option>\r\n  <option>Closed<\/option>\r\n<\/select>\r\n<\/pre>\n<pre>\r\n<code>\r\n&lt;asp:DropDownList ID=\"UpdateStatus\" runat=\"server\">\r\n    &lt;asp:ListItem Text=\"Open\" Value=\"Open\">\r\n    &lt;asp:ListItem Text=\"In process\" Value=\"In process\">\r\n    &lt;asp:ListItem Text=\"On hold\" Value=\"On hold\">\r\n    &lt;asp:ListItem Text=\"Closed\" Value=\"Closed\">\r\n&lt;\/asp:DropDownList>\r\n&lt;asp:Button ID=\"UpdateBtn\" runat=\"server\" Text=\"Update\" \/>\r\n<\/code>\r\n<\/pre>\n<p>Default.vb.aspx<\/p>\n<pre>\r\n<code>\r\nImports System.Web.UI.WebControls.DropDownList\r\n\r\nProtected Sub UpdateBtn_Click(sender As Object, e As System.EventArgs) _\r\n                                                          Handles UpdateBtn.Click\r\n' - query identifier\r\n  Dim pid As Integer = Request.QueryString(\"pid\")\r\n  Dim ProjStat As DropDownList = UpdateBtn.FindControl(\"UpdateStatus\")\r\n\r\n  If pid > 0 Then\r\n\r\n   ' - def oledb conn\r\n   Dim oConn As New OleDbConnection(\"Provider=Microsoft.ACE.OLEDB.12.0; _\r\n                                  Data Source=\" & Server.MapPath(\"My_Projects.accdb\"))\r\n      Try\r\n       oConn.Open()\r\n\r\n        Dim sql As String\r\n        sql = \"UPDATE ProjectRequests SET ProjectStatus = @ProjStat WHERE ID = @ID\"\r\n\r\n        ' - def new oledb command\r\n        Dim Cmd_UpdateStatus As New OleDbCommand(sql, oConn)\r\n        Cmd_UpdateStatus.Parameters.AddWithValue(\"@ProjStat\", ProjStat.Text.ToString)\r\n        Cmd_UpdateStatus.Parameters.Add(\"@ID\", OleDbType.Integer).Value = pid\r\n\r\n        ' - execute query cmd \/ close conn\r\n        Cmd_UpdateStatus.ExecuteNonQuery()\r\n       oConn.Close()\r\n\r\n         ' - update status\r\n          Response.Redirect(\"Default.aspx?pid=\" & pid)\r\n\r\n      Catch ex As Exception\r\n         lblMsg.Text = ex.Message.ToString()\r\n\r\n       End Try\r\n   End If\r\nEnd Sub\r\n<\/code>\r\n<\/pre>\n","protected":false},"excerpt":{"rendered":"<p>Default.aspx Project Status: Open In process On hold Closed &lt;asp:DropDownList ID=&#8221;UpdateStatus&#8221; runat=&#8221;server&#8221;> &lt;asp:ListItem Text=&#8221;Open&#8221; Value=&#8221;Open&#8221;> &lt;asp:ListItem Text=&#8221;In process&#8221; Value=&#8221;In process&#8221;> &lt;asp:ListItem Text=&#8221;On hold&#8221; Value=&#8221;On hold&#8221;> &lt;asp:ListItem Text=&#8221;Closed&#8221; Value=&#8221;Closed&#8221;> &lt;\/asp:DropDownList> &lt;asp:Button ID=&#8221;UpdateBtn&#8221; runat=&#8221;server&#8221; Text=&#8221;Update&#8221; \/> Default.vb.aspx Imports System.Web.UI.WebControls.DropDownList Protected Sub UpdateBtn_Click(sender As Object, e As System.EventArgs) _ Handles UpdateBtn.Click &#8216; &#8211; query identifier Dim pid As [&hellip;]<\/p>\n","protected":false},"author":35,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[17],"tags":[],"class_list":["post-1564","post","type-post","status-publish","format-standard","hentry","category-applications"],"_links":{"self":[{"href":"https:\/\/www.iowawebnet.com\/ein\/wp-json\/wp\/v2\/posts\/1564"}],"collection":[{"href":"https:\/\/www.iowawebnet.com\/ein\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.iowawebnet.com\/ein\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.iowawebnet.com\/ein\/wp-json\/wp\/v2\/users\/35"}],"replies":[{"embeddable":true,"href":"https:\/\/www.iowawebnet.com\/ein\/wp-json\/wp\/v2\/comments?post=1564"}],"version-history":[{"count":26,"href":"https:\/\/www.iowawebnet.com\/ein\/wp-json\/wp\/v2\/posts\/1564\/revisions"}],"predecessor-version":[{"id":1589,"href":"https:\/\/www.iowawebnet.com\/ein\/wp-json\/wp\/v2\/posts\/1564\/revisions\/1589"}],"wp:attachment":[{"href":"https:\/\/www.iowawebnet.com\/ein\/wp-json\/wp\/v2\/media?parent=1564"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.iowawebnet.com\/ein\/wp-json\/wp\/v2\/categories?post=1564"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.iowawebnet.com\/ein\/wp-json\/wp\/v2\/tags?post=1564"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}