INSERT Not working
<code>
Sub doInsert(Source as Object, E as EventArgs)
Dim strConn as String = ConfigurationSettings.AppSettings("myDSN")
Dim MySQL as string = "Insert into propertiesMatrix ([propertyType],
[location], [zone], [aream2], [price], [currency], [charac], [comments],
[picture], [uploadedby], [updDate]) "
MySQL += "Values (@propertyType, @location, @zone, @aream2,
@price, @currency, @charac, @comments, @picture, @uploadedby, @updDate)"
Dim MyConn as New OleDbConnection(strConn)
Dim Cmd as New OleDbCommand(MySQL, MyConn)
With Cmd.Parameters
.Add(New OleDbParameter("@propertyType", typelist.SelectedItem.text))
.Add(New OleDbParameter("@location", location.text))
.Add(New OleDbParameter("@zone", zonelist.SelectedItem.text))
.Add(New OleDbParameter("@aream2", area.text))
.Add(New OleDbParameter("@price", price.text))
.Add(New OleDbParameter("@currency", currencylist.SelectedItem.text))
.Add(New OleDbParameter("@charac", charac.text))
.Add(New OleDbParameter("@comments", comments.text))
.Add(New OleDbParameter("@picture",
"http://localhost/images/internal/nopic.gif"))
.Add(New OleDbParameter("@uploadedby", userlist.SelectedItem.text))
.Add(New OleDbParameter("@updDate", Format(DateTime.Now(),
"dd-MMM-yyyy")))
End With
MyConn.Open()
cmd.ExecuteNonQuery()
MyConn.Close
response.redirect("default.aspx")
End Sub
</code>
Do you have any idea why this doesn't work? The error is:
Description: An unhandled exception occurred during the execution of
the current web request. Please review the stack trace for more
information about the error and where it originated in the code.
Exception Details: System.NullReferenceException: Object reference not
set to an instance of an object.
Source Error:
Line 113:
Line 114: With Cmd.Parameters
Line 115: .Add(New OleDbParameter("@propertyType",
typelist.SelectedItem.text))
Line 116: .Add(New OleDbParameter("@location", location.text))
Line 117: .Add(New OleDbParameter("@zone",
zonelist.SelectedItem.text))
|
