SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: fabriccio en Viernes 16 de Marzo de 2007, 20:13

Título: Problema Con Generar Codigo
Publicado por: fabriccio en Viernes 16 de Marzo de 2007, 20:13
Hola
     Tengo un problema para generar codigos automaticamente yo habia hecho un procedimiento en una base de datos de SQL que me salia bien, pero tuve que cambiar la base de datos por una de ACCESS.

Este es el procedimiento que use para la base de datos de SQL:
GO
   CREATE PROCEDURE USP_OBTENER_CODIGO_CLIENTE
   @NuevoCodigo char(6) OUTPUT
   as
     declare @maximo integer
     set @maximo = (select max(convert(int, codcli)) from clientes)
     set @maximo = @maximo + 1
         
   SET @NuevoCodigo = (replicate('0',6 - len(@maximo)) +   convert(char(6),@maximo))

Lo que hace el procedimiento es generar un codigo, depente al numero de registros que tenga una tabla, osea:

Si no hay registros el primer codigo que generara es 000001,conforme se vaya aumentando registros va a aumentando el numero del codigo,algo asi:
Registro numero 2: generara 000002
Registro numero 3: generara 000003
....
...
Registro numero 10: generara 00010
Y asi sucesivamente, lo que necesito es crear un procedimiento similar al de SQL, que me genere el codigo pero para ACCESS.Gracias
Título: Re: Problema Con Generar Codigo
Publicado por: ElNapster en Viernes 16 de Marzo de 2007, 21:33
No existe en access un tipo de variable IDENTITY como la de SQL ? para que el vaya incrementando el valor , vos lo capturas y le concatenas los 0000 dependiendo la longitud del valor devuelto ?

 :comp:
Título: Re: Problema Con Generar Codigo
Publicado por: fabriccio en Viernes 16 de Marzo de 2007, 21:41
Me refiero a crear un procedimiento pero en VB 6,no en ACCESS, no importa la manera, o la forma del codigo y ni las funciones que se usen, la cosa es que salga =)
Mi problema es que no me hago una idea de como hacerlo.