[VB5] Spostarsi nei record con DAO

[vr-claudio]

Ciao ragazzi
volevo chiedrvi una piccola consulenza, io ho una Text1 dove vorrei che si visualizzasse
l'ultimo record.
In genere utilizzo questo sistema per visualizzare i record nelle diverse text:

Dim rst1 As Recordset, DB1 As Database
Set DB1 = OpenDatabase("C:\...\DB_MAIL.mdb")
Set rst1 = DB1.OpenRecordset("SELECT DISTINCT RIFERIMENTO FROM NEGOZIO")
Do While Not rst1.EOF

Text1.Text = rst1!RIFERIMENTO

rst1.MoveNext
Loop
rst1.Close
DB1.Close

...chiaramente cosi' è a casaccio, invece io vorrei che si visualizzasse sempre l'ultimo record.
Grazie vrcla

[oregon]

Cosi' visualizzi tutti i record nello stesso textbox, anche se vedi solamente l'ultimo ... e' un codice che non ha senso perche' non fa altro che sprecare risorse ...

Dovresti eliminare questa parte

Do While Not rst1.EOF
  Text1.Text = rst1!RIFERIMENTO
  rst1.MoveNext
Loop

e sostituirla con

If Not rst1.EOF Then
  rst1.MoveLast
  Text1.Text = rst1!RIFERIMENTO
Else
  Text1.Text = ""
End If

[vr-claudio]

Ciao oregon
ho provato il tuo codice, ma come mai mi da' il terzultimo record?
Sto sbagliando qualcosa?
vrclaudio

[oregon]

Fai attenzione ... ti da' l'ultimo record del recordset (cioe' e' l'ultimo tra tutti quelli selezionati dalla tua SELECT). Sara' il terzultimo tra TUTTI i record, ma se li vuoi tutti devi cambiare la SELECT.

[vr-claudio]

Scusa Oregon
mi potresti spiegare in che modo cambiare SELECT, cioè devo togliere DISTINCT?
Grazie

[oregon]

Guarda che la SELECT dipende da quello che devi fare ... se ci hai messo la DISTINCT lo saprai tu il motivo ...

Se volevi ottenere TUTTI i record della tabella, indistintamente, allora la devi togliere ... ma, ripeto, quello che volevi ottenere non lo posso sapere io.

[vr-claudio]

Ho scritto DISTINCT perchè è un codice che uso come dici tu a visualizzare tutti i record, che chiaramente come tu mi suggerisci, qui è giustamente sbagliato.
Quindi come ho scritto nella prima emai, io voglio visualizzare solo l'ultimo record.
vrclaudio

[oregon]

L'ultimo record della TABELLA lo ottieni con quel codice se usi la


SELECT RIFERIMENTO FROM NEGOZIO

[vr-claudio]

mi sono proprio perso in una cavolata!
Scusami e grazie mille
Claudio