Fórum Procedure para incrementar campo e retornar valor #202408

Olá, Gente.

Estou começando com SQL-Server 7 e estou apanhando em alguns detalhes.

Tenho em meu banco de dados uma tabela que possui
um único campo ([color=blue:372c182555]Val_Atual[/color:372c182555] tipo [color=blue:372c182555]Integer[/color:372c182555]) com um único registro.

Preciso fazer uma procedure que incremente o valor deste campo e que me retorne o valor depois de atualizado.

Incrementar o valor já está funcionando mas não consigo pegar o valor do campo no programa.

Esta é a proc que eu fiz.

[color=red:372c182555]CREATE PROCEDURE [RETORNA_VAL_ATUAL] AS
SET ROWCOUNT 1

if (Select Count(*) From NRO_ATUAL) = 0
GOTO INCLUIR

/*
** INCREMENTA EM 1 O VALOR DO CAMPO ´VAL_ATUAL´
*/
begin transaction

UPDATE NRO_ATUAL SET VAL_ATUAL = VAL_ATUAL + 1

commit

GOTO FIM

INCLUIR:

/*
** CRIA UM NOVO REGISTRO SE NÃO EXISTIR NENHUM
*/
begin transaction
INSERT INTO NRO_ATUAL (VAL_ATUAL) VALUES (1)

commit

FIM:
Select VAL_ATUAL From NRO_ATUAL[/color:372c182555]


Estou usando ADO para conexão com ADOStoreProc para interface com a procedure.

Se puderem me ajudar agradeço desde já.