I am putting mydata set in cache and I would like to clear it when I change the selection from the dropdown.right now even if I select different value it won't change. I have to close the application and open it again
Sub BindLetData()
Dim Source As DataView
Source = Cache("MyItemDataSet")
If Source Is Nothing Then
gvProp.PageSize = pageSize.SelectedValue
Dim connectionString As String = ConnectionStrings("ConnectionString").ConnectionString
Dim oOracleConn As OracleConnection = New OracleConnection(connectionString)
oOracleConn.Open()
Dim cmdPropItems As OracleCommand = New OracleCommand()
With cmdPropItems
.Connection = oOracleConn
.CommandText = "ITEMCUSTOMPAGING"
.CommandType = CommandType.StoredProcedure
.Parameters.Clear()
.Parameters.Add(New OracleParameter("p_desc", OracleType.VarChar)).Value = Trim(txtDescription.Text)
.Parameters.Add(New OracleParameter("p_letting", OracleType.DateTime)).Value = ddLetting.SelectedValue
.Parameters.Add(New OracleParameter("p_letting1", OracleType.DateTime)).Value = ddLetting1.SelectedValue
.Parameters.Add(New OracleParameter("i_results", OracleType.Cursor)).Direction = ParameterDirection.Output
End With
Dim adPropItems As New OracleDataAdapter(cmdPropItems)
Dim dsPropItems As New DataSet
adPropItems.Fill(dsPropItems, "PropItems")
If dsPropItems.Tables("PropItems").Rows.Count.ToString = "0" Then
lblView.Visible = False
lblView1.Visible = False
lblView.Text = String.Format("<i>{0} records matched your search keywords.</i>", dsPropItems.Tables("PropItems").Rows.Count.ToString)
Else
lblView.Text = String.Format("<i> Total Records Found : {0} </i>", dsPropItems.Tables("PropItems").Rows.Count.ToString)
End If
Source = New DataView(dsPropItems.Tables("PropItems"))
Cache("MyItemDataSet") = Source
End If
gvProp.DataSource = Source
gvProp.DataBind()
End Sub
Sub BindLetData()
Dim Source As DataView
Source = Cache("MyItemDataSet")
If Source Is Nothing Then
gvProp.PageSize = pageSize.SelectedValue
Dim connectionString As String = ConnectionStrings("ConnectionString").ConnectionString
Dim oOracleConn As OracleConnection = New OracleConnection(connectionString)
oOracleConn.Open()
Dim cmdPropItems As OracleCommand = New OracleCommand()
With cmdPropItems
.Connection = oOracleConn
.CommandText = "ITEMCUSTOMPAGING"
.CommandType = CommandType.StoredProcedure
.Parameters.Clear()
.Parameters.Add(New OracleParameter("p_desc", OracleType.VarChar)).Value = Trim(txtDescription.Text)
.Parameters.Add(New OracleParameter("p_letting", OracleType.DateTime)).Value = ddLetting.SelectedValue
.Parameters.Add(New OracleParameter("p_letting1", OracleType.DateTime)).Value = ddLetting1.SelectedValue
.Parameters.Add(New OracleParameter("i_results", OracleType.Cursor)).Direction = ParameterDirection.Output
End With
Dim adPropItems As New OracleDataAdapter(cmdPropItems)
Dim dsPropItems As New DataSet
adPropItems.Fill(dsPropItems, "PropItems")
If dsPropItems.Tables("PropItems").Rows.Count.ToString = "0" Then
lblView.Visible = False
lblView1.Visible = False
lblView.Text = String.Format("<i>{0} records matched your search keywords.</i>", dsPropItems.Tables("PropItems").Rows.Count.ToString)
Else
lblView.Text = String.Format("<i> Total Records Found : {0} </i>", dsPropItems.Tables("PropItems").Rows.Count.ToString)
End If
Source = New DataView(dsPropItems.Tables("PropItems"))
Cache("MyItemDataSet") = Source
End If
gvProp.DataSource = Source
gvProp.DataBind()
End Sub