problemi con recordset movelast

[bronz]

salve a tutti!!

ho la necessita di sapere qual'è l'ultimo record dal mio database, specificamente, che valore contiene il campo "id" dell'ultimo record...

il codice che pensavo funzionasse e':

Set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath("dbimages.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
Conn.open strConn
sql = "SELECT id FROM Tabella"
rs.Open sql, Conn, 3, 3
rs.movelast 
i = rs("id")+1
response.write(i)

Conn.close

Ma non funziona, mi da errore:

Provider error '80004005' 

Errore non specificato.

Ci capite qualcosa?.....forse non gli va a genio MoveLast?

[viki1967]

movelast???

sarà movenext??? :master:

[bronz]

io ho bisogno di sapere l'ultimo record

[viki1967]

non credo sia la giusta procedura... prova così:

sSQL = "SELECT @@IDENTITY FROM tabella"
   oRS.Open sSQL, oConn
   If oRS.RecordCount > 0 Then
      If IsNull(oRS(0)) Then
         lLastId = 0
      Else
         lLastId = oRS(0)
      End If
   End If
   oRS.Close

[supergeniux]

e perche' mai non giocare con l'ORDER BY?

[bronz]

ragazzi a me serve sapere il contenuto dell'ultimo record...

se io mi posiziono sull'ultimo record con rs.movelast

e questo valore lo assegno ad una variabile dovrebbe fungere?!?

Set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath("dbimages.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
Conn.open strConn
sql = "SELECT id FROM Tabella"
rs.Open sql, Conn
rs.movelast
i=rs.movelast
response.write(i)

invece nienteeeeeeee!!!

forse la sintassi e' errata?

[viki1967]

guardati questa discussione

[supergeniux]

Originariamente inviato da supergeniux
e perche' mai non giocare con l'ORDER BY?

mi autoquoto

[bronz]

in parte ho risolto....

Set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath("dbimages.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
Conn.open strConn
sql = "SELECT * FROM Tabella"
rs.Open sql, Conn, 3, 3
rs.movelast
NR=rs("ID")
rs.movefirst

cosi' riesco a sapere il valore del campo "id" dell'ultimo record...

ma se non ci sono record mi da errore come faccio?

[supergeniux]

if rs.eof then
'continuo il ciclo