[RESOLVED] [2008] ASP.NET VB - Must Declare Scalar Variable "@EmployeeNo"

**nolim8ts** · Jun 9th, 2008, 02:16 AM

Hi All,

Below is the code that I have tried to implement but it always returns "Must Declare the scalar variable "@EmployeeNo". I have gone through the code countless times but I can't figure out what is wrong.

vb Code:

<%@ 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>

**Besoup** · Jun 9th, 2008, 07:08 AM

I see a couple things you may be doing wrong.

in this code here:

vb Code:

With myCommand.Parameters 
myCommand.Parameters.Add("@EmployeeNo", OleDbType.VarChar).Value = txtEmployeeNo.Text

you have a With statement and then you're still writing out the entire object. You don't have to do that if you're using a with.

Next you can try .AddWithValue instead of .Add

vb Code:

With myCommand.Parameters 
     .AddWithValue("@EmployeeNo", txtEmployeeNo.Text)

**nolim8ts** · Jun 9th, 2008, 08:03 PM

Thanks Besoup for the suggestion,

I modified the With statement as you suggested but it is still returning the same error message. Any other suggestions?

Bit of an update.

It looks like my form values are not being passed to the parameters.

After removing the With Statement, the values are now being passed but the error message still persists.

**nolim8ts** · Jun 9th, 2008, 09:03 PM

Changing from OleDB to SQLClient seemed to fix the issue

Read on another forum that OleDB uses "?" as the annotation for defining parameters but that kept throwing an error message when implemented.

**mendhak** · Jun 10th, 2008, 01:51 PM

OleDb can use @ for parameter names, just a few providers don't use @. For example MySql may expect ? instead of @

Thread: [RESOLVED] [2008] ASP.NET VB - Must Declare Scalar Variable "@EmployeeNo"

Thread Tools

Display

[RESOLVED] [2008] ASP.NET VB - Must Declare Scalar Variable "@EmployeeNo"

Re: [2008] ASP.NET VB - Must Declare Scalar Variable "@EmployeeNo"

Re: [2008] ASP.NET VB - Must Declare Scalar Variable "@EmployeeNo"

Re: [2008] ASP.NET VB - Must Declare Scalar Variable "@EmployeeNo"

Re: [RESOLVED] [2008] ASP.NET VB - Must Declare Scalar Variable "@EmployeeNo"

Posting Permissions