Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

ceros a la izquierda

23/04/2004 - 16:38 por rookie | Informe spam
Ayuda Hacer una pregunta
Hola,
el campo primario de la tabla "secundaria" es numerico, optenido del campo
secuencia_on de la tabla "primaria" el cual tambien es numerico, al grabar
un registro en la tabla secuandaria se guarda como "13", pero necesito que
guarde "0013", alguien sabe como hacerlo?

adjunto el codigo:

sqlFind = "SELECT * FROM SECUENCIA WHERE SECUENCIA.SECUENCIA_ON <> 0"

Set RS = server.CreateObject("adodb.recordset")

Set RS = ConnSQL.execute(sqlFind)

While not RS.EOF

Valor = (RS.Fields("SECUENCIA_ON"))

Aumento = 1

Final = (Valor + Aumento)

RS.Movenext

Wend

%>

<%

Dim objFSO

Dim objFile

Dim strLine

Dim strFilename

CODIGO_CURSO = (Final)
email Siga el debateRespuesta 1 respuestaRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Jhonny Vargas P.
23/04/2004 - 22:34 | Informe spam
Ahi va un ejemplo:

Response.Write RellenarCeros(13, 4)
Response.Write RellenarCeros(456, 8)


Function RellenarCeros(Numero, Cantidad)
RellenarCeros = Right("0000000000" & Numero, Cantidad)
End Function


Saludos,
Jhonny Vargas P. [MVP]
Santiago de Chile


"rookie" escribió en el mensaje
news:
Hola,
el campo primario de la tabla "secundaria" es numerico, optenido del


campo
secuencia_on de la tabla "primaria" el cual tambien es numerico, al grabar
un registro en la tabla secuandaria se guarda como "13", pero necesito que
guarde "0013", alguien sabe como hacerlo?

adjunto el codigo:

sqlFind = "SELECT * FROM SECUENCIA WHERE SECUENCIA.SECUENCIA_ON <> 0"

Set RS = server.CreateObject("adodb.recordset")

Set RS = ConnSQL.execute(sqlFind)

While not RS.EOF

Valor = (RS.Fields("SECUENCIA_ON"))

Aumento = 1

Final = (Valor + Aumento)

RS.Movenext

Wend

%>

<%

Dim objFSO

Dim objFile

Dim strLine

Dim strFilename

CODIGO_CURSO = (Final)




Preguntas similares

 

Busqueda sugerida :