Armar consulta avanzada con procedimiento almacenado

[Yerim]

Hola, hice este codigo en vb.net el codigo arma una consulta segun los parametros introducidos por el usuario, necesito hacer un procedimiento almacenado que haga lo mismo que este codigo de vb.net:

Código:

  Dim condicion As String
        condicion = ""
        If Trim(nombre1) <> "" Then
            condicion = condicion & "(NOMBRE_C Like '%" & nombre1 & "%')and"
        End If
        If Trim(calle1) <> "" Then
            condicion = condicion & "(CALLE Like '%" & calle1 & "%')and"
        End If
        If Trim(colonia1) <> "" Then
            condicion = condicion & "(COLONIA Like '%" & colonia1 & "%')and"
        End If
        If Trim(poblacion1) <> "" Then
            condicion = condicion & "(POBLACION Like '%" & poblacion1 & "%')and"
        End If
        If Len(condicion) Then
            If Right(condicion, 3) = "and" Then
                condicion = Left(condicion, Len(condicion) - 3)
            End If
        End If

Espero que alguien me pueda echar la mano !!!
Saludos!!!

[Andres95]

Código:

Where  (Case When len(rtrim(@Nombre)) = 0 
             Then 1 
             Else Case When Nombre_C like '%' + @Nombre + '%' 
                       Then 1 
                       Else 0 End) = 1  And
		(Case When len(rtrim(@Calle1)) = 0 
             Then 1 
             Else Case When Calle like '%' + @Calle1 + '%' 
                       Then 1 
                       Else 0 End) = 1

Y lo mismo para los demas parametros...

Saludos!

[Yerim]

Hola, gracias por tu respuesta, pero he podido armar la consulta me manda error en los ()

Espero me puedas ayudar Por favor

create procedure consulta

@Nombre AS VARCHAR(50),
@Calle AS VARCHAR(50),
@Colonia AS VARCHAR(50),
@Carrera AS VARCHAR(50)

AS

SELECT * FROM DatosGenerales
Where (Case When len(rtrim(@Nombre)) = 0
Then 1
Else Case When Nombre_C like '%' + @Nombre + '%'
Then 1
Else 0 End) = 1 And
(Case When len(rtrim(@Calle1)) = 0
Then 1
Else Case When Calle like '%' + @Calle1 + '%'
Then 1
Else 0 End) = 1

[iislas]

Por un (, debe haber un )

Revise esa condicion.

[Andres95]

Una disculpa, me falto un END en la construccion de los CASE..

Tambien todo Case lleva un END... pero se me paso escribirlo.

Código:

Where  (Case When len(rtrim(@Nombre)) = 0 
             Then 1 
             Else Case When Nombre_C like '%' + @Nombre + '%' 
                       Then 1 
                       Else 0 
                       End
             End) = 1  And
		(Case When len(rtrim(@Calle1)) = 0 
             Then 1 
             Else Case When Calle like '%' + @Calle1 + '%' 
                       Then 1 
                       Else 0 
                       End
             End) = 1

Saludos!