Visual Basic 6 - Save in access listbox

Forum - Visual Basic 6 - Save in access listbox - Pagina 2

Pagine: [ 1 2 3 ]

magicolotto (Normal User)
Expert

Messaggi: 338
Iscritto: 21/01/2008

Postato alle 9:29
Giovedì, 20/08/2009

ok perfetto

funziona

adesso se dovrei richiamarla???
inserendo ogni riga in un item diverso?

hemmaus (Normal User)
Pro

Messaggi: 96
Iscritto: 15/07/2009

Postato alle 14:40
Giovedì, 20/08/2009

Testo quotato

Postato originariamente da magicolotto:

adesso se dovrei richiamarla???
inserendo ogni riga in un item diverso?

SCUSA MA E' PIU' FORTE DI ME: SE DOVESSI, non è difficile generalmente il se richiede la doppia s.

Come risolvere:

Recupera i dati dal DB.
Controlla con un FOR e con la funzione MID quando c'è il # quindi prendi la parte iniziale e la immagazzini nella listbox.

Chiaro ?

magicolotto (Normal User)
Expert

Messaggi: 338
Iscritto: 21/01/2008

Postato alle 15:36
Venerdì, 21/08/2009

ok capito

che figura :rotfl:

ok quindi??? piccolo esempio?

hemmaus (Normal User)
Pro

Messaggi: 96
Iscritto: 15/07/2009

Postato alle 11:29
Domenica, 23/08/2009

Ciao,
lo spirito del forum è aiutare chi è in difficoltà non scrivere per lui il codice.

Leggi il record dal DB singolarmente.

poi per separare i dati, ti mostro il codice per recuperare i campi da inserire nella listbox:

Codice sorgente - presumibilmente VB.NET

'Questa è la variabile che contiene il record che hai estratto dal DB
Dim RecordS as String 
Dim I,G as integer
G=1
 
For I=1 to Len(RecordS)
 
   If Mid(RecordS,I,1)="#" then 
     list1.additem Mid(recordS,G,I-1)
     G=I+1
   End IF
 
Next I

Testalo perchè l'ho scritto di getto.
Ciao.

magicolotto (Normal User)
Expert

Messaggi: 338
Iscritto: 21/01/2008

Postato alle 23:50
Mercoledì, 09/09/2009

grazie tanto per  l'aiuto , ok l'ho provato

funziona  in parte

nella lista  mi riporta

# ad riga...

ed ogni riga  è formata cosi
#1
#1#2#
#1#2#3#
#1#2#3#4#
#1#2#3#4#5#

cioè riporta il valore della riga precedente ..con il nuovo valore

G = 1

For I = 1 To Len(rs("list1").Value)

   If Mid(rs("list1"), I, 1) = "#" Then
     List1.AddItem Mid(rs("list1").Value, G, I - 1)
     Else

     G = I + 1
   End If

Next I

magicolotto (Normal User)
Expert

Messaggi: 338
Iscritto: 21/01/2008

Postato alle 19:55
Domenica, 13/09/2009