-- =============================================-- Author:rajesh-- Create date: 6th Nov 2008-- Description: this SP is to find the keyword used to do search.-- =============================================IF EXISTS (SELECT * FROM sysobjects WHERE id = object_id('JAU_SP_Getkeyword')) DROP PROCEDURE JAU_SP_GetkeywordGOCREATE PROCEDURE JAU_SP_Getkeyword( @piMemberID INT) ASBEGIN select sTitle from JAU_Favouritesearch Group by sTitleENDGO
'function made by rajesh for search Public Function findkeyword() As DataSet Dim objDBManager As New commonlib.Common.DBManager(ConfigurationManager.ConnectionStrings("ConnectionString").ConnectionString) Dim keywordresult As New DataSet Dim sSQL As String = "JAU_SP_Getkeyword" Dim p(0) As SqlParameter Try p(0) = New SqlParameter("@piMemberID", _iMemberID) keywordresult = Objdbmanager.ExecuteDataSet(CommandType.StoredProcedure, sSQL, p) Dim str As String = Objdbmanager.ErrorMessage Return keywordresult Catch ex As Exception ex = Nothing End Try End Function
Protected _iMemberID As IntegerPublic Property memberID() As Integer Get Return _iMemberID End Get Set(ByVal value As Integer) _iMemberID = value End Set End Property
Dim objsearch As New Search /*Search here is class file name*/ /* By Below code you can use the data form the database */ 'code done by rajesh to find keyword Dim dskeyword As DataSet dskeyword = objsearch.findkeyword() Dim keywordtitle As String = Trim(Request.QueryString("Text")) For i As Integer = 0 To dskeyword.Tables(0).Rows.Count - 1 Dim str As String = Trim(dskeyword.Tables(0).Rows(i).Item(0)) If str = keywordtitle Then linkfav.Visible = False End If Next