Esta rotina mostra outra técnica para se recuperar o valor de um campo autoincrement após um comando INSERT do SQL. Ela usa a o comando SELECT @@IDENTITY para isso. Só funciona em SQLServer ou ACCESS 2000.

   '========================================================================================    ' Este exemplo só funciona em SQL Server ou Arquivos do MS Access 2000.    ' O comando SELECT @@IDENTITY recupera o valor do campo autoincrement para o registro    ' inserido na conexão corrente com o banco.    '========================================================================================     set conn = Server.CreateObject("ADODB.Connection")      conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c: emppedidos.mdb;", "", ""     conn.execute "INSERT INTO PEDIDOS (NOME,CIDADE) values('ADEN','BHTE')", RecordsAffected     If RecordsAffected=1 Then        Response.Write "Codigo do Pedido: " & Conn.execute("SELECT @@IDENTITY")(0).Value      Else        Response.Write "Impossível gravar o registro!"  End if     conn.close: set conn = nothing 

Quebra-Linha

Colaborador..: Adenilton Rodrigues
Categoria(s).: ASP; Microsoft SQL Server; Access;
Data.........: 17/11/2001 09:57:48
Visualizado..: 3643 vezes
Fonte........: AdeN Knowledge DB