WebBuscador CODIGO SERVICE

Dim strConn$ = ConfigurationManager.ConnectionStrings("dbBuscadorConn").ConnectionString
    Public objConn As New Data.SqlClient.SqlConnection(strConn)

    Public Sub Conexion()

        If objConn.State = Data.ConnectionState.Closed Then objConn.Open() : Exit Sub
        If objConn.State = Data.ConnectionState.Open Then objConn.Close()

    End Sub

    <WebMethod()>
    Public Function BuscarFraseExacta(ByVal argCadena$) As Data.DataSet

        Dim hrvrDataAdapt As Data.SqlClient.SqlDataAdapter
        Dim hrvrCmdParametrizado As New Data.SqlClient.SqlCommand
        Dim hrvrPrmCadena As New Data.SqlClient.SqlParameter

        Dim hrvrDs As New Data.DataSet

        Conexion()

        hrvrCmdParametrizado = New Data.SqlClient.SqlCommand("ConsultaPorTema", objConn)
        hrvrCmdParametrizado.CommandType = Data.CommandType.StoredProcedure

        hrvrPrmCadena = hrvrCmdParametrizado.Parameters.Add("@prmhrvrTema", Data.SqlDbType.VarChar)
        hrvrPrmCadena.Direction = Data.ParameterDirection.Input
        hrvrPrmCadena.Value = argCadena

        hrvrDataAdapt = New Data.SqlClient.SqlDataAdapter(hrvrCmdParametrizado)
        hrvrDataAdapt.Fill(hrvrDs)

        Return hrvrDs

    End Function

    <WebMethod()>
    Public Function BuscarCualquierFrase(ByVal argCadena$) As Data.DataSet

        Dim hrvrDataAdapt As Data.SqlClient.SqlDataAdapter
        Dim hrvrCmdParametrizado As New Data.SqlClient.SqlCommand
        Dim hrvrPrmCadena As New Data.SqlClient.SqlParameter

        Dim hrvrDs As New Data.DataSet

        Conexion()

        hrvrCmdParametrizado = New Data.SqlClient.SqlCommand("ConsultaPorDescripcion", objConn)
        hrvrCmdParametrizado.CommandType = Data.CommandType.StoredProcedure

        hrvrPrmCadena = hrvrCmdParametrizado.Parameters.Add("@prmhrvrDescripcionURL", Data.SqlDbType.VarChar)
        hrvrPrmCadena.Direction = Data.ParameterDirection.Input
        hrvrPrmCadena.Value = argCadena

        hrvrDataAdapt = New Data.SqlClient.SqlDataAdapter(hrvrCmdParametrizado)
        hrvrDataAdapt.Fill(hrvrDs)

        Return hrvrDs

    End Function

End Class