O Access possui limitações na recuperação de uma coluna AutoIncrement. Duas rotinas para resolver essa questão

'-------------------------------------------------------------------------------------     ' Metodo 1 - Usando o Select MAX - Não é muito confiavel quando em acesso concorrente ' porque ele busca o maior valor do autonumber. Sua aplicacao corre o risco de buscar ' um valor de outro registro inserido fração de segundos após sua transação. '-------------------------------------------------------------------------------------     set conn = Server.CreateObject("ADODB.Connection")      conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c: empclientes.mdb;", "", ""     conn.execute "INSERT INTO CLIENTES (NOME) values('ADEN')"      set rs = conn.execute("SELECT MAX(CODIGO) from CLIENTES")      response.write "O Código do Cliente é: " & rs(0)     rs.close: set rs = nothing      conn.close: set conn = nothing  '-------------------------------------------------------------------------------------     ' Metodo 2 - Usando o método ADDNEW ao invés do SQL INSERT ' Funciona perfeitamente, contudo não é recomendado por questões de performance '-------------------------------------------------------------------------------------     set conn = Server.CreateObject("ADODB.Connection")      conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c: empclientes.mdb;", "", ""     set rs = Server.CreateObject("ADODB.Recordset")      rs.open "select * from CLIENTES where 1=0", conn, 1, 3      rs.AddNew      rs("NOME") = "ADEN"     rs.update      response.write "O Código do Cliente é: " & rs(0)      rs.close: set rs = nothing      conn.close: set conn = nothing 

Quebra-Linha

Colaborador..: Adenilton Rodrigues
Categoria(s).: ASP;
Data.........: 11/04/2002 15:27:09
Visualizado..: 413 vezes
Fonte........: AdeN Knowledge DB