Accesso contemporaneo a record di DB Access

[optime]

basta una UPDATE ... SELECT TOP 1 ... e assegni il primo libero (e se non metti ORDER BY assegna secondo un ordine che può anche essere casuale)

ma... il titolo "che c'azzecca"?

[marocco82]

basta una UPDATE ... SELECT TOP 1 ... e assegni il primo libero (e se non metti ORDER BY assegna secondo un ordine che può anche essere casuale)

Yessssssssssssssssssss!!!

A volte mi perdo in un bicchier d'acqua...

Allora, ecco cosa ho fatto:

1) Mi connetto al db effettuando la seguente query

sql = "SELECT TOP 1 * FROM clienti WHERE username is null"

2) Tramite form creo un pulsante "RICHIEDI CLIENTE" la cui action mi rimanda nella stessa pagina

<form name="xxx" method="post" action="lista_clienti.asp?step=2&Id=<%=rs(0)%>">
<input type="hidden" name="username" value="<%=str_users_name%>">
<p><center><input type="submit" name="invio" value="RICHIEDI CLIENTE"> </center></p>

3) Richiamo la variabile ed eseguo un UPDATE del campo USERNAME

If Request.QueryString("step") = "2" Then

Dim intCodice
intCodice = Request.QueryString("Id")

Set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath("mdb-database/miodb.mdb")
strConn=strConn & ";pwd=" & strCode
Conn.Open strConnsql = "SELECT * FROM clienti WHERE Id="&intCodice
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,1,3
rs("username") =request.form("username")
rs.update
rs.Close
set rs = Nothing
conn.Close
set conn = Nothing
End if

4) L'operatore troverà il cliente assegnato.

Non so perché ma ero convinto fosse più complesso...
Dovevo usare il cervello ed utilizzare un percorso logico/teorico e riportarlo nella pratica!

ma... il titolo "che c'azzecca"?

Effettivamente poco ma l'avevo riportato dalla precedente discussione.
Lo modifico immediatamente.

Grazie a Optime e Vincent.Zeno per i vostri input e la vostra disponibilità.
E' stato un piacere.
A presto