Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Da DataBase a List Box

Sempre io... :-)))
Ciao!
Vorrei creare una LISTBOX da checkare contenente i dati di un CAMPO in un
DATABASE ACCESS2000 in DAO che leggo ad esempio con:
---
SELECT COUNT(*) AS Quanti FROM TABELLA WHERE NOME LIKE '" & MyNome & "' AND
Cognome LIKE '" & MyCognome & "' ", dbOpenSnapshot)
---
Dunque nel list BOX vorrei che vi fossero tutti i numeri di avviamento
postale, ma non doppi, solo i singoli...
21000
21000
21001
21001
Nel list box SOLO  21000 e 21001
Non so i limiti del LISTBOX ma al massimo qui ne avrei un centinaio!
GRAZIE!
-----= Posted via Newsfeeds.Com, Uncensored Usenet News =-----
http://www.newsfeeds.com
 - The #1 Newsgroup Service in the World!
-----==  Over 80,000 Newsgroups - 16 Different Servers! =-----

 ---
apri il recordset (per esempio sull'oggetto rs) con un comando del tipo:
Select Distinct Nome_Campo_CAP From Nome_Tabella Order By Nome_Campo_CAP
ma non usare lo SnapShot, usa magari dbOpenDynamic (ri-vedi la guida)
Poi:
list1.clear
if rs.bof=0 or rs.eof=0 then
    rs.movefirst
    do
        if rs.eof then exit do
        list1.additem rs!Nome_Campo_CAP
        rs.movenext
    loop
end if

 end if
siccome ho molta stima del lupo.....
perchè non usi
do until rs.eof
    list1.additem rs!nome_campo_cap
    rs.movenext
loop
?
Salutoni
un sergio che essendo dipendente tra due minuti va a incartare i pacchettini ;-)

 un sergio che essendo dipendente tra due minuti va a incartare i
pacchettini
ma, va! E io ero convinto che ti fossi regalato il PC a casa.


Urka... "MOSTRO!!!"
ma come potrei fare nel riuscire a trovare queste info...
qui di manuali ne ho ma prima di trovare esempi del genere, faccio prima a
cercarli sul sito comune o chiedere o cercarli direttamente su qualche
VBsearch...
accidenti.... ê che sono "autodidatta".... che è già tanto quel che faccio
ma certe cose proprio NON RIESCO:.. o limiti d'età o .... direi "o"....
:-)))
GRAZIE! provo a piazzarci dentro i dati!
ps: non per chiederti inprivato ma per una domanda che qui sul NG non potrei
fare... se tolgo il "ormairottodaSPam" ti trovo sul 
libero.it
?
CIAO


 fare... se tolgo il "ormairottodaSPam" ti trovo sul 
libero.it
?
No, non va. Scaricati (mi autopromoziono) ESP0DAMA dal Sito Comune (Cerca
database).
Ci troverai un po' di codice per fare anche un po' di pratica, sia in DAO
che in ADO.
Ci troverai anche la mia mail.
Ehm, ..., se si tratta di aiuti su VB, preferisco farlo qui, quando e come
posso.

 > come posso.
Non un piacere ma era per una questione di "$$" nel caso di una bella SQL
incrociata mostruosa... che son sicuro di mai riuscire a fare
personalmente...
nel caso mandami il tuo email ad "apipapip" su hotmail... che fai prima...
sempre che possa interessare... a dipendenza del tuo interesse e dalla
richiesta!
CIAO
riprovo con i vostri ottimi consigli... ma non c'e' F1 che tenga...
accidenti...
GRA e ZIE!


 loop
Fatto... velocissima... passa i suoi 10'000 campi/reocord in un lampo!!
Urka!
Grazie mille anche a te!
Ora provo a capire come usare il check nel select... consuigli benvengano!
(vedi tr sotto)!


 ha scritto

imprimatur ( con l'oggetto printer :)
Private Sub Form_Load()
    Set mainDB = New Connection
    mainDB.CursorLocation = adUseClient
    mainDB.Open sConn("net2.mdb")
    Dim rs As New Recordset
    rs.Open "select area from aree order by area", mainDB,
adOpenStatic, adLockOptimistic
    With rs
        Do While Not .EOF
            cboArea.AddItem !area
            cboUrlArea.AddItem !area
            lstArea.AddItem !area
            .MoveNext
        Loop
        .Close
    End With
    Set rs = Nothing
ciao
un a.p. che essendo dipendente comincia finalmente ora a poter
preparare pacchettini da installazioncine di programmini :)

 personalmente...
Hai troppo poca fiducia in te e, in subordine, nel NG. Prova, no?!
Oppure sei ricchissimo e allora ... approfitterei mooolto volentieri. ;-)