Listibox e DAo

[sara81it]

Ciao a tutti,
devo caricare un recordset da Vb con la modalità Dao in una listview
dal momento che unal ist bozx non mi permette l'incolonnamento.

ho letto che è possibile farlo, ma non non viene mai scritto come farlo in Dao.
Qualcuno mi dice come posso incolonnare correttamente i campi del db nella list view.


io non sono memmeno riuscita a caricare i dati!!

grazie
Sara

[Markho]

scorri tutti i dati del recordset e li assegni alla listbox in questo modo:

With ListBoxPippo
.ListItems.Add i + 1, , RsetLeggi!campo1
.ListItems(i + 1).SubItems(1) = RsetLeggi!campo2
.ListItems(i + 1).SubItems(2) = RsetLeggi!campoX
End With

.MoveNext

i assume il valore progressivo di ogni record che scorri (in pratica è il numero di riga)

[sara81it]

scusa non ho capito se il codice che mi hai dato è per la listbox o per la listview. e poi è in Dao?

grazie
sara

[Markho]

ops, si è per una listview, con il dao devi aprire il recordset,s correrlo e assegnare le variabili alla listview...

[sara81it]

scusa ma per me sono cose nuove...come assegno i valori del recordset in Dao alla listview?

[Markho]

'questo legge dal db e assegna a uda list, come serve a te

Private Sub Form_Load()

Dim dbsbiblio As Database
Dim rsetProva As Recordset
Dim i As Long


Set dbsbiblio = OpenDatabase("biblio.mdb")
Set rsetProva = dbsbiblio.OpenRecordset("Authors")

With ListProva.ColumnHeaders
.Add , , "Autore", 1000
.Add , , "ID", 1000
End With

ListProva.View = lvwReport


With rsetProva

For i = 0 To .RecordCount - 1
With ListProva
.ListItems.Add i + 1, , rsetProva!Author
.ListItems(i + 1).SubItems(1) = rsetProva!Au_ID
End With

.MoveNext
Next i
End With

rsetProva.Close
dbsbiblio.Close

End Sub





fammi sapere se hai altri casini

ciao

[sara81it]

Ho cambiato così il codice:



Option Explicit

Private Sub Form_Load()

Dim dbsbiblio As Database
Dim rsetProva As Recordset
Dim i As Long


Set dbsbiblio = OpenDatabase("C:\Documents and Settings\Administrator\Desktop\db1.mdb")
Set rsetProva = dbsbiblio.OpenRecordset("Pippo")

With Listprova.ColumnHeaders
.Add , , "Nome", 1000
.Add , , "Cognome", 1000
.Add , , "Telefono", 1000
End With

Listprova.View = lvwReport


With rsetProva

For i = 0 To .RecordCount - 1
With Listprova
.ListItems.Add i + 1, , rsetProva!Pippo
.ListItems(i + 1).SubItems(1) = rsetProva!Au_ID
End With

.MoveNext
Next i
End With

rsetProva.Close
dbsbiblio.Close

End Sub





Pippo= nometabella
listprova= listview




ma mi da un errore nella prima istruzione dopo il with.

dice elemento non trovato nell'insieme

mi puoi spiegare le variabili per favore?

grazie mille
Sara

[xegallo]

volete imparare a scrivere il codice ca##o
saibal ci avrà perso ber 3 minuti a fare i tag code usateli
prima del codice [xcode] dopo il codice [/xcode] scriveteli senza x

[Markho]

non usare un with dentro un altro with, potrebbe fare casini, hai inserito il listview ListProva?

[Markho]

un'altra cosa:

.ListItems.Add i + 1, , rsetProva!Pippo

"Pippo" deve essere un nome di una colonna valido
tu hai lasciato la riga
.ListItems(i + 1).SubItems(1) = rsetProva!Au_ID
"Au_ID" esiste nella tua tabella ???


per il with nidificato che ti dicevo prima nn ci dovrebbero essere problemi, mi sono confuso...