Problema con ejecucion de Recordset SQL Server 2008

[Salvadri]

Hola amigos, espero me ayuden, tengo un problema con la ejecucion de un recordset, resulta que venia programando en Visual Basic 6.0 con SQL Server 2000 y todo fue de maravilla........pero despues la empresa cambio de SQL Server 2000 a SQL Server 2008....ahora me estan apareciendo errores que no me aparecian con SQL Server 2000.

El primer error fue con el campo DateTime....bueno eso se soluciono.
Ahora me esta ocurriendo un problema, tengo una cadena SQL y ya no se ejecuta, me sale el siguiente error: "El objeto o proveedor no puede ejecutar la operacion requerida".

La cadena es esta:

rsLiquidacionPagar.Open "Select Serie,Numero,Código,Nombres,Fecha,Importe,tipo From (Select *, 'P' as tipprov From VistaEntregasParticular_3 Where estado <> 'A' and idsucursal='" & IdSucursal & "' and interfase<>'*'" & " UNION Select *, 'S' as tipprov From VistaEntregasSocios_3 Where estado <> 'A' and idsucursal='" & IdSucursal & "' and interfase<>'*'" & ") T Order by Fecha", DBconexion, adOpenStatic, adLockOptimistic

Esto me funcionaba en el SQL Server 2000, ahora no me funciona en el SQL Server 2008 y me sale ese bendito error que no me deja avanzar el desarrollo.......

Ayuden por favor........

[-rommel_]

amigos solo ordene un poco tu consulta... es pero te ayude... a ver si te sale asi... primero ejecuta esta consulta y si te sale bien es problema de nombres en las cabeceras...
1ra consulta:

Código SQL:

SELECT Serie,Numero,Codigo,Nombres,Fecha,Importe,tipo,'P' AS tipprov 
FROM VistaEntregasParticular_3 
WHERE   estado <> 'A' 
     AND idsucursal='" & IdSucursal & "' 
     AND interfase<>'*'" & " 
UNION ALL
SELECT Serie,Numero,Codigo,Nombres,Fecha,Importe,tipo, 'S' AS tipprov 
FROM VistaEntregasSocios_3 
WHERE   estado <> 'A' 
      AND idsucursal='" & IdSucursal & "' 
      AND interfase<>'*'" & "
ORDER BY Fecha
 

y si te sale el resultado de esta, entonces ejecuta
2da consulta

Código SQL:

SELECT tt.Serie, tt.Numero, tt.Codigo, tt.Nombres, tt.Fecha, tt.Importe, tt.tipoprov
FROM (  SELECT Serie,Numero,Codigo,Nombres,Fecha,Importe,tipo,'P' AS tipprov 
        FROM VistaEntregasParticular_3 
        WHERE   estado <> 'A' 
            AND idsucursal='" & IdSucursal & "' 
            AND interfase<>'*'" & " 
        UNION ALL
        SELECT Serie,Numero,Codigo,Nombres,Fecha,Importe,tipo, 'S' AS tipprov 
        FROM VistaEntregasSocios_3 
        WHERE   estado <> 'A' 
            AND idsucursal='" & IdSucursal & "' 
            AND interfase<>'*'" & "
     )  TT 
ORDER BY tt.Fecha
 

Saludos amigo...

[Salvadri]

Bueno ya lo solucione.

Lo que paso fue que en tanto ajetreo por hacer la conexion con el SQL Server 2008, cambie algunos parametros que usaba con el SQL Server 2000, pero cuando por fin logre la conexion, no volvi los parametros a su estado real.

El problema fue aca:

DBconexion.CursorLocation = adUseClient

En vez de adUseClient, estaba con adUseServer, es esto que generaba el error.

Lo pongo por si acaso a alguien le ayude......

De todas maneras muchas gracias -rommel_

Bye