Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Bases de datos > Firebird e Interbase
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

 
 
Herramientas Buscar en Tema Desplegado
  #2  
Antiguo 28-06-2010
Rockin Rockin is offline
Miembro
 
Registrado: may 2003
Ubicación: Málaga
Posts: 264
Poder: 24
Rockin Va por buen camino
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í

Código:
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
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
como normalizar audio en tiempo real? omicronanime Varios 6 14-04-2009 16:35:52
No repetir datos en una columna edusus Conexión con bases de datos 3 23-04-2006 18:24:51
Suma de Datos de Columna en paradox gersongelabert Tablas planas 2 14-08-2005 06:20:37
Levantar Datos de Columna en Grid lionsoft Varios 6 28-03-2005 19:50:06
Columna calculada en base a otra columna calculada Al González Firebird e Interbase 1 09-02-2004 23:51:57


La franja horaria es GMT +2. Ahora son las 22:33:02.


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