Dúvida com Select Case

[Gustavo Moraes]

Ae to fazendo uma busca, e to usando Select case, mas não sei porque o unico case que funciona é o primeiro, os outros ele não "lê"

segue o codigo:

Select Case busca
case var_categoria <> "Informe a categoria" And var_tipo <> "Tipo de Negócio" And var_local <> "Informe a cidade"
sql = "SELECT * FROM cadastro WHERE categoria = '"& var_categoria &"' AND tipo = '"& var_tipo &"' AND cidade = '"& var_local &"'"

case var_categoria <> "Informe a categoria" And var_tipo <> "Tipo de Negócio" And var_local = "Informe a cidade"
sql = "SELECT * FROM cadastro WHERE categoria = '"& var_categoria &"' AND tipo = '"& var_tipo &"'"

case var_categoria <> "Informe a categoria" And var_tipo = "Tipo de Negócio" And var_local <> "Informe a cidade"
sql = "SELECT * FROM cadastro WHERE categoria = '"& var_categoria &"' AND cidade = '"& var_local &"'"

case var_categoria = "Informe a categoria" And var_tipo <> "Tipo de Negócio" And var_local <> "Informe a cidade"
sql = "SELECT * FROM cadastro WHERE tipo = '"& var_tipo &"' AND cidade = '"& var_local &"'"

case var_categoria <> "Informe a categoria" And var_tipo = "Tipo de Negócio" And var_local = "Informe a cidade"
sql = "SELECT * FROM cadastro WHERE categoria = '"& var_categoria &"'"

case var_categoria = "Informe a categoria" And var_tipo <> "Tipo de Negócio" And var_local = "Informe a cidade"
sql = "SELECT * FROM cadastro WHERE tipo = '"& var_tipo &"'"

case var_categoria = "Informe a categoria" And var_tipo = "Tipo de Negócio" And var_local <> "Informe a cidade"
sql = "SELECT * FROM cadastro WHERE cidade = '"& var_local &"'"

Case else
sql = "SELECT * FROM cadastro"
End Select 

exe.Open sql, conexao, , , adCmdText

valeu ae!!!

[modernel]

Rapaz,

primeiramente você está utilizando a estrutura SELECT CASE de forma errada , segue abaixo a sintaxe:

SELECT CASE <variavel>

CASE <Valor para a 'variavel'>

(IMPLEMENTACAO DA SITUACAO 1)

CASE <Valor para a 'variavel'>

(IMPLEMENTACAO DA SITUACAO 2)

CASE ELSE

(IMPLEMENTACAO DA SITUACAO 3)

END SELECT

Para atender de forma correta lhe aconselho a utilizar a estrutura de condicao:

If (var_categoria <> "Informe a categoria") And (var_tipo <> "Tipo de Negócio") And (var_local <> "Informe a cidade") Then

      sql = "SELECT * FROM cadastro "
      sql = sql & "WHERE categoria = '"& var_categoria &"' AND tipo = '"& var_tipo &"' AND cidade = '"& var_local &"'"

ElseIf (var_categoria <> "Informe a categoria") And (var_tipo <> "Tipo de Negócio") And (var_local = "Informe a cidade") Then

      sql = "SELECT * FROM cadastro WHERE categoria = '"& var_categoria &"' AND tipo = '"& var_tipo &"'"

ElseIf (var_categoria <> "Informe a categoria") And (var_tipo = "Tipo de Negócio") And (var_local <> "Informe a cidade") Then

      sql = "SELECT * FROM cadastro WHERE categoria = '"& var_categoria &"' AND cidade = '"& var_local &"'"

ElseIf (var_categoria = "Informe a categoria") And (var_tipo <> "Tipo de Negócio") And (var_local <> "Informe a cidade") Then

      sql = "SELECT * FROM cadastro WHERE tipo = '"& var_tipo &"' AND cidade = '"& var_local &"'"

ElseIf (var_categoria <> "Informe a categoria") And (var_tipo = "Tipo de Negócio") And (var_local = "Informe a cidade") Then

      sql = "SELECT * FROM cadastro WHERE categoria = '"& var_categoria &"'"

ElseIf (var_categoria = "Informe a categoria") And (var_tipo <> "Tipo de Negócio") And (var_local = "Informe a cidade") Then

      sql = "SELECT * FROM cadastro WHERE tipo = '"& var_tipo &"'"

ElseIf (var_categoria = "Informe a categoria") And (var_tipo = "Tipo de Negócio") And (var_local <> "Informe a cidade") Then

      sql = "SELECT * FROM cadastro WHERE cidade = '"& var_local &"'"

Else
      sql = "SELECT * FROM cadastro"

End If

Qualquer dúvida poste novamente.