Oppure

Loading
21/11/07 21:48
moet
ma infatti inserisco e leggo da database... ma cosa cambia a livello di visualizzazione su listbox ?
aaa
21/11/07 21:53
gius
I database sono divisi in celle quindi é più facile incolonnare
aaa
21/11/07 21:56
moet
questo è il mio codice... leggo da db e inserisco in listbox... ma come incolonnarli bene non saprei come fare... se puoi aiutarmi ! grazie


Private Sub Form_Load()
    stringa = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
    stringa = stringa & App.Path & "\componenti.mdb"
    
    Set cn = New ADODB.Connection
    Set rs = New ADODB.Recordset

    cn.Open stringa
    rs.Open "SELECT * FROM Tabella1", cn, 1

    If rs.EOF Then
        MsgBox "Database VUOTO!", vbExclamation, "HELPDESK"
    Else
        While rs.EOF = False
           
           List1.AddItem rs("Nome") & vbTab & rs("Cognome") & vbTab & rs("Ditta") & vbTab & rs("mansione")

                            
            rs.MoveNext
        Wend
    End If

    Set cn = Nothing
    Set rs = Nothing
End Sub

aaa
21/11/07 21:59
gius
Scusa ma se allarghi tanto le listbox il nome non ti ci entra:D
aaa
21/11/07 22:01
moet
Qui è questione di incolonnare non di farcele stare! ci stanno !!!!!!! eheh:alert:
aaa
21/11/07 23:18
P4p3r0g4
puo creare un effetto stile cella di excel usando i column.
occhio però che ti aggiunge i campi in verticale,
è solo un effetto ottico.
se ad esempio ho 3 campi metto column = 4
e la lunghezza del listbox quanto l'inserimento completo dei valori
poi inserisco tutti gli elementi del 1 campo,poi del 2 poi del 3
l'effetto ottico è creato.
aaa