Hello, I’m very new to this so I’m probably doing something very stupid!

I’m just trying to save the contents of three fields to an SQL database using a stored procedure.

I’ve written the following code that doesn’t work.
Is it complete rubbish or am I almost there?

Please help…

Thanks,


Imports System.Data
Imports System.Data.SqlClient

Partial Class deleteEvent
    'Inherits System.Web.UI.Page
    Inherits spc_masterclass

    Private Sub deleteEvent(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Selectid.Click
        Dim DS As DataSet
        Dim MyConnection As SqlConnection
        Dim MyDataAdapter As SqlDataAdapter
        Dim intEventID As String
        Dim dteUpdatedOn As String = Date.Now
        Dim txtUpdatedBy As String = "garrygri"

        intEventID = ddl_Event.SelectedValue
        dteUpdatedOn = dteUpdatedOn.Substring(0, 10)

        If Page.IsValid = True Then
            EventID.Text = intEventID
            UpdatedOn.Text = dteUpdatedOn
            UpdatedBy.Text = txtUpdatedBy

            'Create a connection to the SQL Server
            MyConnection = New SqlConnection("Data Source=160.160.10.14;Initial Catalog=CAT_SYSTEM;Persist Security Info=True;User ID=test;Password=test;Pooling=False")
            MyDataAdapter = New SqlDataAdapter("sp_deleteEvent", MyConnection)
            MyDataAdapter.SelectCommand.CommandType = CommandType.StoredProcedure

            'Create the storedProcedure parameters
            MyDataAdapter.SelectCommand.Parameters.Add(New SqlParameter("@eventID", SqlDbType.SmallInt))
            MyDataAdapter.SelectCommand.Parameters.Add(New SqlParameter("@UpdatedOn", SqlDbType.SmallDateTime))
            MyDataAdapter.SelectCommand.Parameters.Add(New SqlParameter("@UpdatedBy", SqlDbType.NVarChar, 15))

            'Assign a value to the parameters
            MyDataAdapter.SelectCommand.Parameters("@eventID") .Value = EventID.Text
            MyDataAdapter.SelectCommand.Parameters("@UpdatedOn ").Value = UpdatedOn.Text
            MyDataAdapter.SelectCommand.Parameters("@UpdatedBy ").Value = UpdatedBy.Text

            DS = New DataSet()
            MyDataAdapter.Fill(DS, "sp_deleteEvent")

            MyDataAdapter.Dispose()
            MyConnection.Close()

            'display temporary test text
            EventID.Visible = True
            UpdatedOn.Visible = True
            UpdatedBy.Visible = True

        End If
    End Sub
End Class

You are doing a Select, I don't see code for an Update.

Jim