VB6 List box

xina12

Power Member
Oi pessoal. tenho um grande problema.
eu estou a criar um programa que começa logo com um ecra de login.
e nesse ecra gostava de facilitar o trabalho aos utilizadores.
ou seja. em vez de eles estarem sempre a escrever o seu nickname eu queria que o nickname de todos aparecesse numa listbox. o problema é que eu guardo os nickname's numa base de dados em access e não consigo apresenta-los na list box!
Alguem me pode ajudar?
agradecia mmo mto
 
Não sei como trabalham BDs Access. Como é que vais buscar os dados?
Se conseguires fazer um query que te devolve a lista de utilizadores, é só fazeres um ciclo de AddItems na Listbox para cada linha da tabela resultante do query.
 
Não te esqueças de colocar a listbox como report nas propriedades senão a função columnheaders.add não funciona.

Basicamente tens que ter um recordset e uma connection:

Código:
Dim Mycnn as ADODB.Connection
Dim RecSet as ADODB.Recordset
 
Set MyCnn = new ADODB.Connection
MyCnn.open "blablaconnectionstring"
 
 
Listview1.Columnheaders.add ,,"Nome Utilizador"
 
Set recset= new recordset
recset.open "SqlQuery",MyCnn,AdLockOpenForward,AdlockReadonly
 
Do until recset.eof
listview.listitems.add ,,recset!Campo
recset.movenext
 
 
 
loop
 
Set recset=nothing
set mycnn=nothing

É possível que falhe qualquer coisa isto é só para ajudar,mas é algo do genero.
Não te esqueças também de adicionar nos componentes o controlo para poder usar o ADO.


Fica bem.
 
Última edição pelo moderador:
Back
Topo