REGISTROS EM LABELS
Eu gostaria de exibir o tanto de registros que eu tenho em um BD em vários 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 faço ?
Mto Obrigado,
Luis Henrique
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 faço ?
Mto Obrigado,
Luis Henrique
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:
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 encerrado , respostas não são mais permitidas