• Domingo 22 de Diciembre de 2024, 19:06

Autor Tema:  Odenar de esta forma en Visual Basic 6  (Leído 1234 veces)

enterariel

  • Nuevo Miembro
  • *
  • Mensajes: 2
    • Ver Perfil
Odenar de esta forma en Visual Basic 6
« en: Martes 29 de Junio de 2010, 23:51 »
0
Hola de nuevo amigos estoy haciendo una aplicacion en VB6 con Base Datos Access y quiero ordenar un campo de esta forma

01.01.01
01.01.02
01.01.03
01.01.98
01.01.99
01.01.100
01.01.101
01.01.102 (este va ir subiendo puede alcanzar hasta mil)

a partir de aca cambia el 2do .01

01.02.01
01.02.02
01.02.03
01.02.98
01.02.99
01.02.100
01.02.101
01.02.102 (este va ir subiendo puede alcanzar hasta mil)

y así sucesivamente


Con este código de SQL de Access puedo hacer perfectamente (dentro de access).

Código: SQL
  1. SELECT *
  2. FROM tabla1
  3. WHERE (((ARTICULO) LIKE '*MUNDIAL*'))
  4. ORDER BY CInt(Mid([CODIGO],1,2)), CInt(Mid([CODIGO],4,2)), CInt(Mid(REPLACE(REPLACE([CODIGO],"(",""),")",""),7));
  5.  
  6.  
 

Pero al llevar en Visual Basic 6 me aparece este error

Error '3075' en tiempo de ejecucion:
Syntax error in string in query expresion

'Cint(Mid(Replace(Replace((P_Codigo),(',''),')',''),7))