Newsgroup: it.comp.lang.visual-basic
Titolo: DAO .. non parte del primo record

Ciao, ho un programma che usa 2 tabelle in access 97, una con gli Articoli 
l'altra per dei progressivi.
La tabella Articoli adesso ha solo 5 record, il campo chiave è il 
CodiceArticolo di 4 caratteri formato Testo.
In Vb6 ho questo..
    Set dbEdeka = OpenDatabase("C:\Programmi\TophiEdeka\TophiEdeka.mdb", 
True)
    Set rstArticoli = dbEdeka.OpenRecordset("Articoli")
    rstArticoli.MoveFirst
    Do While Not rstArticoli.EOF
       a$ = rstArticoli("CodiceArticolo") + Space(5 - 
Len(rstArticoli("CodiceArticolo")))
       a$ = a$ + rstArticoli("Descrizione")
       ListaArticoli.AddItem a$
       rstArticoli.MoveNext
    Loop
    dbEdeka.Close
Dunque il problema è questo.... parte dall'ultimo e non dal primo record!!
La tabella è fatta così, ma il programma parte sempre dal record 3273 e non 
dal 3013. Legge il 5° poi il 1-2-3-4 e poi esce. Perchè?
3013     Bardolino GIOLANO DOC     400798803013
3025     MERLOT Veneto IGT             400798803025
3061     Valpolicella GIOLANO            400798803061
3108     BARBERA d'Asti DOC            400798803108
3273     Rosso RITTERBURG               400798803273
Inoltre mentre uso l'applicazione non posso aprire MDB di access e 
viceversa, cosa posso fare?
Grazie mille. 

     Set rstArticoli = dbEdeka.OpenRecordset("Articoli")
Se tu gli dici di aprire una tabella, ma non gli specifichi un ordine 
ben preciso, il dbms ha il diritto di restituirti i record nell'ordine 
che più *gli* conviene.
Alberto
-- 
I have a dream that my four little children
will one day live in a nation where they
will not be judged by the color of their skin
but by the content of their character.

 Eh?
Comunque come posso usare un Order By con la select?
Mi mancano i fondmenti!! Ci vuole un cilclo per passare da un record 
all'altro? Illuminatemi.. 

.. però c'è una cosa che non mi torna!!
Per usare ORDER BY dovrei fare una SELECT ma io mi trovo
un   rstArticoli.MoveFirst  ... e già qui lui dovrebbe andare sul primo!!
poi c'è un
    '
    Do While Not rstArticoli.EOF
       ......
       rstArticoli.MoveNext
       ......
    Loop



fai così
     Do rstArticoli.EOF
        ......
        rstArticoli.MoveNext
        ......
     Loop untill rstArticoli.EOF
-- 
_ _
Ciao
MAssimiliano Amendola            
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:  
www.donkarl.com/it

 com'è che sul primo non ci và? l'istruzione DAO MoveFirst  non funziona?!!
Eh?


 dal 3013. Legge il 5° poi il 1-2-3-4 e poi esce. Perchč?
Devi impostare tu l'ORDER BY.
-- 
ciao, hal

 So che è lo stesso, ma in Access While è meno potabile.
Si, beh, anche le vecchie Ford tendono a perdere olio dal cambio.


      Loop untill rstArticoli.EOF
Rivoluzionario.


 Alberto
;-)
So che è lo stesso, ma in Access While è meno potabile.
-- 


...vabbč che sono indietro ma cosě pollo!!
anceh se li per li l'ho guardato pensando per avesse senso!
Help

 Alberto
Cioè non tiene conto della chiave impostata sul DB in Access??
Grazie , siete stati velocissimi!!
Per l'accesso in modo esclusivo ho modificato la stringa, adesso funge.
Grazie ancora. 

 Cioè non tiene conto della chiave impostata sul DB in Access??
E ci mancherebbe anche...


 cosa posso fare?
Quando hai deciso di aprire espressamente il file in modo esclusivo, 
non ti sei chiesto quali controindicazioni avesse questa tua decisione?
Di default il file viene aperto come condivisibile, ma tu hai forzato 
di aprirlo come esclusivo...


 So che č lo stesso, ma in Access While č meno potabile.
perche' e' meno potabile? per il not ?
Poi forse si riferiva alla costruzione.
Giuro che cosi' non la avevo mai vista.
Do until rs.eof
...
loop
no eh?
--
a.cara


Sě, posiamo metterlo come vuoi, possiamo anche affittare un giapponesino che
sposti a mano il rst, se vuoi.
ciao Alessandro, eppure pensavo che potevamo chiamarti Cara solo noi di
Access... svergognata.


 aprirlo come esclusivo...
Non l'ho deciso io, il programma l'ha fatto un'altro.
Adesso l'ho guardo io (decisioni dall'alto) per cominciare a famigliarizzare 
con vb6 e dati.
Comunque ho corretto  il modo di accesso, ma resta il problema di come 
leggere i record, mi manca la "tecnica" e la logica.