Case When em Query

[asimoes]

Funcionando com o OleDb da Ads

Então pode usar IIF e CASE WHEN

Código: Selecionar todos

cSql := "SELECT APC.NOME, "
cSql += "CASE APC.SEXO " 
cSql += "WHEN 'M' THEN 'Masculino' "
cSql += "WHEN 'F' THEN 'Feminino' "
cSql += "ELSE 'Indefinido' "
cSql += "END AS SEXO "
cSql += "FROM "
cSql += "CADASTROSOCIOS APC"

oBS.: 2 segundos para executar e mostrar o resultset e é DBF

[JoséQuintas]

Esse ADS 11 está melhor do que o 7 que eu usava nos tempos do VB6.
Naquele tempo nem existia sub-query, e acho que nem isso.

Sabe o que lembrei?
O Harbour tem LIB pra usar ADS.
Se der todos esses recursos, sem precisar nada adicional, pode ser interessante.

E também tem a SQLMIX como opção usando ODBC.

De repente as opções se multiplicaram.
Estamos redescobrindo o Harbour e outras ferramentas.... rs