Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   MS SQL Server (https://www.clubdelphi.com/foros/forumdisplay.php?f=23)
-   -   Icrementar campo string (https://www.clubdelphi.com/foros/showthread.php?t=79904)

Jere_84 20-08-2012 21:06:56

Icrementar campo string
 
Hola club, esto parece muy simple pero no se como hacerlo. Tengo un campo tipo varchar(50) pero en este estoy guardando numeros de la siguiente forma: 01, 02, 03. Ahora lo que tengo que necesito es incrementar este valores en uno. Intente de la siguiente manera:

Código SQL [-]
select max(CODIGO)+1 from Ciudad

Al hacer esto me devulve el siguiente pero sin el cero adelante, digamos que en vez de devolver '04', devuelve: '4, Como puedo incrementar sin que me pierda el cero que antepone al numero?

Saludos.

roman 20-08-2012 21:15:52

De entrada, yo no usaría un campo varchar sino un campo integer. El cero al principio es una cuestión de formato de presentación de datos y puedes logarlo de muchas maneras, del lado del cliente o incluso desde la consulta SQL.

// Saludos

kapcomx 22-08-2012 21:29:05

espero te sirva
 
Ke tal compañero espero te sirva este ejemplo que uso para claves...
utilizo XE2 con Interbase.

con un generador saco el número..

Código Delphi [-]
dm.get_clave_clase.ExecProc;
     if (dm.get_clave_clase.Params[0].Value < 10) then
     edtclave.Text:='CL0' + inttostr(dm.get_clave_clase.Params[0].Value)
     else
     edtclave.Text:='CL' + inttostr(dm.get_clave_clase.Params[0].Value);



        dm.clase_i.Params[0].Value:= edtclave.Text;
        dm.clase_i.Params[1].Value:= edtclase.Text;
        dm.clase_i.Params[2].Value:= cbxtipo.Text;
        dm.clase_i.ExecProc;

Saludos...:cool:


La franja horaria es GMT +2. Ahora son las 07:46:36.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi