Normalizar columna Base datos
 

Hola a todos,

Nuevamente acudo a vosotros para ver si me podeis ayudar a resolver el siguiente problema:

Tengo una base datos "Interbase" con una tabla llamada "piezas" y en ella una columna llamada "REF" y cuyos datos no son numerico y estan tal com el siguiente ejemplo:

REF
000100-S
085143E
973
1000
X806582-00
2315
BG24204066

Y así hasta unos 20.000 registros, mi problema viene en que ahora dichas referencias deben tener un mínimo de 6 registros, es decir (basándonos en el ejemplo anterior) debo transformar la referencia 973 en 000973 y las que tengan mas de 6 no tocarlas(ejemplo: 085143E), con un administrador de base de datos puedo ir editando una a una todos aquellos registro que deseo pero como son muchos es por lo que acudo a vuestra ayuda para intentar resolver este, para mi, gran problema.

Desde ya les estoy muy agradecido

Un saludo

Taburiente

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í

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

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 :cool:

Resp
 

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

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



Saludos

resp
 

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