ceros a la izquierda

23/04/2004 - 16:38 por rookie | Informe spam
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 similare

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)




email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida