Gente alguém tem a paciência de me explicar como funciona o comando IIF???? É que como eu já falei estou começando no VB, estou estudando alguns códigos, e este comando está aparecendo várias vezes e não estou entendendo o que está acontecendo.

 

Sou principante, por favor tenham paciência.

Rafael Portal

Digamos que você precise atribuir um determinar valor a uma variável, dependendo do conteúdo de outra (inseri um valor ou outro). Neste caso, pode-se utilizar o comando IIF.

Sintaxe:

IIF([Condição], [Valor Verdadeiro], [Valor Falso]).

 

Este comando retornará [Valor Verdadeiro] no caso da [Condição] ser verdadeira ou [Valor Falso] no caso da [Condição] ser falsa.

 

Ex:

Dim iX as Integer, sRet as String

iX = 3

sRet = IIF(X > 1, "X é maior que 1", "X é menor ou igual a 1")

 

Depois disso, sRet conterá a String "X é maior que 1".

 

T+

IIF funciona do mesmo modo do If só que de forma diferente

 

Sintaxe: IIf(Expressão,True,False)  Sei, Sei Até o VB diz isso...

 

mas Ok vamos ao que interesa:

 

Iff retorna o valor indicado baseando em uma condição satisfeita ou não

 

Dim Sexo as String,NomeSexo as String

Sexo="M"

NomeSexo= IIF(Sexo="M","Masculino","Feminino")

Msgbox NomeSexo

 

Sacou?

QQ coisa me adiciona no msn....

Tudo bem gente, entendi da forma que vces explicaram, mas este exemplo está dificultando meu entendimento, aqui está uma rotina bem simples de consulta consegui entender facilmente a rotina mas ainda não entendi direito o que acontece quando está sendo utilizado o comando IIF:

 

Dim intCodigo As Integer
    intCodigo = InputBox("Digite o Código", "Consulta")
   
    sSql = "Select * from Pessoal Where Codigo = " & intCodigo & ""
    AbreBanco (sSql)
    If Rs.RecordCount = 0 Then
            MsgBox "Código Inválido", vbExclamation, "Erro"
        Else
            frmAgenda.lblCod = Rs!codigo
            frmAgenda.txtNome = IIf(IsNull(Rs!nome), Empty, Rs!nome)
            frmAgenda.txtEnd = IIf(IsNull(Rs!Endereco), Empty, Rs!Endereco)
            frmAgenda.txtFone = IIf(IsNull(Rs!Fone), Empty, Rs!Fone)
        End If
 Rs.Close

 

Acho que agora eu deixei explícito o que eu não estou entendendo, agradeço mesmo pela paciência de vces, estou tendo dificuldades, espero que consigam me ajudar.

 

 

Obs.: Elédio Junior, aqui pelo menos agora eu não posso utlizar msn desculpe mas eu peço para que me ajude aqui pelo forum mesmo, muito obrigado.

Rafael Portal

Cara tente pegar alguns livros de Vb e Linguagem SQL para vc dar uma estudada, bom é o seguinte:

 frmAgenda.txtNome = IIf(IsNull(Rs!nome), Empty, Rs!nome)

se o campo nome da tabela pessoal for nulo então o campo TxtNome recebe vazio se não ele recebe o valor do campo nome da tabela.

Bom tentarei ser mais claro.

IsNull - É Nulo

Empty - Vazio

Então, se nome igual a nulo então campo recebe vazio se não recebe o valor gravado na tabela.

 

T+

A sim agora deu para entender, valeu mesmo João... O problema é o seguinte eu estou fazendo técnico em informática, estout terminando o curso, e só aprendi Delphi mas aqui na empresa aonde estou trabalhando eu estou utilizando Visual Basic a questão é que estou tendo problemas para migrar do Delphi para o VB, por isso que estou fazendo estas perguntas ok? Desculpa, mas eu agradeço mesmo pela ajuda, apropósito já estou providenciando livros de VB e de linguagem Sql.

 

Obrigado por tudo!

Rafael Portal