ASP.NET - PONER CEROS

   
Vista:

PONER CEROS

Publicado por Edgar  (26 intervenciones) el 18/12/2007 00:22:50
Estimados amigos del foro tengo una consulta que realizar....
estoy realizando una inserción de campos en una tabla utilizando un boton de comando,
como podran ver mas abajo `la programación

PREGUNTA.-

COMO USTEDES PUEDEN VER EL BOTON INSERTAR, INSERTA UN NUEVO REGISTRO EN UNA TABLA........ PERO DESEO PREGUNTAR, CUAL SERIA LA PROGRAMACION PARA QUE CUANDO INGRESE UN SOLO NUMERO ME SUME DELANTE DE ESTE 6 CEROS..

EJEMPLO:
EN CADA CAMPO TEXTO YO INGRESO :
1 1 1 1 1 1 1

COMO HAGO PARA QUE CUANDO INGRESE UN SOLO NUMERO DELANTE DE ESTE SE PONGAN:

0000001 0000001 0000001 0000001 0000001

O SI INGRESO 2 numeros ejemplo:

12 12 12 12 12

SE PONGA :
0000012 0000012 0000012 0000012 0000012

IGUAL SI INGRESO 3 numeros :

123 123 123 123 123

SE PONGA
0000123 0000123 0000123 0000123 0000123

ASI SI INGRESAN 4 NUMEROS, 5 NUMEROS O 6 NUMEROS
ME COMPLETE DE CEROS HASTA TENER EN TOTAL 7 NUMEROS

DE ANTE MANO MUCHAS GRACIAS

Private Sub cmdInsertar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdInsertar.Click
Me.GenerarConexiones()
Dim _insert As New System.Data.SqlClient.SqlCommand("INSERT INTO CONTB_SECUENCIAL(SECUENCIAL_INGRES, SECUENCIAL_EGRESO, SECUENCIAL_DIARIO, SECUENCIAL_ASIENTO, SECUENCIAL_RETEN_FUENTE, SECUENCIAL_RETEN_IVA) VALUES('" + Me.txtIngreso.Text + "','" + Me.txtEgreso.Text + "','" + Me.txtDiario.Text + "'," + Me.txtAsiento.Text,+ "'," +Me.txtAsiento.text+ "'," +Me.txtAsiento+ "'," +Me.txtFuente.text+ "'," +Me.txtIva.text + ")")
oCon.INSERT_COMMAND = _insert
Dim status As Boolean = oCon.InsertFields()
End Sub

ESTE comando accede a una clase donde estan definidas todas las propiedades , conexion y demas:

Public Class dbOperations

Sub New()

End Sub

Private _DataBase As String
Private _DELETE_COMMAND As SqlCommand
Private _INSERT_COMMAND As SqlCommand
Private _Password As String
Private _SELECT_COMMAND As SqlCommand
Private _Server As String
Private _UPDATE_COMMAND As SqlCommand
Private _UserId As String
Public [ERROR] As String

Public Property DataBase() As String
Get
Return _DataBase
End Get
Set(ByVal Value As String)
_DataBase = Value
End Set
End Property
Public Property DELETE_COMMAND() As SqlCommand
Get
Return _DELETE_COMMAND
End Get
Set(ByVal Value As SqlCommand)
_DELETE_COMMAND = Value
End Set
End Property
Public Property INSERT_COMMAND() As SqlCommand
Get
Return _INSERT_COMMAND
End Get
Set(ByVal Value As SqlCommand)
_INSERT_COMMAND = Value
End Set
End Property
Public Property Password() As String
Get
Return _Password
End Get
Set(ByVal Value As String)
_Password = Value
End Set
End Property
Public Property SELECT_COMMAND() As SqlCommand
Get
Return _SELECT_COMMAND
End Get
Set(ByVal Value As SqlCommand)
_SELECT_COMMAND = Value
End Set
End Property
Public Property Server() As String
Get
Return _Server
End Get
Set(ByVal Value As String)
_Server = Value
End Set
End Property
Public Property UPDATE_COMMAND() As SqlCommand
Get
Return _UPDATE_COMMAND
End Get
Set(ByVal Value As SqlCommand)
_UPDATE_COMMAND = Value
End Set
End Property
Public Property UserId() As String
Get
Return _UserId
End Get
Set(ByVal Value As String)
_UserId = Value
End Set
End Property
End Class
End Namespace
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:PONER CEROS

Publicado por Javier Santamaria (312 intervenciones) el 18/12/2007 13:01:11
Te conteste aqui:

http://asp.net.do/foros/ShowPost.aspx?PostID=4162#4162
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar