Tablas con contadores en SQL

Varias personas me ha pedido en diversas ocasiones que les explique como crear una tabla con contadores desde SQL.

Supongamos que tenemos una tabla que va a tener estos tres contadores en una única fila Pedido, Albaran y Factura.

Creamos la tabla:

CREATE TABLE contadores (
pedido INT NOT NULL,
albaran INT NOT NULL,
factura INT NOT NULL )

Inicializamos los contadores (se toma cero para los valores iniciales):

INSERT INTO contadores VALUES ( 0, 0, 0 )

Obtener, por ejemplo, el valor del siguiente albarán:

1.- Bloqueamos la tabla para evitar que otro usuario acceda a la vez.
LOCK TABLES contadores WRITE

2.- Aumentamos el valor de albarán.
UPDATE contadores SET albaran = albaran + 1

3.- Obtenemos el nuevo valor.
SELECT albaran FROM contadores

4.- Quitamos el bloqueo.
UNLOCK TABLES

Hasta aqui la teoria, veamos ahora como se hace esto con Eagle 1 y MySQL:

(Usando funciones wrapeadas del cliente MySQL de la version 2.5 de Eagle 1)

// hCon contiene el handler de la conexion
// hRes contiene el handler de la consulta
// nAlbara recogera el valor del albaran correspondiente.

IF MSQuery( hCon, "LOCK TABLES contadores WRITE" )

...IF MSQuery( hCon, "UPDATE contadores SET albaran = albaran + 1" )

......IF MSQuery( hCon, "SELECT albaran FROM contadores" )

.........hRes := MSStoreResult( hCon )
.........nAlbaran := Val( MyReadRow( hRes )[1] )
.........MSQuery( "UNLOCK TABLES" )

......ELSE

.........Alert( MSError( hCon ) )

......END IF

...ELSE

......Alert( MSError( hCon ) )

...END IF

ELSE

...Alert( MSError( hCon ) )

END IF

De la misma forma se averiguaria el valor de cualquiera de los otros contadores.

Actualización:

Ejemplo en Xailer disponible. Pedir por e-mail, gracias. (jasm en chochurro punto com).