Extract Data And Populate Values Into The Respective Controls

Hi!



I am creating a scheduling web application. I have managed to insert data into the database. The code is as follow:



Dim insertSQLDatasource As New SqlDataSource()

insertSQLDatasource.ConnectionString = ConfigurationManager.ConnectionStrings("ScheduleConnectionString").ToString



insertSQLDatasource.InsertCommandType = SqlDataSourceCommandType.Text

insertSQLDatasource.InsertCommand = "INSERT INTO Demo_Theatre_DB (StartTime, EndTime, CompanyName, Purpose, AccountManager, Presenter, ColorCode, Status, Comments) VALUES (@StartTime, @EndTime, @CompanyName, @Purpose, @AccountManager, @Presenter, @ColorCode, @Status, @Comments)"



insertSQLDatasource.InsertParameters.Add("StartTime", StartTimeTextBox.Text)

insertSQLDatasource.InsertParameters.Add("EndTime", EndTimeTextBox.Text)

insertSQLDatasource.InsertParameters.Add("CompanyName", CompanyNameTextBox.Text)

insertSQLDatasource.InsertParameters.Add("Purpose", PurposeTextBox.Text)

insertSQLDatasource.InsertParameters.Add("AccountManager", AccountManagerTextBox.Text)

insertSQLDatasource.InsertParameters.Add("Presenter", PresenterTextBox.Text)

insertSQLDatasource.InsertParameters.Add("ColorCode", ColorDDL.SelectedValue.ToString)

insertSQLDatasource.InsertParameters.Add("Status", StatusRadioButtonList.SelectedValue)

insertSQLDatasource.InsertParameters.Add("Comments", CommentTextBox.Text)



Try

insertSQLDatasource.Insert()

Catch ex As Exception

Panel1.Visible = True

InsertMsgLabel.Text = ex.Message.ToString

Finally

insertSQLDatasource = Nothing

End Try



Now I am trying to select the values for a particular event. For example, if the user selects an event with id 40, the values that corresponds to that row will be read and filled into the respective controls. I tried the following code, but doesn't work.



Dim sqlConn As SqlConnection = New SqlConnection("ScheduleConnectionString")

Dim com As SqlCommand = New SqlCommand("SELECT * FROM Demo_Theatre_DB WHERE ID=@ID", sqlConn)

sqlConn.Open()

Dim r As SqlDataReader = com.ExecuteReader()

While r.Read()

StartTimeTextBox.Text = r("StartTime")

EndTimeTextBox.Text = r("EndTime")

CompanyNameTextBox.Text = r("CompanyName")

PurposeTextBox.Text = r("Purpose")

AccountManagerTextBox.Text = r("AccountManager")

PresenterTextBox.Text = r("Presenter")

ColorDDL.SelectedValue = r("ColorCode")

StatusRadioButtonList.SelectedValue = r("Status")

CommentTextBox.Text = r("Comments")

End While



I hope someone can help me with this.



Your help will be appreciated.



Thanks!