Newsgroup: it.comp.lang.visual-basic
Titolo: ListBox e Database

messaggio n°2, il 1° non so per quale motivo non mi appare nel
newsgroup.....
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
- - - - - - - - - - - -
Buongiorno a tutti,
sono un programmatore principiante, ho realizzato solo piccole applicazioni
tipo listbox che cerca un file su HD e lo visualizza in un controllo
immagine o cosette del genere....
Mi accingo a dover (per motivi di lavoro) creare un programmino semplice
semplice (so che è così) che deve tirare su un database composto da una sola
tabella, dentro la quale ci sono tutti i clienti.
Vorrei in pratica tirare dentro un controllo LISTBOX tutto il campo
"RagioneSociale", dopodichè, in alcune TEXTBOX precedentemente create,
appariranno, il telefono, l'indirizzo, il Fax, e tante altre belle cosine
che sono appartenenti allo stesso recordset.
Qualcuno è in grado di aiutarmi?
non sono a conoscenza dei comandi da usare per poter aprire (e chiudere) un
database, sò solo inserirlo in un controllo DATA ed associare le TEXBOX ad
ogni recorset (vi avevo detto che ero principiante...).
Premetto che ho VB6 con SP5 ( [OT] viva l'ADSL!!!).
Grazie a chiunque legga questo messaggio....lodi lodi lodi a chi invece sarà
in grado di aiutarmi...
Ciao e grazie a tutti.
Amos

 ogni recorset (vi avevo detto che ero principiante...).
se usi DAO puoi fare una cosa del genere (dopo aver incluso nei
riferimenti Microsoft DAO 3.x Object Library)
'Dichiari la variabile database
Dim DB As DAO.DataBase
'Dichiari l'oggetto recordset - nel controllo data i due sono mischiati
:)
Dim RS As DAO.RecordSet
'Apri la connessione al DB
Set DB = DAO.OpenDatabase("c:\documenti\Archivio.mdb")
'Apri la tabella Clienti, caricandone tutti i record nel recordset;
'al posto di 'Clienti' avresti potuto mettere una stringa SQL
Set RS = DB.OpenRecordset("Clienti")
'Esegui finché non sei alla fine del recordset
'nota: appena apri un RecordSet ti trovi sul primo record
Do Until RS.EOF
    'La sintassi piů utilizzata per accedere al valore del campo
    Debug.Print RS("NomeCliente")
    'La sintassi completa per accedere al valore del campo
    Debug.Print RS.Fields("NomeCliente").Value
    'Sintassi che non mi piace molto ma funziona...
    Debug.Print RS!NomeCliente
    'Nota che le tre istruzioni precedenti hanno lo stesso effetto;
    'sta a te decidere quale usare
    'Ti sposti al record successivo
    RS.MoveNext
Loop
'Chiudi il recordset
RS.Close
'Liberi la memoria
Set RS = Nothing
'Chiudi la connessione al DB
DB.Close
'Rilasci la memoria
Set DB = Nothing
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
questo dovrebbe essere un buono spunto per iniziare e approfondire
(sull'help c'č questo e molto altro)
Buono studio
Faber
P.S.: occhio che il codice non l'ho scritto nell'IDE, potrebbero esserci
errori

     'sta a te decidere quale usare
la terza e' esclusa se il nome del campo contiene spazi
ciao, a.

 la terza e' esclusa se il nome del campo contiene spazi
uhmmm e se metti il nome del campo fra quadre? (non so, non ho mai
provato...)
Faber


credo che vb si incavoli come un jena.. :))
Ciao
Enrico

 provato...)
non era sintassi di sql ? in vb non mi sembra di averla mai vista.
ma potrei benissimo ricordare male, data l'ora e la giornata pesante...
ciao, a.