Crear consecutivo carnet

[sliderman]

Hola, Como creo un codigo de carnet que este compuesto por el id del usuario+la fecha del sistema+consecutivo? por ejemplo: 128102009001, 128102009002, 128102009003, etc??? Eso con vb 2008 y con la bd creada ahi mismo.

[eperedo]

El Id del usuario lo traes de la base de datos:
Un simple Select IdUsuario From Tabla_Usuario Where IdUsuario = @Usuario
El correlativo puede ser con un max, supongo que tienes una tabla carnet, sería algo así:
Select Max(IdCarnet) From Tabla_Carnet
Teniendo estos dos ya es cuestión de concatenar nada más:

Código vb.net:

Dim carne As New StringBuilder()
        carne.Append("IdUsuario") 'Reemplazar por el id que devuelva la BD.
        carne.Append(Date.Now.ToShortDateString.Replace("/", "")) 'Elimina barras
        carne.Append("001") 'Reemplazar por lo que devuelva la consulta con el Max
        MessageBox.Show(carne.ToString())
 

Espero te de una idea

[sliderman]

Gracias, voy a probar

[sliderman]

Es posible generar el consecutivo del carnet directamente en la bd, es decir en el campo carnet???

[Peterpay]

si pero depende el tipo de bd, si fuera sql server tu DBMS usa las propiedades Identity de tu campo y que sea un incremental empezando en x numero.

[eperedo]

Si también, la lógica sería la misma:

Código sql:

DECLARE @fecha datetime
SET @fecha = getdate()
SELECT 'Id'+ REPLACE(CONVERT(VARCHAR(10),@fecha,103),'/','')+'001'
 

Esto te devolvería: "Id30102009001"

[sliderman]

Ok. Probe, pero no me almacena el id geenrado en el campo carnet de cada uno de los usuarios, ademas el 001 permancece estatico. Eso directamente en la b que es sql server 2005. Por otra parte, si kiero generar los carnets al momento de me bota un error, dice que los campos no pueden ser nulos

[eperedo]

Lo que yo te mostré era la forma para generar el código, luego tendrías que hacer el insert into a tu tabla y como codigo de carnet le pasas ese valor.
Eso de que el 001 permanece estatico pues si, pero se supone que tu debes realizar una consulta tipo max a la tabla y recuperar el último valor para concatenarlo al código, no lo puse porque me pareció que se sobreentendía.

Código sql:

DECLARE @cod_carnet VARCHAR(20)
DECLARE @fecha datetime
SET @fecha = getdate()
SET @cod_carnet = 'Id'+ REPLACE(CONVERT(VARCHAR(10),@fecha,103),'/','')+'001' 
--
INSERT INTO tutabla(codigo_carnet, campo1, campo2, etc) VALUES(@cod_carnet, valor1, valor2, etc)
 

Saludos.