VB6 - VERIFICAR CAMPO NA TB E DAR MSG AO USUARIO

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

VB6 - VERIFICAR CAMPO NA TB E DAR MSG AO USUARIO

VB.NET

 Compartilhe  Compartilhe  Compartilhe
#495878 - 16/12/2020 20:39:12

ROBLEDO
LAJEADO
Cadast. em:Janeiro/2019


Última edição em 03/01/2021 23:29:03 por ROBLEDO

Olá

Estou me batendo em um negócio simples, preciso fazer uma consulta em determinado campo de determinada tabela e informar o usuário se o campo tiver 'Sim' liberar acesso e se tiver 'Não', dar uma mensagem na tela e bloquear acesso. Como faço esse comando?




#495879 - 16/12/2020 21:53:07

EPISCOPAL
VARZEA GRANDE
Cadast. em:Maio/2009


Aqui no forum tem topicos sobrando ...... é so pesquisar ...

vbmania.com.br/index.php?modulo=forum&metodo=abrir&id=474636&pagina=1

bmania.com.br/index.php?modulo=forum&metodo=abrir&id=450323&pagina=1

____________________________________________________________________
Episcopal Studios


#495881 - 16/12/2020 23:46:00

KERPLUNK
RIO GRANDE DO SUL
Cadast. em:Junho/2009


Membro da equipe
Use ADOX

_______________________________________________________________________
Virei Orculo!
The end is nigh, be ready for the nukes!


#495890 - 17/12/2020 15:08:20

RICARDOPIBU
CABO FRIO
Cadast. em:Março/2018


'Não sei se é isso que procura:

'fiz uma txtbox dei o nome de: txtUsuario, e um outra com nome de txtAcesso
'Daí criei uma ListView com nome de: lstAcesso

'no evento Form_Load coloquei esses dados manualmente, que no seu caso deve vim de um banco de dados...
'______________________________________________________________________________________________________

Private Sub Form_Load()
Dim Item As ListItem
Set Item = lstAcesso.ListItems.Add(, , 'Item 1')
    Item.SubItems(1) = 'Ricardo Araujo da Silva'
    Item.SubItems(2) = 'Sim'
Set Item = lstAcesso.ListItems.Add(, , 'Item 2')
    Item.SubItems(1) = 'Marcelo dos Santos Prado'
    Item.SubItems(2) = 'Não'
Set Item = lstAcesso.ListItems.Add(, , 'Item 3')
    Item.SubItems(1) = 'José Oliveira Cardoso'
    Item.SubItems(2) = 'Sim'
End Sub
'_______________________________________________________________________________________________________

'E no evento ItemClick da ListView, coloquei esse comando:
'_______________________________________________________________________________________________________

Private Sub lstAcesso_ItemClick(ByVal Item As MSComctlLib.ListItem)

If lstAcesso.SelectedItem.SubItems(2) = 'Sim' Then
   txtUsuario = lstAcesso.SelectedItem.SubItems(1)
   txtAcesso = 'Acesso Permitido'
Else
   MsgBox 'Você não tem permissão de acesso!', vbInformation, 'Acesso'
   txtUsuario = ''
   txtAcesso = ''
End If

End Sub
'_______________________________________________________________________________________________________







Cursos de Excel e VB6:
cursoexcelvba.com.br


#495914 - 22/12/2020 17:00:54

ROBLEDO
LAJEADO
Cadast. em:Janeiro/2019


Citação:
:
'Não sei se é isso que procura:

'fiz uma txtbox dei o nome de: txtUsuario, e um outra com nome de txtAcesso
'Daí criei uma ListView com nome de: lstAcesso

'no evento Form_Load coloquei esses dados manualmente, que no seu caso deve vim de um banco de dados...
'______________________________________________________________________________________________________

Private Sub Form_Load()
Dim Item As ListItem
Set Item = lstAcesso.ListItems.Add(, , 'Item 1')
    Item.SubItems(1) = 'Ricardo Araujo da Silva'
    Item.SubItems(2) = 'Sim'
Set Item = lstAcesso.ListItems.Add(, , 'Item 2')
    Item.SubItems(1) = 'Marcelo dos Santos Prado'
    Item.SubItems(2) = 'Não'
Set Item = lstAcesso.ListItems.Add(, , 'Item 3')
    Item.SubItems(1) = 'José Oliveira Cardoso'
    Item.SubItems(2) = 'Sim'
End Sub
'_______________________________________________________________________________________________________

'E no evento ItemClick da ListView, coloquei esse comando:
'_______________________________________________________________________________________________________

Private Sub lstAcesso_ItemClick(ByVal Item As MSComctlLib.ListItem)

If lstAcesso.SelectedItem.SubItems(2) = 'Sim' Then
   txtUsuario = lstAcesso.SelectedItem.SubItems(1)
   txtAcesso = 'Acesso Permitido'
Else
   MsgBox 'Você não tem permissão de acesso!', vbInformation, 'Acesso'
   txtUsuario = ''
   txtAcesso = ''
End If

End Sub
'_______________________________________________________________________________________________________







Entendi teu exemplo, porém no meu caso é tratamento das opções de menu suspenso. Tenho se o módulo é contratado em uma tabela do banco, e quando o usuário clicar na opção do menu, só abriria se o módulo estivesse contratado, senão gostaria de colocar uma mensagem.



#495988 - 03/01/2021 23:28:09

ROBLEDO
LAJEADO
Cadast. em:Janeiro/2019


KERPLUNK poderia me dar um exemplo para o uso do ADOX para o tratamento de opção de menu suspenso?



#495991 - 04/01/2021 11:14:02

KERPLUNK
RIO GRANDE DO SUL
Cadast. em:Junho/2009


Membro da equipe
No link que passei tem vários

_______________________________________________________________________
Virei Orculo!
The end is nigh, be ready for the nukes!


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


Para responder este tópico o login é requerido
Se você já possui uma conta de usuário por favor faça seu login
Se você não possui uma conta de usuário use a opção Criar usuário