Mision imposible?

[bentox]

Hola , mi pregunta es la siguiente:

Tengo una base de datos en sql server en la cual tengo una relacion uno a uno entre dos tablas, en la que una de las cuales tiene un key autonumerico y la otra es el valor que le asignan a la primera, pues estan relacionadas.

Mi problema viene cuando miro de dar de alta
un registro, pues tengo que conseguir el código autonumérico que le asigna a la primera tabla , para ponerselo a la segunda.

Alguna sugerencia de como hacer esto, o es una mision imposible.

[urjose]

<a href='ir.asp?http://www.forosdelweb.com/mensaje.asp?id=63900&amp;r=5' target='_blank'>http://www.forosdelweb.com/mensaje.asp?i...</a>

Saludos

<center>
<a href=http://comunidadguru.com><img border=0 src=http://comunidadguru.com/imagenes/logos/logo.gif></a>
</center>

[bentox]

Antes de nada, darte las gracias por responder.

Tras mirar el código, era algo parecido a lo que estaba haciendo, pero lo único que consigo es que salga el texto que hay en el response.write, pero ni rastro del valor.

A que se puede deber?

Aqui tienes el código que utilizo.

&lt;%@Language=&quot;VBScript&quot;%&gt;
&lt;!--#include FILE=&quot;adovbs.inc&quot; --&gt;
&lt;%

' RecordSet and Connection objects, and SQL string
Dim oRS, Conn, strSQL

Dim results
set Conn = server.createobject(&quot;ADODB.Connection&quot;)
set oRS=server.CreateObject(&quot;ADODB.Recordset&quot ;)
Conn.open &quot;Provider=SQLOLEDB.1;Persist Security Info=False;User ID=***;Password=****;Initial Catalog=**;Data Source=***&quot;

oRs.Open &quot;tt&quot;, Conn, 1, 2, 2

oRs.AddNew
oRs(&quot;tt&quot;)=&quot;que poasa&quot;
Response.Write &quot;Este es el autonúmerico para este registro: &quot;&amp; oRS(&quot;Id_tt&quot;)
'Guardamos los cambios
oRS.Update

'Cerramos la conexion
oRS.Close
Conn.Close

'Liberamos los recursos para que se pueda volver a usar inmediatamente
Set oRS = Nothing
set Conn= Nothing

%&gt; :(

[bentox]

Tras mirar más el tema, he conseguido que funcione el ejemplo con una bd en access utilizando este código. Pero si hago la conexion a la bd remota en sql server , no veo nada de nada.

Help me please!!!!

&lt;%@Language=&quot;VBScript&quot;%&gt;
&lt;!--#include FILE=&quot;adovbs.inc&quot; --&gt;
&lt;%
set Conn = server.createobject(&quot;ADODB.Connection&quot;)
set Tabla = server.CreateObject(&quot;ADODB.Recordset&quot;)
Tabla.CursorType = 1
Tabla.LockType = 2
Conn.open &quot;DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=&quot;&amp;server.mappath(&quot;datos.mdb&quot ;)
Tabla.Open &quot;ta&quot;, Conn

Tabla.AddNew

Tabla(&quot;campox&quot;) = &quot;Lo que sea&quot;

Response.Write &quot;Este es el autonúmerico para este registro: &quot; &amp; Tabla(&quot;ID_autonumerico&quot;)
Tabla.Update

Response.Write &quot;Este es el autonúmerico para este registro: &quot; &amp; Tabla(&quot;ID_autonumerico&quot;)
Tabla.Close
Set Tabla = nothing
Conn.close
set Conn = nothing

%&gt;

[urjose]

Otra cosa que puedes hacer es una query

Set Rs=Conexion.Execute(&quot;SELECT MAX(TU_CAMPO_ID) AS ULTIMO FROM TABLA&quot;)

y lo recoges

UltimoValor=Rs(&quot;Ultimo&quot;)

Saludos

<center>
<a href=http://comunidadguru.com><img border=0 src=http://comunidadguru.com/imagenes/logos/logo.gif></a>
</center>

[bentox]

Buenas otra vez, creo que con este último método existe la posibilidad, aunque pequeña de que ese entre el select haya otra inserción y entonces ya la tendria liada....

Puede haber alguna otra manera?

Gracias