Generate SQL insert command (VB.net)
<%@ Import namespace="System.Data" %>
<%@ Import namespace="System.Data.OleDb" %>
<html>
<head>
<title>Validating a Field</title>
</head>
<body>
<form id="Form1" method="post" runat="server">
<table id="Table1"
style="Z-INDEX: 101; LEFT: 8px; POSITION: absolute; TOP: 8px"
cellSpacing="0" cellPadding="0" width="300" border="0">
<tr>
<td style="WIDTH: 115px">
<asp:Label id="Label1" runat="server">FirstName</asp:Label>
</td>
<td>
<asp:TextBox id="txtCategoryName" runat="server" width="193" />
</td>
</tr>
<tr>
<td style="WIDTH: 115px">
<asp:Label id="Label2" runat="server">LastName</asp:Label>
</td>
<td>
<asp:TextBox id="txtDescription" runat="server" width="193" />
</td>
</tr>
<tr>
<td style="WIDTH: 115px" colSpan="2">
<asp:Button id="btnInsert" runat="server"
OnClick="btnInsert_Click" width="298" text="INSERT!" />
</td>
</tr>
</table>
<asp:RequiredFieldValidator id="rfvCategoryName" runat="server"
style="Z-INDEX: 102; LEFT: 316px; POSITION: absolute; TOP: 14px"
ErrorMessage="Please insert the new category name"
ControlToValidate="txtCategoryName" />
</form>
</body>
</html>
<script language="VB" runat="server">
Dim objConnection As OleDbConnection
Sub Page_Load(Source as Object, E as EventArgs)
objConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; " & _
"data source=" + MapPath("EmployeeDatabase.mdb"))
End Sub
Sub btnInsert_Click(Sender As Object, E As EventArgs)
If Page.IsValid Then
Dim strSQL As String = "INSERT INTO Employee " & _
"(FirsName, LastName) VALUES (?, ?)"
Dim dbComm As New OleDbCommand(strSQL, objConnection)
dbComm.Parameters.Add("FirstName", OleDbType.VarChar, 8, "FirstName")
dbComm.Parameters.Add("LastName", OleDbType.VarChar, 8, "LastName")
dbComm.Parameters("FirstName").Value = txtCategoryName.Text
dbComm.Parameters("LastName").Value = txtDescription.Text
Try
objConnection.Open()
dbComm.ExecuteNonQuery()
Catch ex As Exception
Response.Write(ex.Message)
Response.End
Finally
If objConnection.State = ConnectionState.Open Then
objConnection.Close()
End If
End Try
Response.Write("A new record has been added")
Response.End
End If
End Sub
</script>
EmployeeDatabase.zip( 10 k)Related examples in the same category