estrarre l'ultimo record

[ettorpa]

Salve a tutti,

ho un piccolo problemino...qualcuno potrebbe aiutarmi gentilmente?

allora...dovrei estrarre sempre l'ultimo record inserito nel db

sia usando la prima query che la seconda...mi estrae l'ultimo record e funziona..ma si ferma sul penultimo record e non sull'ultimo effettivo appena inserito...

in effetti dovrebbe scattare sempre di una posizione (+1)

SQL = "select COUNT (ID) as totalerecord FROM USER"


SQL = "SELECT TOP 1 * FROM user ORDER BY id DESC

cosa manca?

[ilpasta]

salve non sono un esperto ma ...

se usi access non potrebbe essere un problema sul tipo di lock di lettura del db?

chiudere e riaprore la connessione prima di eseguire le query per vedere un recordset aggiornatissimmo?

[ettorpa]

ti posto il codice:

<%


Dim dtCorr
dtCorr = date()


Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open"Driver={Microsoft Access Driver (*.mdb)}; dbq=" & server.MapPath("/mdb-database/miodb.mdb")

'Set conn = server.createobject ("ADODB.Connection")

'SQL = "select COUNT (ID) as totalerecord FROM USER"

SQL = "SELECT TOP 1 * FROM user ORDER BY id DESC


SQL = "select TOP (ID) as totalerecord FROM user ORDER BY ID"


Set Rs = Server.createObject("ADODB.Recordset")

Rs.Open SQL, Conn


%>


<%Response.Write (RS("id"))%>

[optime]

l'ID dell'ultimo inserito è

SELECT MAX(ID) FROM TABELLA

[ettorpa]

optime...ci avevo già provato ma niente...ti posto di nuovo il codice:


<%


Dim dtCorr
dtCorr = date()


Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open"Driver={Microsoft Access Driver (*.mdb)}; dbq=" & server.MapPath("/mdb-database/rmami2007.mdb")

'Set conn = server.createobject ("ADODB.Connection")

'SQL = "select COUNT (ID) as totalerecord FROM USER"
'SQL = "SELECT TOP 1 * FROM user ORDER BY id DESC"
'SQL = "select TOP (ID) as totalerecord FROM user ORDER BY ID"



SQL = "SELECT MAX(ID) as totalerecord FROM user"



Set Rs = Server.createObject("ADODB.Recordset")


Rs.Open SQL, Conn

%>

<%response.write(RS("totalerecord"))%>

[paolocapitani]

Ciao,
prova a chiudere la connessione al DB che avevi eventualmente lasciato aperta durante inserimenti precedenti e riaprila prima di eseguire la query che utilizzi per estrarre l'ultimo record.

[ettorpa]

ciao paolo,

niente da fare ...sto impazzendo aiutttttttttttttttttttttttttt

sara' un problema di access secondo voi?

è possibile che si ferma sempre allo stesso record...e non mi mostra mai l'ultimo record reale?

uffffffffffffffffffffff

[br1]

Non e' chiaro cosa cerchi di fare... vuoi sapere qual'e' l'ID piu' alto utilizzato o vuoi contare quanti record sono presenti? le due cose non e' detto che coincidano...

ciao

[ettorpa]

allora mi spiego meglio:

voglio estrarre con la query sempre l'ultimo record inserito.

faccio un es: ho un form chiamato "rma.asp" ..una volta compilati i campi...all'invio, mi assegna un num.di pratica che in effetti sarebbe ricavato dall'ultimo record inserito (ID) IL N°44

quando eseguo un nuovo rma...dovrebbe estrarmi il N°45 ovvero l'ultimo record immesso...invece resta fermo sempre al N°44 ...sarebbe il penultimo...cioè mi spiego meglio: non scatta di una posizione ma resta fermo...è un problema di lock di lettura del db?


aiutooooooooooooooooooooooo

[ettorpa]

forse è meglio che vi posto tutto il codice...puo' darsi che sia un problema nel db..nell'inserimento.


<%


Dim dtCorr
dtCorr = date()


Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open"Driver={Microsoft Access Driver (*.mdb)}; dbq=" & server.MapPath("/mdb-database/mio.mdb")

'Set conn = server.createobject ("ADODB.Connection")

'SQL = "select COUNT (ID) as totalerecord FROM USER"
'SQL = "SELECT TOP 1 * FROM user ORDER BY id DESC"
'SQL = "select TOP (ID) as totalerecord FROM user ORDER BY ID"


SQL = "SELECT MAX(ID) as totalerecord FROM user"



' Definisci un recordset
Set Rs = Server.createObject("ADODB.Recordset")



' Esegui la query
Rs.Open SQL, Conn

' Stampa il risultato

%>


[/b]</font>
</p>
<font size="3" face="Verdana">[b]
<table border="1" width="65%" id="table7" style="border-width: 0px">
<tr>
<td style="border-style: none; border-width: medium" width="584">
<font size="3" face="Verdana">
<p align="right"><font color="#000080" face="Verdana" size="4"></font><font face="Verdana"><font color="#000080" face="Verdana" size="3">Il
tuo numero di pratica è</font></p></td>
<td style="border-width: 2px; padding-left: 4px; padding-right: 4px" bgcolor="#FF0000" bordercolor="#C0C0C0">
<%response.write(RS("totalerecord"))%></td>

</tr>
</table>
</font>


<td width="25" bordercolor="#B9C8E1" height="20" bgColor="#FF0000" style="border-style: solid; border-width: 1; vertical-align:medium" align="center">[b]<font size="3" face="Verdana">


<%

' Chiudi e distruggi oggetti
Rs.Close
Set Rs = Nothing

' Chiudiamo connessione come dall'esempio

%>


<%
'response.End
'end SUB
' recupero i campi del form

response.write (datarichiesta)
response.write (ragionesociale)
'response.write (indirizzo)
'response.write (cap)
'response.write (citta)
'response.write (tel)
'response.write (email)
'response.write (fax)
'response.write (contatto)
response.write (quantita1)
response.write (quantita2)
response.write (quantita3)
response.write (quantita4)
response.write (quantita5)
response.write (prodotto1)
response.write (prodotto2)
response.write (prodotto3)
response.write (prodotto4)
response.write (prodotto5)
response.write (marca1)
response.write (marca2)
response.write (marca3)
response.write (marca4)
response.write (marca5)
response.write (seriale1)
response.write (seriale2)
response.write (seriale3)
response.write (seriale4)
response.write (seriale5)
response.write (difetto1)
response.write (difetto2)
response.write (difetto3)
response.write (difetto4)
response.write (difetto5)



datarichiesta= trim(request.Form("datarichiesta"))
ragionesociale= trim(request.Form("ragionesociale"))
'indirizzo= trim(request.Form("indirizzo"))
'cap= trim(request.Form("cap"))
'citta= trim(request.Form("citta"))
'tel= trim(request.Form("tel"))
'email= trim(request.Form("email"))
'fax= trim(request.Form("fax"))
'contatto= trim(request.Form("contatto"))
quantita1= trim(request.Form("quantita1"))
quantita2= trim(request.Form("quantita2"))
quantita3= trim(request.Form("quantita3"))
quantita4= trim(request.Form("quantita4"))
quantita5= trim(request.Form("quantita5"))

prodotto1= trim(request.Form("prodotto1"))
prodotto2= trim(request.Form("prodotto2"))
prodotto3= trim(request.Form("prodotto3"))
prodotto4= trim(request.Form("prodotto4"))
prodotto5= trim(request.Form("prodotto5"))

marca1= trim(request.Form("marca1"))
marca2= trim(request.Form("marca2"))
marca3= trim(request.Form("marca3"))
marca4= trim(request.Form("marca4"))
marca5= trim(request.Form("marca5"))

seriale1= trim(request.Form("seriale1"))
seriale2= trim(request.Form("seriale2"))
seriale3= trim(request.Form("seriale3"))
seriale4= trim(request.Form("seriale4"))
seriale5= trim(request.Form("seriale5"))

difetto1= trim(request.Form("difetto1"))
difetto2= trim(request.Form("difetto2"))
difetto3= trim(request.Form("difetto3"))
difetto4= trim(request.Form("difetto4"))
difetto5= trim(request.Form("difetto5"))



%>



qui ci sono i vari response:******************


<%

Dim conn, rs, id, ragionesociale, datarichiesta, quantita1, quantita2, quantita3, quantita4, quantita5, prodotto1, prodotto2, prodotto3, prodotto4, prodotto5, marca1, marca2, marca3, marca4, marca5, seriale1, seriale2, seriale3, seriale4, seriale5, difetto1, difetto2, difetto3, difetto4, difetto5, consuno, sql 'Dichiario le variabili

'Dim dtCorr
'dtCorr = date()



datarichiesta= request("datarichiesta")
ragionesociale = request("ragionesociale")
'indirizzo = request("indirizzo")
'cap = request("cap")
'citta = request("citta")
'tel = request("tel")
'email = request("email")
'fax = request("fax")
'contatto = request("contatto")
quantita1 = request("quantita1")
quantita2 = request("quantita2")
quantita3 = request("quantita3")
quantita4 = request("quantita4")
quantita5 = request("quantita5")
prodotto1 = request("prodotto1")
prodotto2 = request("prodotto2")
prodotto3 = request("prodotto3")
prodotto4 = request("prodotto4")
prodotto5 = request("prodotto5")
marca1 = request("marca1")
marca2 = request("marca2")
marca3 = request("marca3")
marca4 = request("marca4")
marca5 = request("marca5")
seriale1 = request("seriale1")
seriale2 = request("seriale2")
seriale3 = request("seriale3")
seriale4 = request("seriale4")
seriale5 = request("seriale5")
difetto1 = request("difetto1")
difetto2 = request("difetto2")
difetto3 = request("difetto3")
difetto4 = request("difetto4")
difetto5 = request("difetto5")
consuno = request("consuno")




set conn=Server.CreateObject("adodb.connection")

conn.open"Driver={Microsoft Access Driver (*.mdb)}; dbq=" & server.MapPath("/mdb-database/miodb.mdb")


sql="select * from user where ragionesociale='" & ragionesociale & "'"


set rs=Server.CreateObject("adodb.recordset")

rs.open sql, conn, 1, 3


if not rs.eof then

response.write ""

response.write ""



rs.close

conn.close

set rs=nothing

set conn=nothing

response.end


else


rs.addnew

rs("datarichiesta")=datarichiesta
rs("ragionesociale")=ragionesociale
rs("quantita1")=quantita1
rs("quantita2")=quantita2
rs("quantita3")=quantita3
rs("quantita4")=quantita4
rs("quantita5")=quantita5
rs("prodotto1")=prodotto1
rs("prodotto2")=prodotto2
rs("prodotto3")=prodotto3
rs("prodotto4")=prodotto4
rs("prodotto5")=prodotto5
rs("marca1")=marca1
rs("marca2")=marca2
rs("marca3")=marca3
rs("marca4")=marca4
rs("marca5")=marca5
rs("seriale1")=seriale1
rs("seriale2")=seriale2
rs("seriale3")=seriale3
rs("seriale4")=seriale4
rs("seriale5")=seriale5
rs("difetto1")=difetto1
rs("difetto2")=difetto2
rs("difetto3")=difetto3
rs("difetto4")=difetto4
rs("difetto5")=difetto5
rs("datarichiesta") = dtCorr
rs.Fields("consuno")= consuno


rs.update

rs.close

conn.close

set rs=nothing

set conn=nothing