Retornar @@Identity ASP3

[Adriano06 0]

Bom dia pessoal!

 

Eu queria retonar o valor do ID depois de fazer um insert.

 

Essa é a procedure:

 

alter proc usp_insert_cliente(@nome1	 varchar(50),@dtnasc1   datetime,@cnpj1	 varchar(14),@idagente1 int,@msgErro   varchar(250))ASdeclare @lastId intinsert into tbcliente (nome, dtnasc, cnpj, idagente) values (@nome1, @dtnasc1, @cnpj1, @idagente1)select @lastId = @@identitygo

E esse é o VScript:

 

ASP

<%

set conexaoDb = server.createobject("ADODB.connection")

conexaoDb.open "Provider=SQLNCLI;Server=B-52SQLEXPRESS;Database=Agenda;Trusted_Connection=yes;"

nome  = replace(trim(request.form("nome")),"'","")

dtnasc = replace(trim(request.form("dtnasc")),"'","")

cnpj     = replace(trim(request.form("cnpj")),"'","")

strSQL = "execute usp_insert_cliente '" & nome & "', '" & dtnasc & "', '" & cnpj & "', " & session("idagente")

set rsCliente = conexaoDb.execute(strSQL)

%>

 

Como faço pra retronar o ID e exibir na página asp

 

OBRIGADO!!

[Salgado 4]

Creio que logo após o seu conexaoDB.execute é só você recuperar, como se tivesse recuperando um campo de um RecordSet. Por exemplo:

ASP

<%

set conexaoDb = server.createobject("ADODB.connection")

conexaoDb.open "Provider=SQLNCLI;Server=B-52SQLEXPRESS;Database=Agenda;Trusted_Connection=yes;"

nome = replace(trim(request.form("nome")),"'","")

dtnasc = replace(trim(request.form("dtnasc")),"'","")

cnpj = replace(trim(request.form("cnpj")),"'","")

strSQL = "execute usp_insert_cliente '" & nome & "', '" & dtnasc & "', '" & cnpj & "', " & session("idagente")

set rsCliente = conexaoDb.execute(strSQL)

 

lastId = rsCliente("lastId")%>

Só não se esqueça depois de destruir todos os objetos que você criar.

[Daw 0]

Se você estiver usando ou um dia usar o SQL2005 pra frente, não use @@IDENTITY para este tipo de caso. Substitua-o por Scope_Identity()

 

Fica aqui a dica, levei muita surra disso no começo.

 

[]tz ;)