Visual Basic 6 - Save in access listbox

For I = 0 To List1.ListCount - 1
sql = "select * from gruppo"
rec.Open (sql), cn, adOpenDynamic, adLockOptimistic
rec.AddNew
   List1.ListIndex = I

  numeri = List1.List(I)

rec.Fields("list1") = numeri


rec.Update


rec.Close

Next I

con questo metodo

mi inserisce ogni riga della lista in un recordset diverso


mentre il mio intento e inserire tutte le righe della lista in un solo recordset
grazie

Ciao non ha molto senso quelle che vuoi fare, facendo come vuoi avrai maggiori problemi nel recupero delle informazioni. Ma se così desideri un motivo ci sarà.

Fai così:

Dim stringa as string

For I = 0 To List1.ListCount - 1 
sql = "select * from gruppo" 
rec.Open (sql), cn, adOpenDynamic, adLockOptimistic 
rec.AddNew 
   List1.ListIndex = I 

  numeri = List1.List(I) 

Stringa=Stringa + " " + numeri 

Next I

rec.Fields("list1") = Stringa
rec.Update 
rec.Close 

Non l'ho provato, ma dovrebbe andare.
Ciao

grazie assai

lo provero' stasera



se dovessi importare invece nella listabox il contenuto del campo?

ciao

mi da errore

" incompatiblita tra tipi "

l'errore di debug me lo da su questa riga


rec.Fields("list1" = stringa

come mai
sara' per l'archivio?

ok corretto

era il db

ho provato il codice

fa bene, inserisce tuto su un recordset
pero inserisce tanti recordset quanti sono le line della list box

in che senso ? i recordset sono valorizzati sempre con gli stessi valori ?
Mi sembra strano.

Prima di fare l'update visualizza il contenuto di stringa in una Textbox, vedi cosa registra.

se scrivesse un solo recordset andrebbe bene

ma lo duplica per quanto sono le righe della lista

ho cercato di scriverla la stesa i diverso modo..ma nulla

da come l'avevi scrita

ho dovuto spostare next i
alla fine
dopo rec.close

per altrimenti dava errore

l'operazione non è consentita se l'oggetto è aperta

pero' spostandolo crea tanti recordset quanti sono le righe della listbox

cmq... sescrivesse un solo recordset andrebbe bene per ora

salvo problemi quando poi dovro' riapopolare la lista dallo stesso recordset
grazie