topic-17915

Posts: 396

Joined: Tue Mar 18, 2008 09:41 PM

Ayuda urgente de SQL Server
Posted: Thu Jan 21, 2010 11:33 PM

Hola Amigos del foro.

Estoy dando de alta en una tabla de SQL Server.
Para ello utilizo como nó una sentencia SQL.
Esta tabla tiene un campo Id autonumerico.

El problema es que una vez dado de alta el registro, necesito obtener el valor del Id que acaba de asignarle a ese nuevo registro.

Y no se como se hace.

Aquí un ejemplo de mi código.

Code (fw): Select all Collapse

local cStrSql

cStrSql := "INSERT INTO tabla (nombre) VALUES 'Alfredo'"

oCnnDb:BeginTrans()
oCnnDb:Execute( cStrSql )
oCnnDb:CommitTrans()

¿Y ahora como obtengo el Id?

Javier,

FWH 8.04 2008

anserkk

Posts: 1335

Joined: Fri Jun 13, 2008 11:04 AM

Re: Ayuda urgente de SQL Server
Posted: Fri Jan 22, 2010 04:57 AM

Después de hacer una inserción, puede llamar a:

Code (fw): Select all Collapse

PRINT IDENT_CURRENT('table')

Esto le dará el valor de identidad más reciente de «mesa» -, independientemente de si lo ha creado o no (esto anula la limitación de conexión de @ @ IDENTITY - que puede ser útil).

Otra forma es utilizar un solo procedimiento almacenado que se encarga de los permisos INSERT y la recuperación de identidades con @ @ IDENTITY.

Aquí está el código de ejemplo para el procedimiento almacenado:

Code (fw): Select all Collapse

CREATE PROCEDURE myProc 
    @param1 INT 
AS 
BEGIN 
    SET NOCOUNT ON 
    INSERT INTO someTable 
    ( 
        intColumn 
    ) 
    VALUES 
    ( 
        @param1 
    ) 
    SELECT NEWID = SCOPE_IDENTITY() 
END

Y uno diría que es como sigue:

Code (fw): Select all Collapse

nTestValue:= 5 
rs: = conn.execute("EXEC myProc @param1=" +str(nTestValue,2) )
MsgInfo("New ID was " + rs(0) )

Anser

jfafive

Posts: 396

Joined: Tue Mar 18, 2008 09:41 PM

Re: Ayuda urgente de SQL Server
Posted: Fri Jan 22, 2010 12:50 PM

Gracias por su ayuda.

De todos modos ya lo pude resolver usando un RecordSet en lugar el la cadena de conexión.

Dejo el código por si le sirviera a alguien:

Code (fw): Select all Collapse

   oRs:AddNew()
   ----- asignamos valores a campos

   oRs:Update()
   val := oRs:Fields( "Id" ):Value

Javier,

FWH 8.04 2008

FiveTech Support Forums

Continue the discussion