INSTRUÇÃO SQL PARA RETORNAR DADOS NA LISTVIEW

 Tópico anterior Próximo tópico Novo tópico

INSTRUÇÃO SQL PARA RETORNAR DADOS NA LISTVIEW

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#479427 - 04/02/2018 13:33:32

IVANPI
GUAPIARA
Cadast. em:Janeiro/2017


Última edição em 04/02/2018 14:09:48 por IVANPI

Boa tarde!

Estou usando a instrução abaixo para que retorne na minha listview funcionários ativos que não sejam professores, mas o mesmo está retornando os professores e os demais funcionários:

  With lvwRelatorio
      If cboProfissao.Text = "OUTROS" Then
         ConnectDB
            rs.Open "select *from tbCadastro Where Profissao <>'" & "PROFESSOR EDUCAÇÃO BÁSICA I" & "' and Ativo=" & 1 & " OR Profissao <>'" & "PROFESSOR EDUCAÇÃO BÁSICA II" & "' and Ativo=" & 1 & " order by Nome", db, 3, 3
               Do Until rs.EOF
                   Set Item = lvwRelatorio.ListItems.Add(, , rs(0))
                   For i = 1 To rs.Fields.Count - 1
                     Item.SubItems(i) = Empty & rs(i)
                     Item = Empty & Format(rs!Codigo, "0000")
                   Next
                   rs.MoveNext
               Loop
               'Colorirlst
         FechaDB
      End If
    End With


O Ativo se for igual a 1, então ele é funcionário lotado na escola, se na tbCadastro a coluna Ativo estiver igual a 0, então ele não é lotado em nossa escola.

Tenho outras profissões cadastradas na coluna Profissão: servente, diretor, merendeira rural, etc.

Quando eu escolher na combobox "OUTROS", preciso que retorne somente as demais profissões que não sejam PROFESSOR EDUCAÇÃO BÁSICA I ou PROFESSOR EDUCAÇÃO BÁSICA II, mas a instrução tá retornando tudo junto.

Alguém poderia verificar onde está o erro na instrução?

Desde já agradeço.




Resposta escolhida #479429 - 04/02/2018 14:20:09

ALVAROVB2009
GUARULHOS
Cadast. em:Maio/2009


if combobox = "Outros" then
select *from tbCadastro
Where ativo = 1 and (Profissao <> '" & "PROFESSOR EDUCAÇÃO BÁSICA I" & "' and Profissao <> '" & "PROFESSOR EDUCAÇÃO BÁSICA II") order by Nome"

Acho que isso resolve o seu problema, pois dentro dos parentes estão as condições para que traga a informação, tem que ser diferente das profissões de professor, da forma que vc colocou, aquele OR trazia todas as informação porque o que vc pediu vou uma condição ou outro ou seja?
PROFESSOR EDUCAÇÃO BÁSICA I é igual PROFESSOR EDUCAÇÃO BÁSICA I , porém
PROFESSOR EDUCAÇÃO BÁSICA I é diferente de PROFESSOR EDUCAÇÃO BÁSICA II, razão de trazer a informação PROFESSOR EDUCAÇÃO BÁSICA I

Assim como para o outro professor PROFESSOR EDUCAÇÃO BÁSICA II


Da forma que eu coloquei ele vai comparar a profissão com as duas cláusulas e só vai trazer se for diferente

Tenta ai qqer coisa estamos aqui para ajudar


Teoria é quando se sabe tudo, e nada funciona. Prática e quando tudo funciona e ninguém sabe porque.
"Aquele que quer aprender gosta que lhe digam quando esta errado;
só o tolo não gosta de ser corrigido -"Prov.12:1


#479431 - 04/02/2018 16:05:40

IVANPI
GUAPIARA
Cadast. em:Janeiro/2017


Citação:
:
if combobox = "Outros" then
select *from tbCadastro
Where ativo = 1 and (Profissao <> '" & "PROFESSOR EDUCAÇÃO BÁSICA I" & "' and Profissao <> '" & "PROFESSOR EDUCAÇÃO BÁSICA II") order by Nome"

Acho que isso resolve o seu problema, pois dentro dos parentes estão as condições para que traga a informação, tem que ser diferente das profissões de professor, da forma que vc colocou, aquele OR trazia todas as informação porque o que vc pediu vou uma condição ou outro ou seja?
PROFESSOR EDUCAÇÃO BÁSICA I é igual PROFESSOR EDUCAÇÃO BÁSICA I , porém
PROFESSOR EDUCAÇÃO BÁSICA I é diferente de PROFESSOR EDUCAÇÃO BÁSICA II, razão de trazer a informação PROFESSOR EDUCAÇÃO BÁSICA I

Assim como para o outro professor PROFESSOR EDUCAÇÃO BÁSICA II


Da forma que eu coloquei ele vai comparar a profissão com as duas cláusulas e só vai trazer se for diferente

Tenta ai qqer coisa estamos aqui para ajudar



Certinho só adaptei, porque com o parêntese tava dando erro, ficou assim:

rs.Open "Select *from tbCadastro Where Ativo =" & 1 & " and Profissao <> '" & "PROFESSOR EDUCAÇÃO BÁSICA I" & "' and Profissao <> '" & "PROFESSOR EDUCAÇÃO BÁSICA II" & "'  order by Nome", db, 3, 3

Obrigado!



#479435 - 04/02/2018 19:30:08

ALVAROVB2009
GUARULHOS
Cadast. em:Maio/2009


blz, agora senão tiver mais alguma duvida qto a esse tópico, encerra ele



Teoria é quando se sabe tudo, e nada funciona. Prática e quando tudo funciona e ninguém sabe porque.
"Aquele que quer aprender gosta que lhe digam quando esta errado;
só o tolo não gosta de ser corrigido -"Prov.12:1


 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por IVANPI em 05/02/2018 00:14:55