Ver Mensaje Individual
  #6 (permalink)  
Antiguo 15/02/2002, 11:15
vgaray
 
Fecha de Ingreso: octubre-2000
Ubicación: Juarez, Chih.
Mensajes: 161
Antigüedad: 24 años, 7 meses
Puntos: 0
Re: Predecir Autonumérico

Saludos.

Creo que al final lo que quieres hacer es impedir que un archivo no sobreescriba algun otro ya grabado en el servidor y por eso haces uso del campo autonumerico.

Bien, si es eso; revisa el siguiente código...

<%

Usuario = Session("Nombre_Usuario") 'supongamos que en esta variable de sesion tienes el nombre de tu usuario

Usuario = Replace(Usuario," ","_")

set Conn = server.createobject("ADODB.Connection")
set Tabla = server.CreateObject("ADODB.Recordset")

Conn.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("tu_base_de_datos.mdb")

Tabla.Open "tabla_a_usar",Conn, 1, 2, 2 'tabla_a_usar es el nombre exacto de alguna tabla en tu base de datos (en esta línea se encuentra la "magia" de este código)

Tabla.AddNew

Tabla("Documento") = Usuario & Tabla("ID_autonumerico") & ".doc" 'suponiendo que tienes estos campos...

Tabla.Update

Session("id") = Tabla("ID_autonumerico") 'hasta aqui, inclusive puedes seguir usando usar el valor autonumerico para este registro

Tabla.Close
Set Tabla = nothing

Conn.close
set Conn = nothing

%>

Lo adopté un poco a tus necesidades para que se entienda más rápido. Con esto obtendrás siempre un nombre diferente para los archivos .doc a los que haces referencia.

Esta lógica la tuvé que aprender para usarla en un sitio donde se suben archivos al servidor y quería impedir que los archivos se sobreescribieran.



---------------------
Espero que esto ayude...