{"id":1417,"date":"2010-12-07T16:38:51","date_gmt":"2010-12-07T20:38:51","guid":{"rendered":"http:\/\/www.iowawebnet.com\/ein\/?p=1417"},"modified":"2011-09-07T16:40:18","modified_gmt":"2011-09-07T20:40:18","slug":"vb-net-add-record-in-code-behind","status":"publish","type":"post","link":"https:\/\/www.iowawebnet.com\/ein\/2010\/12\/vb-net-add-record-in-code-behind\/","title":{"rendered":"VB.NET &#8211; add record in code behind"},"content":{"rendered":"<p><strong>MyForm.aspx<\/strong><\/p>\n<blockquote>\n<pre><code> \r\n&lt;asp:TextBox ID=\"AddRec\" runat=\"server\"&gt; &lt;\/asp:TextBox&gt; \r\n&lt;asp:Button ID=\"AddBtn\" runat=\"server\" Text=\"Add\" \/&gt; \r\n&lt;asp:Label ID=\"LblMsg\" runat=\"server\"&gt; &lt;\/asp:Label&gt; \r\n<\/code><\/pre>\n<\/blockquote>\n<p><strong>MyForm.aspx.vb<\/strong><\/p>\n<blockquote>\n<pre>\r\n<code>\r\nProtected Sub AddBtn_Click(sender As Object, e As System.EventArgs) \r\n                                                   Handles AddBtn.Click\r\n    Dim NewRec As TextBox\r\n    'binding controls\r\n    NewRec = AddBtn.FindControl(\"AddRec\")\r\n              \r\n    If NewLoc.Text.ToString() <> \"\" Then\r\n    '\/ access db connection - \r\n    '\/ MS Access 2007\/10 driver * you can define your own sql connection\r\n    Dim Conn As New OleDbConnection(\"Provider=Microsoft.ACE.OLEDB.12.0;\r\n                                  Data Source=\" & Server.MapPath(\"\/MyDB.accdb\"))\r\n    Dim cmd As OleDbCommand\r\n        Try\r\n        '\/ open connection\r\n           Conn.Open()\r\n\r\n         Dim id As String = String.Empty '\/ we only in update sql statement\r\n         Dim sql As String\r\n         sql = \"INSERET INTO table1 ([location]) VALUES (@NewRec);\"\r\n         '* NOTE - misspelled sql statement on purpose | please CORRECT IT\r\n        \r\n         cmd = New OleDbCommand(sql, Conn)\r\n         cmd.Parameters.AddWithValue(\"@NewLoc\", NewLoc.Text.ToString)\r\n         cmd.ExecuteNonQuery()\r\n         Conn.Close()\r\n         '\/ end\r\n             '\/ redirect page\r\n              Response.Redirect(\"MyForm.aspx\")\r\n             '\/ or display confirmation message\r\n             '\/ LblMsg.Text = \"<font color='green'>Input received - thank you!<\/font>\"\r\n        \r\n         '\/ catching the exception or error of some kind\r\n            Catch ex As Exception\r\n               '\/ display error message\r\n                LblMsg.Text = \"<font color='red'>ERROR: \" & ex.Message.ToString() & \"<\/font>\"\r\n\r\n            End Try\r\n            \r\n        Else\r\n            '\/ validate form control input\r\n            LblMsg.Text = \"<font color='red'>Required!<\/font>\"\r\n        End If\r\n    End Sub\r\n    \r\n<\/code>\r\n<\/pre>\n<\/blockquote>\n","protected":false},"excerpt":{"rendered":"<p>MyForm.aspx &lt;asp:TextBox ID=&#8221;AddRec&#8221; runat=&#8221;server&#8221;&gt; &lt;\/asp:TextBox&gt; &lt;asp:Button ID=&#8221;AddBtn&#8221; runat=&#8221;server&#8221; Text=&#8221;Add&#8221; \/&gt; &lt;asp:Label ID=&#8221;LblMsg&#8221; runat=&#8221;server&#8221;&gt; &lt;\/asp:Label&gt; MyForm.aspx.vb Protected Sub AddBtn_Click(sender As Object, e As System.EventArgs) Handles AddBtn.Click Dim NewRec As TextBox &#8216;binding controls NewRec = AddBtn.FindControl(&#8220;AddRec&#8221;) If NewLoc.Text.ToString() &#8220;&#8221; Then &#8216;\/ access db connection &#8211; &#8216;\/ MS Access 2007\/10 driver * you can define your own sql [&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,16],"tags":[30,19,144,22],"class_list":["post-1417","post","type-post","status-publish","format-standard","hentry","category-applications","category-net","tag-access-2","tag-asp-net","tag-controls","tag-programming"],"_links":{"self":[{"href":"https:\/\/www.iowawebnet.com\/ein\/wp-json\/wp\/v2\/posts\/1417"}],"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=1417"}],"version-history":[{"count":43,"href":"https:\/\/www.iowawebnet.com\/ein\/wp-json\/wp\/v2\/posts\/1417\/revisions"}],"predecessor-version":[{"id":1461,"href":"https:\/\/www.iowawebnet.com\/ein\/wp-json\/wp\/v2\/posts\/1417\/revisions\/1461"}],"wp:attachment":[{"href":"https:\/\/www.iowawebnet.com\/ein\/wp-json\/wp\/v2\/media?parent=1417"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.iowawebnet.com\/ein\/wp-json\/wp\/v2\/categories?post=1417"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.iowawebnet.com\/ein\/wp-json\/wp\/v2\/tags?post=1417"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}