Visual Basic 6 - importare un archivio di dati da file

Forum - Visual Basic 6 - importare un archivio di dati da file

Pagine: [ 1 2 3 ]

Aldo (Normal User)
Rookie

Messaggi: 21
Iscritto: 06/11/2006

Postato alle 21:45
Sabato, 02/06/2007

Questo topic è stato chiuso dal moderatore

ciao sono dinuovo quiho collegato il database dela rchivio lotto

e ho le dieci texbox come defo fare per visualizare l'etrazioni ni textbox??
doverei usare il comndo get??

edit by netarrow: sistemato il titolo

Ultima modifica effettuata da netarrow il 19/06/2007 alle 20:43

umberto (Normal User)
Newbie

Messaggi: 19
Iscritto: 04/06/2007

Postato alle 6:46
Giovedì, 07/06/2007

Spiegati meglio...Posso aiutarti solo sel il database è un file di testo.

Ciao

Aldo (Normal User)
Rookie

Messaggi: 21
Iscritto: 06/11/2006

Postato alle 12:49
Giovedì, 07/06/2007

inanzi tutto grazie di avermi risposto non ci speravo piu...
per capire il mio problema è questo che ti spiego
praticamete devo caricare un archivio di etrazioni lotto non importa se in access o testo
poi vorrei che si visualizzano in tutte le textbox e che sono 5x10 e cioè 50 textbox
sto facendo questo perche devo mettere sulla maschera dei texbox, una scrollbar che mi consente scorrere l'archivio di andare sia in avanti e che indietro
spero che mi puio aiutare gazie ancora ...!!

umberto (Normal User)
Newbie

Messaggi: 19
Iscritto: 04/06/2007

Postato alle 21:08
Giovedì, 07/06/2007

Si, la cosa è fattibile :
Ci sono due modi :

1: i dati vengono caricati tutti in memoria sotto forma di matrice ( Pregi: Max velocità per elaborazione - difetti :Consumo memoria )

2: i dati rimangono sul file e caricati passo dopo passo a seconda della visualizzazzione (Pregi nessun consumo della memoria)

per poterti aiutare devroi capire com'è formattato il file

es :
19/9/2006 21,58,36,85,45
65,25,66,33,25

ecc.. ecc.

quindi scrivi la formattazione dell'archivio

Aldo (Normal User)
Rookie

Messaggi: 21
Iscritto: 06/11/2006

Postato alle 11:05
Venerdì, 08/06/2007

ok ...
l'archivio è composto cosi
data estrazione             Ruota    1°estratto    2°estratto    3°estratto    4°estratto    5°estratto    Concorso 05/06/07    BA    09    62    71    44    82    4212
05/06/07    CA    63    60    54    80    03    4212
05/06/07    FI    01    04    54    72    09    4212
05/06/07    GE    21    25    11    87    89    4212
05/06/07    MI    13    02    22    23    30    4212
05/06/07    NA    29    43    73    48    66    4212
05/06/07    PA    71    12    54    56    02    4212
05/06/07    RM    83    52    10    64    76    4212
05/06/07    TO    08    39    87    33    66    4212
05/06/07    VE    56    84    05    33    70    4212
07/06/07    BA    66    78    86    40    38    4213
07/06/07    CA    59    18    44    69    62    4213
07/06/07    FI    59    65    69    87    89    4213
07/06/07    GE    83    22    12    86    63    4213
07/06/07    MI    72    87    71    12    80    4213
07/06/07    NA    69    89    45    20    71    4213
07/06/07    PA    73    26    19    52    22    4213
07/06/07    RM    80    90    35    73    54    4213
07/06/07    TO    22    07    90    78    03    4213
07/06/07    VE    23    49    82    43    21    4213

penso che si capisce

data ruota 1° 2° 3° 4° concorso

Ultima modifica effettuata da Aldo il 08/06/2007 alle 11:23

P4p3r0g4 (Member)
Guru

Messaggi: 1319
Iscritto: 29/12/2006

Postato alle 14:31
Venerdì, 08/06/2007

basta usare gli spazi di ogni riga per dividere i campi e poi scrivere questi campi nei rispettivi vettori.

Aldo (Normal User)
Rookie

Messaggi: 21
Iscritto: 06/11/2006

Postato alle 9:33
Lunedì, 18/06/2007

scusa ma non mi aiuti piu...?
sto aspettando grazie ciaoo

P4p3r0g4 (Member)
Guru

Messaggi: 1319
Iscritto: 29/12/2006

Postato alle 15:07
Lunedì, 18/06/2007

1 fai una bel numero di vettori
che so
dataestr()
ruota()
primoestr()
secestr()
terzestr()

poi usando lastringa e gli spazi separi tutti i campi e li metti nei rispettivi "contenitori"

P4p3r0g4 (Member)
Guru

Messaggi: 1319
Iscritto: 29/12/2006

Postato alle 15:19
Lunedì, 18/06/2007

forse potresti fare invece un nuovo tipo

Codice sorgente - presumibilmente VB.NET

private type ruota
dim n1 as integer
dim n2 as integer
dim n3 as integer
dim n4 as integer
dim n5 as integer
dim n6 as integer
end type
 
private type estrazione
dim data as string
dim ba as ruota
dim ca as ruota
dim fi as ruota
dim ge as ruota
dim mi as ruota
dim na as ruota
dim pa as ruota
dim rm as ruota
dim to as ruota
dim ve as ruota
end type
 
dim estr(1 to 20) as estrazione

poi le dividi cosi
la prima parte della stinga va in estr(x).data
la seconda la leggi e con gli if indrizzi la ruota corretta
poi le estrazioni fai
estr(x).ba.n1=..
estr(x).ba.n2=..
..
estr(x).ve.n5=..
estr(x).ve.n6=..

ogni volta che la data non coincide passi alla x sucessiva.

Pagine: [ 1 2 3 ]