<%@ Page Language="vb" %>
<%@ Import Namespace="System" %>
<%@ Import Namespace="System.IO" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<%@ Import Namespace="System.Web.UI.WebControls" %>
<%@ Import Namespace="System.Configuration" %>
<%@ Import Namespace="System.Threading" %>
<%@ Import Namespace="System.Globalization" %>
<%@ Import Namespace="System.IO" %>
<HTML>
<HEAD>
<title>Add Employee To Database</title>
<script runat=server>
Public Sub AddPerson(sender As Object, e As EventArgs)
Dim intImageSize As Int64
Dim strImageType As String
Dim ImageStream As Stream
' Gets the Size of the Image
intImageSize = PersonImage.PostedFile.ContentLength
' Gets the Image Type
strImageType = PersonImage.PostedFile.ContentType
' Reads the Image
ImageStream = PersonImage.PostedFile.InputStream
Dim ImageContent(intImageSize) As Byte
Dim intStatus As Integer
intStatus = ImageStream.Read(ImageContent, 0, intImageSize)
' Create Instance of Connection and Command Object
Dim connStr As String = "Provider=SQLOLEDB;Data Source=WIN2K3R2EE\SQLEXPRESS;Initial Catalog=EmployeeDB;User id=;Password="
Dim SQLInsert As String = "INSERT INTO STAFF (EmployeeNo, GivenName, Surname, Telephone, Email, Picture, WrkGrp, SectionID, Gender) VALUES (@EmployeeNo, @GivenName, @Surname, @Telephone, @Email, @Picture, @WrkGrp, @SectionID, @Gender)"
Dim myCommand As New OleDbCommand(SQLInsert, New OleDbConnection(connStr))
myCommand.Connection.Open()
Try
With myCommand.Parameters
myCommand.Parameters.Add("@EmployeeNo", OleDbType.VarChar).Value = txtEmployeeNo.Text
myCommand.Parameters.Add("@GivenName", OleDbType.VarChar).Value = txtGivenName.Text
myCommand.Parameters.Add("@Surname", OleDbType.VarChar).Value = txtSurname.Text
myCommand.Parameters.Add("@Telephone", OleDbType.VarChar).Value = txtTelephone.Text
myCommand.Parameters.Add("@Email", OleDbType.VarChar).Value = txtEmail.Text
myCommand.Parameters.Add("@Picture", OleDbType.Binary).Value = ImageContent
myCommand.Parameters.Add("@WrkGrp", OleDbType.VarChar).Value = txtWorkGroup.Text
myCommand.Parameters.Add("@SectionID", OleDbType.VarChar).Value = txtSection.Text
Dim prmSex As String = ""
If sexMale.Checked Then
prmSex = "M"
Else
prmSex = "F"
End If
myCommand.Parameters.AddWithValue("@Gender", OleDbType.VarChar).Value = prmSex
End With
If CInt(myCommand.ExecuteNonQuery()) = 0 Then
Response.Write("Insert Failed")
Else
Response.Write("New person successfully added!")
End If
myCommand.Connection.Close()
Catch ex As Exception
Response.Write(ex.Message())
End Try
End Sub
</script>
</HEAD>
<body style="font: 10pt verdana">
<form enctype="multipart/form-data" runat="server">
<asp:Table Runat=server Width=50% BorderWidth=1 BackColor=Beige>
<asp:TableRow>
<asp:TableCell ColumnSpan=2 BackColor="#ff0000">
<asp:Label Font-Name="verdana" Font-size="12px" ForeColor="#ffffff" font-bold="True" Runat=server Text="Add New Person" />
</asp:TableCell>
</asp:TableRow>
<asp:TableRow>
<asp:TableCell HorizontalAlign="Right"><asp:Label Font-Name="verdana" Font-size="12px" Runat=server Text="Employee No" /></asp:TableCell>
<asp:TableCell><asp:TextBox id=txtEmployeeNo Runat=server /></asp:TableCell>
</asp:TableRow>
<asp:TableRow>
<asp:TableCell HorizontalAlign="Right"><asp:Label Font-Name="verdana" Font-size="12px" Runat=server Text="Given Name" /></asp:TableCell>
<asp:TableCell><asp:TextBox id=txtGivenName Runat=server /></asp:TableCell>
</asp:TableRow>
<asp:TableRow>
<asp:TableCell HorizontalAlign="Right"><asp:Label Font-Name="verdana" Font-size="12px" Runat=server Text="Surname" /></asp:TableCell>
<asp:TableCell><asp:TextBox id=txtSurname Runat=server /></asp:TableCell>
</asp:TableRow>
<asp:TableRow>
<asp:TableCell HorizontalAlign="Right"><asp:Label Font-Name="verdana" Font-size="12px" Runat=server Text="Telephone" /></asp:TableCell>
<asp:TableCell><asp:TextBox id=txtTelephone Runat=server /></asp:TableCell>
</asp:TableRow>
<asp:TableRow>
<asp:TableCell HorizontalAlign="Right"><asp:Label Font-Name="verdana" Font-size="12px" Runat=server Text="Email" /></asp:TableCell>
<asp:TableCell><asp:TextBox id="txtEmail" Runat=server /></asp:TableCell>
</asp:TableRow>
<asp:TableRow>
<asp:TableCell HorizontalAlign="Right"><asp:Label Font-Name="verdana" Font-size="12px" Runat=server Text="Image" /></asp:TableCell>
<asp:TableCell><input type="file" id="PersonImage" runat=server /></asp:TableCell>
</asp:TableRow>
<asp:TableRow>
<asp:TableCell HorizontalAlign="Right"><asp:Label Font-Name="verdana" Font-size="12px" Runat=server Text="WorkGroup" /></asp:TableCell>
<asp:TableCell><asp:TextBox id="txtWorkGroup" Runat=server /></asp:TableCell>
</asp:TableRow>
<asp:TableRow>
<asp:TableCell HorizontalAlign="Right"><asp:Label Font-Name="verdana" Font-size="12px" Runat=server Text="Section" /></asp:TableCell>
<asp:TableCell><asp:TextBox id="txtSection" Runat=server /></asp:TableCell>
</asp:TableRow>
<asp:TableRow>
<asp:TableCell HorizontalAlign="Right"><asp:Label Font-Name="verdana" Font-size="12px" Runat=server Text="Sex" /></asp:TableCell>
<asp:TableCell>
<asp:RadioButton GroupName="sex" Font-Name="Verdana" Font-Size="12px" Text="Male" ID="sexMale" Runat=server />
<asp:RadioButton GroupName="sex" Font-Name="Verdana" Font-Size="12px" Text="FeMale" ID="sexFeMale" Runat=server />
</asp:TableCell>
</asp:TableRow>
<asp:TableRow>
<asp:TableCell ColumnSpan=2 HorizontalAlign=Center>
<asp:Button Text="Add Person" OnClick="AddPerson" Runat=server />
</asp:TableCell>
</asp:TableRow>
</asp:Table>
</form>
</body>
</HTML>
[RESOLVED] [2008] ASP.NET VB - Must Declare Scalar Variable "@EmployeeNo"
Reply With Quote