ASP.NET

Server Application Error
The server has encountered an error while loading an application during the processing of your request. Please refer to the event log for more detail information. Please contact the server administrator for assistance.

<br />
Private Sub GetFruitsCat()<br />
<br />
        Dim objConnection As SqlConnection = New _<br />
            SqlConnection("Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=MyDB;Data Source=MyServer\SQLEXPRESS")<br />
<br />
        objConnection.Open()<br />
<br />
        Dim myCommand As New System.Data.SqlClient.SqlCommand()<br />
        myCommand.Connection = objConnection<br />
<br />
        myCommand.CommandText = "SelectAllTheFruitsCat"<br />
        myCommand.CommandType = CommandType.StoredProcedure<br />
<br />
        Dim param As New System.Data.SqlClient.SqlParameter()<br />
<br />
        <br />
        Dim myAdapter As New SqlDataAdapter(myCommand)<br />
<br />
        myAdapter.Fill(DataSetOfAllTheFruitsCat)<br />
<br />
        <br />
        Dim reader As SqlDataReader = myCommand.ExecuteReader()<br />
        <br />
<br />
        DDLFruitsCat.DataSource = DataSetOfAllTheFruitsCat<br />
<br />
        DDLFruitsCat.DataTextField = "FruitCat"<br />
<br />
        DDLFruitsCat.DataBind()<br />
        <br />
        objConnection.Close()<br />
<br />
    End Sub<br />

<br />
Private Sub GetFruits()<br />
        Dim objConnection As SqlConnection = New _<br />
            SqlConnection("Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=MyDB;Data Source=MyServer\SQLEXPRESS")<br />
<br />
        objConnection.Open()<br />
<br />
        Dim myCommand As New System.Data.SqlClient.SqlCommand()<br />
        myCommand.Connection = objConnection<br />
<br />
        myCommand.CommandText = "SelectASpesificCatFruit"<br />
        myCommand.CommandType = CommandType.StoredProcedure<br />
<br />
        Dim param As New System.Data.SqlClient.SqlParameter()<br />
<br />
<br />
        param = myCommand.Parameters.Add("@FruitCat", _<br />
                                          SqlDbType.NVarChar)<br />
        param.Direction = ParameterDirection.Input<br />
        param.Value = DDLFruitCat.Text<br />
<br />
        Dim myAdapter As New SqlDataAdapter(myCommand)<br />
<br />
        myAdapter.Fill(DataSetOfFruit)<br />
<br />
        Dim reader As SqlDataReader = myCommand.ExecuteReader()<br />
<br />
        DDLFruit.DataSource = DataSetOfFruit<br />
<br />
        DDLFruit.DataTextField = "FruitName"<br />
<br />
        DDLFruit.DataBind()<br />
<br />
        objConnection.Close()<br />
End Sub<br />

<br />
Protected Sub DDLFruitsCat_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DDLFruitsCat.SelectedIndexChanged<br />
        GetFruits()<br />
End Sub<br />