Evitare un accesso concorrente ad un database (access)

[Alethesnake]

ciao, vi spiego il mio problema:
ho una tabella con un campo posti disponibili (ex pd=3) e una tabella prenotazioni.
ogni record della tabella prenotazioni conta per 1.

il numero di prenotazioni (count(prenotazioni)) deve essere minore o uguale al numero di posti disponibili.

quando devo inserire una prenotazione prima controllo la disponibilità:

SELECT (pd-COUNT(prenotazioni)) AS disponibili
FROM tab_posti INNER JOIN tab_prenotazioni ON ...
WHERE ...
GROUP BY ...

...

if Cint(rs("disponibili"))>0 then
    INSERT INTO tab_prenotazioni (...) VALUES (...)
else
    Response.Write("Posti disponibili terminati")
end if

mettiamo che la count restituisca 1.
Anche se il caso è mooolto raro, potrebbe accadere che in caso di contemporaneità di accesso magari due utenti ottengono 1 come risultato della count e per entrambi venga effettuata la insert. ovviamente questa è un eventualità che devo evitare.
avete qualche suggerimento su come procedere? io pensavo di aprire la connessione al db in maniera esclusiva, ma non mi convince molto come soluzione. voi che mi dite?

[maximum]

Tempo fa ho letto questa discussione: http://forum.html.it/forum/showthrea...tabelle+access non so se ti può essere di aiuto.

[Alethesnake]

ti ringrazio per l'aiuto. ho dato una letta alla discussione (e a quelle linkate) ma la soluzione proposta non mi entusiasma.
ho cercato tra i metodi dell'oggetto connection ma ho molte perplessità a riguardo.
Ci sono idee per una soluzione pulita del problema?

[Alethesnake]

up


secondo voi una soluzione basata sull'application.lock potrebbe funzionare?
qualcosa tipo:

Application.Lock

sql = "SELECT COUNT(...) ..."
Set rs = conn.Execute(sql)

Application("disponibili") = rs(0)

rs.Close: Set rs=nothing

if CInt(Application("disponibili")) > 0 then
	conn.Execute ("INSERT INTO ...")
else
	Response.Write ("Posti esauriti")
end if

Application.UnLock

[Alethesnake]

up

[V1RuZ]

Originariamente inviato da Alethesnake
up


secondo voi una soluzione basata sull'application.lock potrebbe funzionare?
qualcosa tipo:

Application.Lock

sql = "SELECT COUNT(...) ..."
Set rs = conn.Execute(sql)

Application("disponibili") = rs(0)

rs.Close: Set rs=nothing

if CInt(Application("disponibili")) > 0 then
	conn.Execute ("INSERT INTO ...")
else
	Response.Write ("Posti esauriti")
end if

Application.UnLock

si può fare ma dovresti mettere anche dei controlli in caso di errore per sbloccare il lock...

[Alethesnake]

si, sono stato molto sommario nell'esposizione, mi interessava un'opinione sul se secondo voi funzionava o no

grazie