[VB6] ListBox e record

[Goodie]

ciao a tutti, vorrei sapere come è possibile mettere in una listbox il contenuto di una tabella (i vari record, magari separati da uno spazio). Sulla prima riga vorrei che apparisse nella listbox il primo record...sulla seconda il secondo record ecc...fino alla fine. Grazie

[alka]

Dimentichi sempre di indicare il linguaggio... :rollo:

[Goodie]

ok visual basic 6! scusate se me lo dimentico sempre

[mgmg]

Questo scrive l'intero contenuto dei campi del record nella listview

Do Until rs.EOF
For Each fld In rs.Fields
stringa1 = stringa1 & " " & rs(fld.Name)
'Debug.Print stringa1
Next
List1.AddItem stringa1
stringa1 = ""
rs.MoveNext
Loop

Ciao

[Goodie]

GRAZIEEEEEEE tantissimo mgm...volevo chiederti solo alcune cose per quanto riguardo il codice che hai scritto:
fld ---> cos'è?
cosa devo dichiarare come variabili?
il mio form è composto da un richbox e da un data1 e da un pulsante per visualizzare i dati
Nel database invece vi sono 2 colonne, esempio Nome e Cognome.
Grazie

[mgmg]

Devi dichiarare:

Dim Fld as Field
Dim Stringa1 as String

rs è il tuo recordset che dovrai aprire sulla tabella o con stringa di selezione. Non ho scritto l'open del recordset perchè non so se usi DAO o ADO.
Ciao

[Goodie]

Ancora ho gravi problemi per quanto riguarda il listbox.
Vi spiego cosa ho fatto:
Ho un database che è formato da 2 tabelle e in access ho messo l'indice sulla colonna "Descrizione"
fatto questo mi dirigo verso visual basic 6...apro il form..metto data1 (setto il database access-97,Recorsource Tabella1)..metto il listbox1..poi metto un pulsantino così quando clikko mi dovrebbe comparire tutto quanto. Bene faccio doppio click sul pulsantino e si apre la funzione e ci scrivo quanto segue

Dim Fld as Field
Dim Stringa1 as String
Do Until Data1.Recordset.EOF
For Each fld In Data1.Recordset.Fields
stringa1 = stringa1 & " " & Data1.Recorset(fld.Name)
'Debug.Print stringa1
Next
List1.AddItem stringa1
stringa1 = ""
Data1.Recordset.MoveNext
Loop

mi da diversi errori... prima di tutto sul NEXT 7° Riga..poi mi dice che data1.Recordset.Fileds non esiste...poi ho provato a fare una ricerca con Data1.Recordset.Index = "Descrizione" e mi dice metodo non supportato...boh...qualcuno mi può aiutare? Me lo può scrivere un programma funzionante su una piccola tabella di 2 colonne? Grazie

[mgmg]

...fatto questo mi dirigo verso visual basic 6...apro il form..metto data1 (setto il database access-97,Recorsource Tabella1

Dovresti controllare nelle proprietà del data1:
Connect = Access
DatabaseName =



Se hai solo un form in generale(dichiarazioni) scrivi:
Private Db As Database

A Form_Load :
NomeDB = c:\miodb.mdb
Set Db = OpenDatabase(NomeDB, False, False, Pass)
Set Data1.Recordset = DbNow.OpenRecordset("select * from tabella")
Data1.Recordset.LockEdits = False

Quando click sul pulsantino:
Dim Fld as Field
Dim Stringa1 as String
Do Until Data1.Recordset.EOF
For Each fld In Data1.Recordset.Fields
stringa1 = stringa1 & " " & Data1.Recorset(fld.Name)
'Debug.Print stringa1
Next
List1.AddItem stringa1
stringa1 = ""
Data1.Recordset.MoveNext
Loop

Controlla anche in Progetto Riferimenti di aver selezionato la libreria: Microsoft DAO 3.6 Object Library (dao36.dll)

Spero sia chiaro, ciao

[Goodie]

FUNZIONAAAAAAAAAAAAAAAAAAAA..... GRAZIEEEEEEEEEEEEEEEEEE

ps. ho dovuto eliminare un paio di righe...ma funziona benissimo..grazie sei un grande di VB...

ps. ti posso chiedere un'altra cosa? sto provando a far girare un programma che ho scritto su una macchina dove c'è installato windows 98...e parte tutto...l'ho esportato in exe e l'ho messo su una macchina dove c'è windows xp e mi da questo errore "impossibile far girare il programma in non modal mode...ecc..ec.." non l'ho mica capito..che cos'è? Grazie

[Goodie]

e se io volessi farlo con delle colonne? ho visto che bisogna utilizzare Listview...ma se io ho una tabella fatta di 3 colonne come si fa(dichiarazioni e istruzioni di inserimento..)? Grazie mille..