Hola a todos,
Tengo un problemononon, quisiera obtener el ultimo ID(autoincrement) de una tabla en la que inserto mediante un Command. En lo que encontre veia que proponian usar "IDENTITY", pero al intentarlo con un command, este no me devuelve nada. Como puedo solucionar esto?? Gracias!!
PD: este es el codigo:
Function EjecutarConsulta(ByVal vectorParametros, ByVal query)
Dim rsIngUser, cm, Conn, parametro, tamano
Set cm=Server.CreateObject("ADODB.Command")
cm.CommandType=&H0001
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open dictConfig.s_CatalogConnectionString
set cm.ActiveConnection=Conn
cm.CommandText=query
cm.Prepared=true
For i=0 to UBound(vectorParametros,1)-1
tamano=FormatNumber(vectorParametros(i,2))
Set parametro=cm.CreateParameter(vectorParametros(i,1) ,200,&H0001,tamano,vectorParametros(i,0))
cm.Parameters.Append parametro
Next
Set rsIngUser = Server.CreateObject("ADODB.Recordset")
Set rsIngUser=cm.execute()
Set EjecutarConsulta=rsIngUser
End Function