Newsgroup: it.comp.lang.visual-basic
Titolo: Proprietà listitems e proprietà di un campo field...aiuto!!! Per TUTTI (+ per BORRELLI!!!!) :))

Salve,
certo che dal subject non si capisce neanche quello che voglio ma, non
sapevo come sintetizzare in due parole. Ora spiego tutto. Da vb faccio
una query su un database, hola mia bella ripsota e la piazzo nella
finestra immediata, tutto funziona, se il record c'è vedo quello
giusto, altrimenti il messaggino nessun record. Ok! Il problema mi
sorge ora che voglio mettere la stessa risposta della stessa query,
non più sulla finestra immediata ma in una listview :)) a dire il vero
in parte ci riesco, qualcosa mi è venuta, però non è proprio quello
che vorrei vedere. Con questo codice qua sotto (aspetto sempre
chiarimenti dal buon Borrelli visto che buona parte me l' ha suggerita
lui)
        If .BOF Or .EOF Then
            'Debug.Print "Nessun record."
            txtSql.Text = "Nessun Mp3 trovato!"
        Else
            Do While Not .EOF
            For Each fd In .Fields
                With fd
                'Debug.Print .Name; ": "; .Value
 
                Set lvItem = LswLista.ListItems.Add()
                lvItem.Text = fd.Value
                'lvItem.SubItems(1) = fd.Value
                'lvItem.SubItems(2) = fd.Value
                'lvItem.SubItems(3) = fd.Value
                'lvItem.SubItems(4) = fd.Value
                'lvItem.SubItems(5) = fd.Value
 
trovo  il record giusto, ma con la mia modifica mi va a finire tutto
sotto la stessa colonna!! Che vuol dire? Questo:
Questi sono i capi del mio database e quello che accade:
Titolo		Autore	Album	Genere	Anno	Cd
Feels So Good
Sonique
---
Dance
2000
Mp3 CD #6
invece io volevo che ogni cosa andasse sotto la ripsettiva colonna. Ho
provato a vedere sulla guida se la proprietà value di fd (fd è
definito come field) avesse una sorta di indicizzazione...che ne sò
qualcosa che mi consentiva di associare ai vari Subitems il pezzo
giusto della query (humm si è capita questa ultima frase??) Avevo
scritto:
                'lvItem.SubItems(1) = fd.Value(1)
                'lvItem.SubItems(2) = fd.Value(2)
vabbè, manco a dirlo che mi ha dato subito errore :)) Io sono
arrivato, chi mi da delucidazioni?
Aspetto news, grazie.
Saluti, ciao ciao.

 Saluti, ciao ciao.
p.f. toglimi una curiosita': le ultime due righe sono in firma o le scrivi
ogni volta ? :)

 sotto la stessa colonna!! Che vuol dire? Questo:
I valori dei campi ti si incolonnano perchč per ognuno di questi aggiungi un
nuovo elemento alla lista!
Prova a sostituire il For Each con :
    ' Il primo campo del record č quello che utillizzi per creare la voce
nella lista quindi:
    Set lvItem = LswLista.ListItems.Add()         ' Crei l'elemento
    lvItem.Text = .Fields(0).Value                      ' Gli assegni il
valore del primo campo della Tabella/Query
    ' I campi successivi li inserisci nei SubItems
    For IndiceCampo=1 to  .Fields.Count-1
        lvItem.SubItems(IndiceCampo) = .Fields(IndiceCampo).Value
    Next

 certo che dal subject non si capisce neanche quello che voglio ma, non
sapevo come sintetizzare in due parole. Ora spiego tutto. Da vb faccio una
query su un database, hola mia bella ripsota e la piazzo nella finestra
immediata, tutto funziona, se il record c'č vedo quello giusto, altrimenti
il messaggino nessun record. Ok! Il problema mi sorge ora che voglio mettere
la stessa risposta della stessa query, non piů sulla finestra immediata ma
in una listview :)) a dire il vero in parte ci riesco, qualcosa mi č venuta,
perň non č proprio quello che vorrei vedere. Con questo codice qua sotto
(aspetto sempre chiarimenti dal buon Borrelli visto che buona parte me l' ha
suggerita lui)
Mi dispiace! Ho avuto qualche giornata un po' incasinata!... Sto tentando di
mettermi in pari ma e` un'impresa veramente ardua: per esempio, ho appena
finito di sciropparmi quasi 400 post (non c'e` solo il Bepi Della Bianca ad
aver problemi di sonno ;-) e... ce n'e` un bel po' ai quali vorrei
rispondere ma... "preferisco" andare a lavorare...
Pero`... pero` non mi sembra che il ng ti abbia abbandonato, no? Anzi... Sei
uno dei piu` coccolati inutilizzatori del tasto F1 ;-)))))
Non aspettare news da me, oggi. :-)
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------

Non aspettare news da me, oggi. :-)
Ci avevo già rinuncito :))
Saluti, ciao ciao.

 ma finchè c'è mi stà bene così.
da quella via, facciamo che ne impari un miliardo e una ? :)
MI-L-IARDO
come maliardo, biliardo (strano eh? biglia -> biliardo, come famiglia ->
familiare :))

 rispondo a nome di tutti. a nome di maurizio non oserei mai :))
Cosa ho fatto per meritarmi questo?
--
Ciao :-)
