[VB6] ottimizzare ricerca in db Access

[bottaweb]

non riesco cmq a visualizzare tutta le est. di bari :-(

[bottaweb]

date un occhiata qui
http://www.lottologia.com/?Func=estr...otto&Anno=2004

se non funziona da www.lottologia.com e clikkate su archivio estrazioni

l'archivio ora è strutturato esattamente come la tabella del link ; ogni
estrazione e di tipo testo i cui numeri sono separati da punti ma la sub
seguente mi preleva solo l'ultima estrazione di bari e non tutte quelle
fatte nel 2004 (anche mettendo .MoveFirst non me le preleva ) perchè:

Private Sub Command1_Click()
rs.Open "SELECT * FROM 2004;", cn, adOpenKeyset, adLockOptimistic, adCmdText
While rs.EOF = False
lbdati.Text = rs("bari")
rs.MoveNext
Wend
End Sub

Help please

[cassano]

posso chiederti una cosa ??? ho visto la funzione per rimpiccolire il datagrid li cambi la dimensione dei caratteri e poi rifai tutta la connessione e il binding col datagrid ????

[sebamix]

Originariamente inviato da bottaweb
date un occhiata qui
http://www.lottologia.com/?Func=estr...otto&Anno=2004

se non funziona da www.lottologia.com e clikkate su archivio estrazioni

l'archivio ora è strutturato esattamente come la tabella del link ; ogni
estrazione e di tipo testo i cui numeri sono separati da punti ma la sub
seguente mi preleva solo l'ultima estrazione di bari e non tutte quelle
fatte nel 2004 (anche mettendo .MoveFirst non me le preleva ) perchè:

Private Sub Command1_Click()
rs.Open "SELECT * FROM 2004;", cn, adOpenKeyset, adLockOptimistic, adCmdText
While rs.EOF = False
lbdati.Text = rs("bari")
rs.MoveNext
Wend
End Sub

Help please

SELECT BARI FROM 2004
dovrebbe essere già qualcosa.

[bottaweb]

Grazie x la risposta ma non sembra funzionare . Sarà forse perchè provo a stampare tutte le estrazioni nello stesso label? Posso inviarti il progetto via email con l'archivio ? E' piccolo come file potresti darci un occhiata pleaze...sono alle prime armi ..:-(

[bottaweb]

ci sei ? :-(

[Jupy64]

Originariamente inviato da bottaweb
date un occhiata qui
http://www.lottologia.com/?Func=estr...otto&Anno=2004

se non funziona da www.lottologia.com e clikkate su archivio estrazioni

l'archivio ora è strutturato esattamente come la tabella del link ; ogni
estrazione e di tipo testo i cui numeri sono separati da punti ma la sub
seguente mi preleva solo l'ultima estrazione di bari e non tutte quelle
fatte nel 2004 (anche mettendo .MoveFirst non me le preleva ) perchè:

Private Sub Command1_Click()
rs.Open "SELECT * FROM 2004;", cn, adOpenKeyset, adLockOptimistic, adCmdText
While rs.EOF = False
lbdati.Text = rs("bari")
rs.MoveNext
Wend
End Sub

Help please

Ciao, è normale che vedi solo l'ultima estrazione della ruota.. visto che usi sempre la stessa label...

[Jupy64]

sono di nuovo qui..
non so se lo sai, ma dal sito ufficiale del gioco del lotto, è possibile scaricare il file storico (in formato access) comprensivo dell'ultima estrazione fatta fino al momento in cui lo prelevi..
cosi hai già l'archivio pronto da usare per le tue elaborazioni senza dover aggiungere niente..
il link è questo:
http://www.giocodellotto.com/default...llo2=&azione=1

[bottaweb]

E' vero hai perfettamente ragione riscrivo sempre sulla stessa label

x Gudy : grande!!!! è proprio quello che cercavo pensare che ci ero passato per il sito uff. del lotto non notandolo devo fare una visita dall'oculista :-))

[bottaweb]

Ho scaricato l'archivio ora però mi da sempre Nessun dato ..non è che dovrei il puntatore si trova alla fine e devo portarmi sul primo record tipo con rs.MoveFirst ...? ho provato ma non funziona

Private Sub Command1_Click()
rs.Open "SELECT * FROM STORICO WHERE data=13/03/1965;", cn, adOpenForwardOnly, adLockReadOnly, adCmdText
If rs.EOF Then
Text1(1).Text = "Nessun dato"
Else
While rs.EOF = False
Text1(1).Text = rs("primo")
rs.MoveNext
Wend
End If