Sidste Post i en AccessDatabase

Drop dit "id = " og benyt rs.movelast på recordsettet for at få sidste post.

rs.movenext
rs.moveprevious
rs.movelast
rs.movefirst

Til ocp.
Du må lige forklare lidt mere om hvordan,
jeg har længe prøvet med det der "rs.movelast" osv,
har aldrig fået det til at funke, på min måde virker det ,
kan du evt omskrive mit programstump så det vil virke. ?

På forhånd tak.
MVH
Sten Jensby

Jeg kan da godt :o)

Set Myconn = CreateObject("ADODB.Connection")
Myconn.Open "driver={Microsoft Access Driver (*.mdb)}; DBQ= " & App.Path & "\kasse.mdb"
On Error Resume Next
SQL = "Select * FROM kassebeh"
Set rs = Myconn.Execute(SQL)
rs.movelast
Text1 = rs("primo")
Text2 = rs("oms")
Text3 = rs("ultimo")
Myconn.Close
End Sub

Har ikke lige VB her til at teste, men hvis du ryger FORBI den sidste record ved Movelast, kan du jo lige hoppe en tilbage:

rs.movelast
rs.moveprevious

Hej
Ja den er da go.
så får jeg altså en error.

Run-time error '-2147217884(80040e24)':
Rækkesættet understøtter ikke baglæns hentning.

MVH
Sten Jensby

Får du en fejlmeddelse på DANSK - hvilken version af VB kører du med?

Hvornår får du fejlen - ved movelast eller moveprevious? Hmmmm... Kan ikke lige lure fejlen umiddelbart

Fejlen kommer ved linjen , rs.movelast
kører med Visual Basic 6.0 (sp5)
alt andet er på engelsk.

Den fejlmeddelse lyder som om det på en eller anden måde kommer fra Access - det er vel en helt normal database du arbejder med?
Tjaa - jeg ved simpelthen ikke hvad fejlen er - måske skulle du forsøge med noget andet end ADODB...?

det er en access 2000 database,
godt nok lavet i access 2002 UK versionen. den danske var for dyr dengang.

Prøv med DAO og se om det ændrer sig (et skud i tågen)

Øh hvordan mener du ?
har aldrig brugt det-
omskriv lige mit stump , tak :)

Prøv evt. at udskifte 'rst' med navnet på dit recordset i nedenstående

Private Sub form_load()
Set dindb = DBEngine.Workspaces(0).OpenDatabase(trim(App.Path & "\kasse.mdb"))
DoEvents
SQL = "Select * FROM kassebeh WHERE id= " & y & " "
Set rst = dindb.OpenRecordset(strSQL, dbOpenForwardOnly)
Do While Not rst.EOF
text1= rst!primo
text2= rst!oms
text3= rst!ultimo
End If
rst.MoveNext
DoEvents
Loop
End Sub

- Har ikke testet :o)

mikker: du skal nok ikke have Where y = ... Det er (var) bare en tæller

du ikke
Set dindb = DBEngine.Workspaces(0).OpenDatabase(Trim(App.Path & "\kasse.mdb"))
Får fejl i den linje.
run-time error 424
object required.

Private Sub Form_Load()
Set dindb = DBEngine.Workspaces(0).OpenDatabase(Trim(App.Path & "\kasse.mdb"))
DoEvents
SQL = "Select * FROM kassebeh"
Set rst = dindb.OpenRecordset(strSQL, dbOpenForwardOnly)
Do While Not rst.EOF
Text1 = rst!primo
Text2 = rst!oms
Text3 = rst!ultimo
rst.MoveNext
DoEvents
Loop
End Sub

Har fået et tip fra en på email.
DEt virker heller ikke.

Private Sub Form_Load()
    Set Myconn = CreateObject("ADODB.Connection")
    Myconn.Open "driver={Microsoft Access Driver (*.mdb)}; DBQ= " & App.Path & "\kasse.mdb"
    On Error Resume Next
    SQL = "Select * FROM kassebeh ORDER BY ID DESC LIMIT 1
    Set rs = Myconn.Execute(SQL)
    Text1 = rs("primo")
    Text2 = rs("oms")
    Text3 = rs("ultimo")
    Myconn.Close
End Sub

Endelig
fik den løst
MArtin havde ret , dog havde rs.movelast forkert.
udskiftede den med rs.movenext og flyttede den lidt ned.
kan godt det evt kan tage lidt tid , hvis der er mange records i basen.

Private Sub Form_Load()

Set Myconn = CreateObject("ADODB.Connection")
Myconn.Open "driver={Microsoft Access Driver (*.mdb)}; DBQ= " & App.Path & "\kasse.mdb"
On Error Resume Next
SQL = "Select * FROM kassebeh"
Set rs = Myconn.Execute(SQL)
  Do While Not rs.EOF
Text1 = rs("primo")
Text2 = rs("oms")
Text3 = rs("ultimo")
rs.movenext
Loop
Myconn.Close
End Sub

Så meget ret havde jeg nu ikke. Det havde været meget mere elegang med en movelast og evt. en moveprevious - forstår ikke hvorfor det ikke virker. Forsøgte du med DAO? Måske kan andre forklare hvorfor den brokker sig over movelast og moveprevious..?

Den løsning du fik på email er jo helt anderledes, den går ud på at du kun henter en post (den sidste) ind i dit recordset - det du vil er vel at hente alle poster til recordsettet, og derefter nappe den sidste post...

NB: Den fejl du fik med DAO skyldes muligvis, at du ikke har dimmet din "dindb" (dmi dindb as database), eller at du ikke har oprettet en reference til DAO 3.6 (eller hvad nummer det nu er nået til...)

Hej
Kan faktisk god leve at KUN få DEN sidste post ind.
men det virker da nu , men som sagt , med mange post kan det måske tage tid.
så hvis du lige har en løsning på KUN DEN sidste post , er jeg taknemlig

Det er blot at ændre din SQL-sætning, så den:

Sorterer bagfra
Sorterer efter ID
Kun medtager den første (dvs. den sidste, da det er bagfra)

Som det du fik på e-mail.

Er du i tvivl om hvordan SQL fungerer, er her 4-5 sider som meget overskueligt gennemgår de mest basale funktioner
http://www.w3schools.com/sql/sql_intro.asp

Bemærk, at der også er en funktion LAST, som du garanteret også kan bruge :o)

Good luck

Du kan også gøre som du hele tiden har gjort, men indlæse recordsættet i omvendt rækkefølge, ved at bruge ORDER BY xxx DESC (descending)
http://www.w3schools.com/sql/sql_orderby.asp

Så slipper du for at loope :o)

Mulighederne er mange...