Quickstart Problem

[Eustice Scrubb]

I'm trying to use the Insert.aspx Quickstart and I'm getting a NULL pointer
exception. Any help?

<code>
<script language="VB" runat="server">
Dim myConnection As SqlConnection

Sub Page_Load(Src As Object, e As EventArgs)
' Create a connection to the SQL Server
myConnection = New SqlConnection(" Data Source=SERVER;" _
& "Initial Catalog=databas e;User Id=user;Passwor d=password;")
' Check whether this page is a postback. If it is not
' a postback, call a custom BindGrid function.
If Not IsPostBack Then
BindGrid()
End If
End Sub

' Implement an AddAsset_Click function. This function does some data
' validation on the input form and builds a parameterized command
containing
' all the fields of the input form. Then it executes this command to the
' database and tests (using the try command) whether the data was added.
' Finally, it rebinds the DataGrid to show the new data.
Sub AddAsset_Click( Sender As Object, e As EventArgs)
Dim myCommand As SqlCommand
Dim insertCmd As String
' Check the Cube and Computer Serial input values and make sure they
are not
' empty. If they are empty, show a message to the user and rebind the
DataGrid.
If (cube.Value = "" Or computer_serial .Value = "")
Message.InnerHt ml = "ERROR: You MUST enter a Cube and Computer S/N "
Message.Style(" color") = "red"
BindGrid()
Exit Sub
End If
' Build a SQL INSERT statement string for all the input-form
' field values.
insertCmd = "insert into myTable values (@cube, @monitor_type,
@monitor_serial , @acd, " _
& "@ext, @computer_type, @computer_seria l, @hostname,
@second_comp_se rial, @second_hostnam e);"
' Initialize the SqlCommand with the new SQL string.
myCommand = New SqlCommand(inse rtCmd, myConnection)

' Create new parameters for the SqlCommand object and
' initialize them to the input-form field values.

'Cube data
myCommand.Param eters.Add(New SqlParameter("@ cube", _
SqlDbType.VarCh ar, 50))
myCommand.Param eters("@cube"). Value = cube.Value

'Monitor Type data
myCommand.Param eters.Add(New SqlParameter("@ monitor_type", _
SqlDbType.VarCh ar, 50))
myCommand.Param eters("@monitor _type").Value = monitor_type.Va lue

'Monitor Serial data
myCommand.Param eters.Add(New SqlParameter("@ monitor_serial" , _
SqlDbType.VarCh ar, 50))
myCommand.Param eters("@monitor _serial").Value = monitor_serial. Value

'ACD (position ID) data
myCommand.Param eters.Add(New SqlParameter("@ acd", _
SqlDbType.VarCh ar, 4))
myCommand.Param eters("@acd").V alue = acd.Value

'Extension data
myCommand.Param eters.Add(New SqlParameter("@ ext", _
SqlDbType.VarCh ar, 12))
myCommand.Param eters("@ext").V alue = ext.Value

'Computer Type data
myCommand.Param eters.Add(New SqlParameter("@ computer_type", _
SqlDbType.VarCh ar, 20))
myCommand.Param eters("@compute r_type").Value = computer_type.V alue

'Computer Serial data
myCommand.Param eters.Add(New SqlParameter("@ computer_serial ", _
SqlDbType.VarCh ar, 50))
myCommand.Param eters("@compute r_serial").Valu e = computer_serial .Value

'Hostname data
myCommand.Param eters.Add(New SqlParameter("@ hostname", _
SqlDbType.VarCh ar, 50))
myCommand.Param eters("@hostnam e").Value = hostname.Value

'2nd Computer Serial data
myCommand.Param eters.Add(New SqlParameter("@ second_comp_ser ial", _
SqlDbType.VarCh ar,50))
myCommand.Param eters("@second_ comp_serial").V alue =
second_comp_ser ial.Value

'2nd Hostname data
myCommand.Param eters.Add(New SqlParameter("@ second_hostname ", _
SqlDbType.VarCh ar,50))
myCommand.Param eters("@second_ hostname").Valu e = second_hostname .Value

myCommand.Conne ction.Open() THIS IS WHERE THE EXCEPTION IS
' Test whether the new row can be added and display the
' appropriate message box to the user.
Try
myCommand.Execu teNonQuery()
Message.InnerHt ml = "<b>Record Added</b><br>" & insertCmd
Catch ex As SqlException
If ex.Number = 2627 Then
Message.InnerHt ml = "ERROR: A record already exists with " _
& "the same Computer Serial Number"
Else
Message.InnerHt ml = "ERROR: Could not add record, please " _
& "ensure the fields are correctly filled out"
Message.Style(" color") = "red"
End If
End Try

myCommand.Conne ction.Close()
BindGrid()
End Sub

' BindGrid connects to the database and implements a SQL
' SELECT query to get all the data in the table
' of the database.
Sub BindGrid()
Dim myConnection As SqlConnection
Dim myCommand As SqlDataAdapter
' Create a connection to the "database" SQL Server
myConnection = New SqlConnection(" data source=SERVER;" _
& "user id=user;passwor d=password;init ial catalog=Databas e")
' Connect to the SQL database using a SQL SELECT query to get all
' the data from the table.
myCommand = New SqlDataAdapter( "SELECT * FROM myTable", _
myConnection)
' Create and fill a new DataSet.
Dim ds As DataSet = New DataSet()
myCommand.Fill( ds)
' Bind the DataGrid control to the DataSet.
dgInserted.Data Source = ds
dgInserted.Data Bind()
End Sub
</script>
</code>
I'm getting a NULL pointer exception on:

myCommand.Conne ction.Open()
Stack Trace:
[NullReferenceEx ception: Object reference not set to an instance of an
object.]
ASP.conInsert_a spx.AddAsset_Cl ick(Object Sender, EventArgs e) in
C:\inventory\In sert.aspx:96
System.Web.UI.H tmlControls.Htm lInputButton.On ServerClick(Eve ntArgs e)

System.Web.UI.H tmlControls.Htm lInputButton.Sy stem.Web.UI.IPo stBackEventHand ler.RaisePostBa ckEvent(String eventArgument)
System.Web.UI.P age.RaisePostBa ckEvent(IPostBa ckEventHandler
sourceControl, String eventArgument)
System.Web.UI.P age.RaisePostBa ckEvent(NameVal ueCollection postData)
System.Web.UI.P age.ProcessRequ estMain()

Everything looks good to me. Most of the code is from the MSDN Quickstart
and I've just tweaked it to allow for my database.

AM I MISSING SOMETHING?

[Pat]

Eustice mabe something is wrong with your connectionStrin g?
PAtrick

"Eustice Scrubb" <Eu***********@ discussions.mic rosoft.com> wrote in message
news:F1******** *************** ***********@mic rosoft.com...

I'm trying to use the Insert.aspx Quickstart and I'm getting a NULL pointer exception. Any help?

<code>
<script language="VB" runat="server">
Dim myConnection As SqlConnection

Sub Page_Load(Src As Object, e As EventArgs)
' Create a connection to the SQL Server
myConnection = New SqlConnection(" Data Source=SERVER;" _
& "Initial Catalog=databas e;User Id=user;Passwor d=password;")
' Check whether this page is a postback. If it is not
' a postback, call a custom BindGrid function.
If Not IsPostBack Then
BindGrid()
End If
End Sub

' Implement an AddAsset_Click function. This function does some data
' validation on the input form and builds a parameterized command
containing
' all the fields of the input form. Then it executes this command to the ' database and tests (using the try command) whether the data was added. ' Finally, it rebinds the DataGrid to show the new data.
Sub AddAsset_Click( Sender As Object, e As EventArgs)
Dim myCommand As SqlCommand
Dim insertCmd As String
' Check the Cube and Computer Serial input values and make sure they
are not
' empty. If they are empty, show a message to the user and rebind the DataGrid.
If (cube.Value = "" Or computer_serial .Value = "")
Message.InnerHt ml = "ERROR: You MUST enter a Cube and Computer S/N " Message.Style(" color") = "red"
BindGrid()
Exit Sub
End If
' Build a SQL INSERT statement string for all the input-form
' field values.
insertCmd = "insert into myTable values (@cube, @monitor_type,
@monitor_serial , @acd, " _
& "@ext, @computer_type, @computer_seria l, @hostname,
@second_comp_se rial, @second_hostnam e);"
' Initialize the SqlCommand with the new SQL string.
myCommand = New SqlCommand(inse rtCmd, myConnection)

' Create new parameters for the SqlCommand object and
' initialize them to the input-form field values.

'Cube data
myCommand.Param eters.Add(New SqlParameter("@ cube", _
SqlDbType.VarCh ar, 50))
myCommand.Param eters("@cube"). Value = cube.Value

'Monitor Type data
myCommand.Param eters.Add(New SqlParameter("@ monitor_type", _
SqlDbType.VarCh ar, 50))
myCommand.Param eters("@monitor _type").Value = monitor_type.Va lue

'Monitor Serial data
myCommand.Param eters.Add(New SqlParameter("@ monitor_serial" , _
SqlDbType.VarCh ar, 50))
myCommand.Param eters("@monitor _serial").Value = monitor_serial. Value

'ACD (position ID) data
myCommand.Param eters.Add(New SqlParameter("@ acd", _
SqlDbType.VarCh ar, 4))
myCommand.Param eters("@acd").V alue = acd.Value

'Extension data
myCommand.Param eters.Add(New SqlParameter("@ ext", _
SqlDbType.VarCh ar, 12))
myCommand.Param eters("@ext").V alue = ext.Value

'Computer Type data
myCommand.Param eters.Add(New SqlParameter("@ computer_type", _
SqlDbType.VarCh ar, 20))
myCommand.Param eters("@compute r_type").Value = computer_type.V alue

'Computer Serial data
myCommand.Param eters.Add(New SqlParameter("@ computer_serial ", _
SqlDbType.VarCh ar, 50))
myCommand.Param eters("@compute r_serial").Valu e = computer_serial .Value
'Hostname data
myCommand.Param eters.Add(New SqlParameter("@ hostname", _
SqlDbType.VarCh ar, 50))
myCommand.Param eters("@hostnam e").Value = hostname.Value

'2nd Computer Serial data
myCommand.Param eters.Add(New SqlParameter("@ second_comp_ser ial", _
SqlDbType.VarCh ar,50))
myCommand.Param eters("@second_ comp_serial").V alue =
second_comp_ser ial.Value

'2nd Hostname data
myCommand.Param eters.Add(New SqlParameter("@ second_hostname ", _
SqlDbType.VarCh ar,50))
myCommand.Param eters("@second_ hostname").Valu e = second_hostname .Value
myCommand.Conne ction.Open() THIS IS WHERE THE EXCEPTION IS
' Test whether the new row can be added and display the
' appropriate message box to the user.
Try
myCommand.Execu teNonQuery()
Message.InnerHt ml = "<b>Record Added</b><br>" & insertCmd
Catch ex As SqlException
If ex.Number = 2627 Then
Message.InnerHt ml = "ERROR: A record already exists with " _
& "the same Computer Serial Number"
Else
Message.InnerHt ml = "ERROR: Could not add record, please " _
& "ensure the fields are correctly filled out"
Message.Style(" color") = "red"
End If
End Try

myCommand.Conne ction.Close()
BindGrid()
End Sub

' BindGrid connects to the database and implements a SQL
' SELECT query to get all the data in the table
' of the database.
Sub BindGrid()
Dim myConnection As SqlConnection
Dim myCommand As SqlDataAdapter
' Create a connection to the "database" SQL Server
myConnection = New SqlConnection(" data source=SERVER;" _
& "user id=user;passwor d=password;init ial catalog=Databas e")
' Connect to the SQL database using a SQL SELECT query to get all
' the data from the table.
myCommand = New SqlDataAdapter( "SELECT * FROM myTable", _
myConnection)
' Create and fill a new DataSet.
Dim ds As DataSet = New DataSet()
myCommand.Fill( ds)
' Bind the DataGrid control to the DataSet.
dgInserted.Data Source = ds
dgInserted.Data Bind()
End Sub
</script>
</code>
I'm getting a NULL pointer exception on:

myCommand.Conne ction.Open()
Stack Trace:
[NullReferenceEx ception: Object reference not set to an instance of an
object.]
ASP.conInsert_a spx.AddAsset_Cl ick(Object Sender, EventArgs e) in
C:\inventory\In sert.aspx:96
System.Web.UI.H tmlControls.Htm lInputButton.On ServerClick(Eve ntArgs e)

System.Web.UI.H tmlControls.Htm lInputButton.Sy stem.Web.UI.IPo stBackEventHand l
er.RaisePostBac kEvent(String eventArgument) System.Web.UI.P age.RaisePostBa ckEvent(IPostBa ckEventHandler
sourceControl, String eventArgument)
System.Web.UI.P age.RaisePostBa ckEvent(NameVal ueCollection postData)
System.Web.UI.P age.ProcessRequ estMain()

Everything looks good to me. Most of the code is from the MSDN Quickstart
and I've just tweaked it to allow for my database.

AM I MISSING SOMETHING?