1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

VB6 List box

Discussão em 'Programação' iniciada por xina12, 24 de Novembro de 2008. (Respostas: 3; Visualizações: 1257)

  1. xina12

    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
     
  2. Kayvlim

    Kayvlim Undefined Moderator
    Staff Member

    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.
     
  3. Jekkaman

    Jekkaman Power Member

    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: 24 de Novembro de 2008
  4. xina12

    xina12 Power Member

    muito obrigado, resultou perfeitamente.
    obrigado
     

Partilhar esta Página