CÓDIGO SQL PERCORRER TABELA ATÉ ENCONTRAR REGISTRO

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

CÓDIGO SQL PERCORRER TABELA ATÉ ENCONTRAR REGISTRO

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#490785 - 16/10/2019 18:34:03

IVANPI
GUAPIARA
Cadast. em:Janeiro/2017


Última edição em 16/10/2019 18:34:29 por IVANPI

Olá pessoal!!!

Tenho um código SQL abaixo, que teoricamente deve percorrer toda a tabela até encontrar um registro com as especificações, que seriam, um Código_Aluno, e se está Ativo, e se aparecer essas duas combinações, queria por exemplo, que aparecesse uma msgbox dizendo que o aluno já está cadastrado e está ativo e saísse da rotina, como se fosse uma restrição para deixar lançar novamente um aluno já ativo numa determinada Tabela de fato, só lançaria se Ativo estiver igual a False:

   ConnectDB
      rs.Open "SELECT * FROM Tabela WHERE Codigo_Aluno=" & intCod_Aluno & " AND Ativo= True ", db, 3, 3
         Do Until rs.EOF
            "AQUI QUE ESTOU EM DÚVIDA" como fazer para que o dado apareça, pensei em usar uma Listview para carregar os dados, mas queria verificar outra maneira, sem depender dessa Listview
            rs.MoveNext
         Loop
   FechaDB

O intCod_Aluno é uma variável do tipo integer que armazena o código do aluno.

Desde já muito agradecido.

Ivan Jpi




Resposta escolhida #490787 - 16/10/2019 19:03:08

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


Membro da equipe
Se código do aluno é único, o retorno será sempre um registro apenas, portanto desnecessário fazer um loop. Para exibir dados de um registro, use a sintaxe recordset!nome_do_campo, mais ou menos assim:

Msgbox.show(rs.Nome_Aluno & " está ativo")


_______________________________________________________________________
Virei Oráculo!
The end is nigh, be ready for the nukes!


#490788 - 16/10/2019 19:31:59

IVANPI
GUAPIARA
Cadast. em:Janeiro/2017


Citação:
:
Se código do aluno é único, o retorno será sempre um registro apenas, portanto desnecessário fazer um loop. Para exibir dados de um registro, use a sintaxe recordset!nome_do_campo, mais ou menos assim:

Msgbox.show(rs.Nome_Aluno & " está ativo")



Exactly!!

Funcionou como esperado.

Muito agradecido.

Ivan Jpi



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


Tópico encerrado, respostas não sao permitidas
Encerrado por IVANPI em 16/10/2019 19:32:26