Foros del web, para los que viven de bits

eisen · 07-abr-2008, 10:34

Hola amigos foreros, tengo un problemo necesito recuperar un campo autonumerico cuando realizo un insert, el problema q no se como hacerlo en access. Me copie un codigo utilizando @@IDENTITY pero solo funciona en sql 2000. Ahi dejo mi codigo haber si alguien me puede ayudar.( o si tienen algun ejemplo de donde guiarme)
Gracias por la ayuda

DECLARE @Identidad numeric
insert into Registro(Reg_Gerencia, Fecha_Ingreso, NumDoc, Documento, Fecha_Documento, NumDpto, NumDiv, NumSec, Remitente, Asunto, Observaciones, NumEstado, NumDestino, NumRpta, Respuesta, NumArchivo, STD) values (45,'07/04/2008',2,'546','08/04/2008',1100,0,0,'546','546','',0,0,0,'',0,0);
SELECT @Identidad = @@IDENTITY

Quisiera que cuando haga el insert me retorne el valor del autonumerico q en mi caso esta en el campo id_registro

Shiryu_Libra · 07-abr-2008, 18:12

access....

Código PHP:


			
set rs = server.createobject("ADODB.Recordset")
RS.addnew
    rs.Fields.Item("Reg_Gerencia").value =45
    rs.Fields.Item("Fecha_Ingreso").value ='07/04/2008'
    rs.Fields.Item("NumDoc").value =2
    rs.Fields.Item("Documento").value ='546'
    rs.Fields.Item("Fecha_Documento").value ='08/04/2008'
    rs.Fields.Item("NumDpto").value =1100
    rs.Fields.Item("NumDiv").value =0
    rs.Fields.Item("NumSec").value =0
    rs.Fields.Item("Remitente").value ='546'
    rs.Fields.Item("Asunto").value ='546'
    rs.Fields.Item("Observaciones").value =''
    rs.Fields.Item("NumEstado").value =0
    rs.Fields.Item("NumDestino").value =0
    rs.Fields.Item("NumRpta").value =0
    rs.Fields.Item("Respuesta").value =''
    rs.Fields.Item("NumArchivo").value =0
    rs.Fields.Item("STD").value =0
RS.updatebatch
numero = int(rs.Fields.Item("index").value)
response.Write "Registro numero = " & numero

me pregunto... servira???

07-abr-2008, 10:34	#1 (permalink)
eisen Fecha de Ingreso: mayo-2005 Mensajes: 14	Recuperar un autonumerico de una BD ACCESS Hola amigos foreros, tengo un problemo necesito recuperar un campo autonumerico cuando realizo un insert, el problema q no se como hacerlo en access. Me copie un codigo utilizando @@IDENTITY pero solo funciona en sql 2000. Ahi dejo mi codigo haber si alguien me puede ayudar.( o si tienen algun ejemplo de donde guiarme) Gracias por la ayuda DECLARE @Identidad numeric insert into Registro(Reg_Gerencia, Fecha_Ingreso, NumDoc, Documento, Fecha_Documento, NumDpto, NumDiv, NumSec, Remitente, Asunto, Observaciones, NumEstado, NumDestino, NumRpta, Respuesta, NumArchivo, STD) values (45,'07/04/2008',2,'546','08/04/2008',1100,0,0,'546','546','',0,0,0,'',0,0); SELECT @Identidad = @@IDENTITY Quisiera que cuando haga el insert me retorne el valor del autonumerico q en mi caso esta en el campo id_registro Última edición por eisen; 07-abr-2008 a las 15:52.

07-abr-2008, 18:12	#2 (permalink)
Shiryu_Libra Colaborador Fecha de Ingreso: febrero-2007 Ubicación: Localhost/Pruebas.... Mensajes: 2.597	Re: Recuperar un autonumerico de una BD ACCESS access.... Código PHP: set rs = server.createobject("ADODB.Recordset") RS.addnew rs.Fields.Item("Reg_Gerencia").value =45 rs.Fields.Item("Fecha_Ingreso").value ='07/04/2008' rs.Fields.Item("NumDoc").value =2 rs.Fields.Item("Documento").value ='546' rs.Fields.Item("Fecha_Documento").value ='08/04/2008' rs.Fields.Item("NumDpto").value =1100 rs.Fields.Item("NumDiv").value =0 rs.Fields.Item("NumSec").value =0 rs.Fields.Item("Remitente").value ='546' rs.Fields.Item("Asunto").value ='546' rs.Fields.Item("Observaciones").value ='' rs.Fields.Item("NumEstado").value =0 rs.Fields.Item("NumDestino").value =0 rs.Fields.Item("NumRpta").value =0 rs.Fields.Item("Respuesta").value ='' rs.Fields.Item("NumArchivo").value =0 rs.Fields.Item("STD").value =0 RS.updatebatch numero = int(rs.Fields.Item("index").value) response.Write "Registro numero = " & numero me pregunto... servira??? __________________ "Eres parte del problema, parte de la solucion o parte del paisaje" Un Saludo desde Desierto de Altar, Sonora, MX. Shiryu_libra

Herramientas
Mostrar Versión Imprimible Enviar por Correo
Desplegado
Mode Lineal Cambiar a Modo Hibrido Cambiar a Modo Hilado