SoloCodigo
Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: enterariel en Martes 29 de Junio de 2010, 23:51
Título:
Odenar de esta forma en Visual Basic 6
Publicado por:
enterariel
en
Martes 29 de Junio de 2010, 23:51
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
SELECT
*
FROM
tabla1
WHERE
(
(
(
ARTICULO
)
LIKE
'*MUNDIAL*'
)
)
ORDER
BY
CInt
(
Mid
(
[
CODIGO
]
,
1
,
2
)
)
,
CInt
(
Mid
(
[
CODIGO
]
,
4
,
2
)
)
,
CInt
(
Mid
(
REPLACE
(
REPLACE
(
[
CODIGO
]
,
"("
,
""
)
,
")"
,
""
)
,
7
)
)
;
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))