REGISTROS EM LABELS

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

REGISTROS EM LABELS

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#17193 - 26/03/2004 13:19:39

USUARIO.EXCLUIDOS

Cadast. em:


Eu gostaria de exibir o tanto de registros que eu tenho em um BD em vrios labels.
Ex.:

Se eu tive 20 nomes de clientes cadastrados, exibir eles todos em um label, um embaixo do outro.

Em asp eu faria assim:

while not rs.EOF

=rs("nome_clientes")
          
rs.MoveNext
wend


Em VB como fao ?


Mto Obrigado,
Luis Henrique



Resposta escolhida #17208 - 26/03/2004 16:01:01

USUARIO.EXCLUIDOS

Cadast. em:


vc coloca um label no seu form com o nome lblNome
na propriedade Index em design time, coloque o valor = 0

no codigo:

dim i as integer
i=0
on error goto trataerro
do
lblNome(i).caption = rs("Nome_clientes").value
i=lblnome.count
load lblnome(i)
lblnome(i).visible=true
lblnome(i).top = lblnome(i-1).top + lblnome(i).height
loop while not rs.eof
Trataerro:




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


Tópico encerrado, respostas não sao permitidas
Encerrado por WEBMASTER em 18/08/2009 10:03:45