Normalizar columna Base datos

[Rockin]

Puedes ir recorriendo cada registro y ver la longitud que tiene, si es menor que 6 le añades y si no pues pasas al siguiente, algo así.

1º) Selecciona todos los registros
2º) los recorres así

for i:= 1 to num_registros do
begin
     referencia:= TableName.FieldBYname('referencia').AsString //vemos la referencia 


      while Lentgh (referencia < 6) do //mientras sea menor de 6 añadimos un 0
      begin
          referencia:= '0' + referencia
      end;

TableName.nex;
end;

No se que componentes usas de conexión ni nada, pero sería algo así, también pordrías hacerlo con un procedimiento almacenado.

Espero que te sirva de ayuda

[Taburiente]

Gracias Rockin por tu repuesta, en algo como eso había también yo pensado, lo que si quería saber es si seria posible normalizar dicha columna con alguna sentencia sql o algo por el estilo y utilizando algún administrador de base de datos (EMS sql manager por ejemplo).

Saludos




PD: he tenido bastantes problemas para entrar en esta pagina porque mi navegador decia que este sito es potencialmente peligroso y no me dejaba entrar

[rastafarey]

Código SQL [-]
/*Declara estas dos funciones*/
DECLARE EXTERNAL FUNCTION lpad 
  CSTRING(255), INTEGER, CSTRING(1)
  RETURNS CSTRING(255) FREE_IT
  ENTRY_POINT 'IB_UDF_lpad' MODULE_NAME 'ib_udf';

DECLARE EXTERNAL FUNCTION strlen 
  CSTRING(32767)
  RETURNS INTEGER BY VALUE
  ENTRY_POINT 'IB_UDF_strlen' MODULE_NAME 'ib_udf';

/*esto es para que pruebes como te quedarian los datos*/
Select Case
         When (strlen(Ref) < 6) Then Lpad(Ref, 6, '0')
         Else Ref
       End As Ref
From Piezas

/*Aqui arreglas tu base de datos*/
Update Piezas Set
       Ref =  Lpad(Ref, 6, '0')
Where strlen(Ref) < 6

Espero te funcione

[Taburiente]

Gracias rastafarey, eres un genio, dime a donde te mando las cervezas, jejejeje



Saludos

[rastafarey]

Bueno espero te haya funcionado.
Las cervezas me las debes.