Visual Basic - contador de la forma 001,002,010..100

Life is soft - evento anual de software empresarial
 
Vista:

contador de la forma 001,002,010..100

Publicado por james (149 intervenciones) el 12/07/2006 15:53:53
Hola amigos foristas, tengo la siguiente consulta e implementado un contador de registros el cual trabaja muy bien y de la siguiente forma:
1,2,3,4...100 esto se realiza automaticamente para darle codigo a los registros nuevos de mi base de datos osea :
bu1,bu2,....bu10,bu11
pero se desea que sea de la suuiguiente forma:
bu001,bu002,bu003,bu010,...bu100

osea con los ceros adelante como puedo realizar esto , ayuda por favor:

el codigo que manejo es el siguienete :

Dim rsTemporal As ADODB.Recordset
Dim iContador As Integer
Dim sqlCadena As String

Set rsTemporal = New ADODB.Recordset

rsTemporal.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\SYS\BD\PPTOS.mdb;Persist Security Info=False"

DataCombo1.Locked = False

OFiltro = DataCombo4.BoundText
SFiltro = DataCombo1.BoundText

sqlCadena = "Select * from PPTO where obra='" & OFiltro & "' and subc='" & SFiltro & "'"
rsTemporal.Open sqlCadena, , adOpenDynamic, adLockOptimistic

If Cmd_Grabar.BackColor = RGB(255, 255, 0) Then

If rsTemporal.BOF = True And rsTemporal.EOF = True Then
iContador = 1
Else
rsTemporal.MoveFirst
iContador = 1
While Not rsTemporal.EOF
iContador = iContador + 1
rsTemporal.MoveNext
Wend
End If
Text16 = Str(iContador)
Text6.Text = Text16.Text
rsTemporal.Close
Set rsTemporal = Nothing
End If

gracias por su ayuda .
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:contador de la forma 001,002,010..100

Publicado por renzix (20 intervenciones) el 12/07/2006 20:00:35
tendrias que usar la funcion mod para saber de cuantas cifras es el nro que tenes y asi armar la cadena asignandole "0" o "00" o "000" o "000...n"depende tambien de cual es el tope de cifras va a ser la cantidad de ceros por delante del codigo.
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
sin imagen de perfil

RE:contador de la forma 001,002,010..100

Publicado por Daniel (61 intervenciones) el 12/07/2006 21:19:56
Lo ideal es hacerlo con Format.

en vez de : Text16 = Str(iContador)

hacer : Text16 = Format(iContador, "000")
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

RE:contador de la forma 001,002,010..100

Publicado por james (149 intervenciones) el 13/07/2006 17:36:20
Gracias daniel , con el format solucione mi problema
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