ordenar una base de datos de tipo string
Publicado por CARLOS KU MIS (6 intervenciones) el 01/04/2008 22:53:28
Hola saludos, soy nuevo en esto de programacion, alguien puede ayudarme con este caso? el problema hice una base de datos llamado CLIENTES y a un registro lo llame ORDEN el cual utilizo como consecutivo, pero inicia con una letra ejemplo: A1, A2 etc... pero mi error al crearlo lo puse como tipo TEXTO y el problema que tengo ahora con este es al querer ordenarlo ya que ahora ya estoy en el numero A101 pero ya mi consecutivo me lo deja en A100
ES DECIR QUE ME LO ORDENE DE ESTA MANERA Y ME ARROJE EN EL TEXT1 EL SIGUIENTE FOLIO QUE SERIA A102 PERO SOLO SE QUEDO HASTA A99 EL CUAL ME AROJA COMO RESULTADO A100:
EJEMPLO:
A98
A99
A100
A101... TEXT1=A102
ENVIO MI CODIGO QUE UTILIZO SI ALGUIEN TIENE ALGUNA OTRA OPCION DE CODIGO PASEMELO....
Dim mousepointer As Integer
mousepointer = Screen.mousepointer
Screen.mousepointer = vbHourglass
Rs2.Open "Select *from Clientes order by ORDEN", Db2, adOpenKeyset, adLockOptimistic
Rs2.MoveFirst
Do While Not Rs2.EOF
Rs2.MoveLast
TEXT1 = Rs2.Fields("ORDEN")
Exit Do
Rs2.MoveNext
Loop
Rs2.Close
Screen.mousepointer = mousepointer
ES DECIR QUE ME LO ORDENE DE ESTA MANERA Y ME ARROJE EN EL TEXT1 EL SIGUIENTE FOLIO QUE SERIA A102 PERO SOLO SE QUEDO HASTA A99 EL CUAL ME AROJA COMO RESULTADO A100:
EJEMPLO:
A98
A99
A100
A101... TEXT1=A102
ENVIO MI CODIGO QUE UTILIZO SI ALGUIEN TIENE ALGUNA OTRA OPCION DE CODIGO PASEMELO....
Dim mousepointer As Integer
mousepointer = Screen.mousepointer
Screen.mousepointer = vbHourglass
Rs2.Open "Select *from Clientes order by ORDEN", Db2, adOpenKeyset, adLockOptimistic
Rs2.MoveFirst
Do While Not Rs2.EOF
Rs2.MoveLast
TEXT1 = Rs2.Fields("ORDEN")
Exit Do
Rs2.MoveNext
Loop
Rs2.Close
Screen.mousepointer = mousepointer
Valora esta pregunta


0