Pagina 1 di 2 1 2 ultimoultimo
Visualizzazione dei risultati da 1 a 10 su 11
  1. #1
    Utente di HTML.it L'avatar di Spyfil
    Registrato dal
    Dec 2001
    Messaggi
    801

    [VB] ListBox

    Premetto che sono ULTRA novizio in VB!
    Sono riuscito a connettermi al mio db e assegnare ad un TextBox il valore di un campo e navigare i record.
    Vorrei riuscire a visualizzare su una ListBox tutti i miei record, è possibile?
    Ho provato ad assegnarli

    Set NomeList.DataSource = Rs

    ma non mi visualizza nulla!!!!
    Non so se sono nemmeno degno di una risposta.. comunque se c'è qualche buon samaritano vi ringrazio!

  2. #2
    devi usare un list box dinamico!

  3. #3
    Utente di HTML.it L'avatar di Spyfil
    Registrato dal
    Dec 2001
    Messaggi
    801
    grz per la risposta.
    Un listbox dinamico è un componente che trovo sulla mia barra componenti o dove?

  4. #4
    Utente di HTML.it L'avatar di junx
    Registrato dal
    May 2004
    Messaggi
    322
    usi ADO o DAO?

  5. #5
    Utente di HTML.it L'avatar di Spyfil
    Registrato dal
    Dec 2001
    Messaggi
    801
    ADO

  6. #6
    Utente di HTML.it L'avatar di junx
    Registrato dal
    May 2004
    Messaggi
    322
    usa una DataList (Progetto>Componenti>Microsoft Data Bound List Controls)

    poi setti le proprietà del controllo così:

    RowSource -> Il controllo ADODC o il Recordset ADO
    ListField -> Il nome del campo da associare

    Ciao.

  7. #7
    Utente di HTML.it L'avatar di Spyfil
    Registrato dal
    Dec 2001
    Messaggi
    801
    GRAZIE 1000! Provo poi mi rifaccio vivo!!

  8. #8
    Prova così
    codice:
    Option Explicit
     Dim mydata As Database
     Dim myrecord As Recordset
    
    Set mydata = OpenDatabase(App.Path + "\" + "tuodatabase.mdb")
        Set myrecord = mydata.OpenRecordset("tuatabella")
        If myrecord.EOF Then
            MsgBox "Nessun Nome in questa tabella!", vbInformation, "Tuo programma"
         Else
           myrecord.MoveFirst
        Do Until myrecord.EOF
            Tuolistbox.AddItem myrecord.Fields("tuocampo")
            myrecord.MoveNext
        Loop
        End If
        mydata.Close
    Se nel tuo campo ci saranno dei nomi nel listbox appariranno tutti i nomi

  9. #9

  10. #10
    Utente di HTML.it L'avatar di Spyfil
    Registrato dal
    Dec 2001
    Messaggi
    801
    GRAZIE A TUTTI!!!!!

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.