Aplicación con Visual Basic 6 en Wine + Winetools

Imagen de JordiBcn
0 puntos

Hola a todos.

Tengo un problema aparentemente sin sentido y quisiera saber si alguien sabe porque puede ser...

Hace 1 semana me cambié a Ubuntu (antes estaba en XP) y he pasado mi aplicación de gestión hecha en Visual Basic a mi nuevo equipo Ubuntu, usando Wine y Winetools. He instalado todos los programas que vienen en WineTools.

Lo que pasa es curioso... Tengo un trozo de código que en algunas partes del programa me peta y en otras no... El código es una búsqueda en una base de datos de Access:

-Código en el que peta:

vSQL = "Select * from Empleados Where CodEmp = 'Condicion'"
Set RS1 = BDD.OpenRecordset (vSQL)
If RS1!ACliEmp = "b" then... <-- Al intentar mirar 1 campo del registro, el programa peta...

-Código en el que lo mismo no peta:

vSQL = "Select * from Contadores Where CodCont = 'Condicion'"
Set RS99 = BDD.OpenRecordset (vSQL)
vCodTab = RS99!CodTab <-- Aqui me informa bien del valor del campo del registro...

Además, es un código que me funciona desde hace meses en Windows sin ningún problema...

Si a alguien se le ocurre de que puede ser, me seria de gran ayuda su opinión porque llevo varios dias peleandome y no le veo sentido...

Saludos y grácias.

Imagen de JordiBcn
+1
0
-1

If RS1!ACliEmp = "b" then... -- Al intentar mirar 1 campo del registro, el programa peta...

-Código en el que lo mismo no peta:

vSQL = "Select * from Contadores Where CodCont = 'Condicion'"
Set RS99 = BDD.OpenRecordset (vSQL)
vCodTab = RS99!CodTab -- Aqui me informa bien del valor del campo del registro...

Funciona desde hace meses en Windows sin ningún problema...

Si a alguien se le ocurre de que puede ser, me seria de gran ayuda.

Saludos y grácias.

+1
0
-1
Imagen de JordiBcn
+1
0
-1

Parece ser que Wine no acepta que se definan varios recordsets en la misma línea...

La solución es cambiar el código:

Dim RS1, RS2 as recordset

por...

Dim RS1 as recordset
Dim RS2 as recordset

Y funciona.

+1
0
-1