Error con Recordset en tiempo de ejecucion VB6

[patob]

Buenas, me esta saliendo un error muy raro cuando intento hacer una consulta SQL en el recordset.


rs1.Open "SELECT EosCodEmp,EosFecCot,EosCodRub,EosDscLin,SUM([Case] WHEN EosCodDC = 'C' THEN EosImpMN * -1 ELSE EosImpMN END) FROM Linea_Factura", cnn, adOpenDynamic, adLockOptimistic

Es una consulta simple, no tiene mayor dificultad, cuando la ejecuto me sale el siguiente error:

"Error en el metodo "open" del ebjeto '_Recordset'"

Esta es la conexion que hago a la base de datos acces

Sub abrirConexion()
Set cnn = New ADODB.Connection
cnn.CursorLocation = adUseClient
cnn.ConnectionString = App.Path + "\BaseDeDatos.mdb"
cnn.Provider = "microsoft.jet.oledb.4.0"
cnn.Open
End Sub

Espero puedan ayudarme Garacias!!

[patob]

Pude solucionarlo. Es un error con en microsoft.jet.oledb.4.0 Hay que poner las palabras claves entr []

Ahora otro error.

En la misma consulta:

SELECT EosCodEmp,EosFecCot,EosCodRub,EosDscLin,SUM([Case] WHEN EosCodDC = 'C' THEN EosImpMN * -1 ELSE EosImpMN END) FROM Linea_Factura

Me dice: Error de sintaxis (falta operador) en la exprecion de consulta 'SUM([Case] WHEN EosCodDC = 'C' THEN EosImpMN * -1 ELSE EosImpMN END)'

Gracias

[lokoman]

Hola!!
Creo que le faltan parámetros al query:

• No tienes GROUP BY (ya que usas la funcion SUM)
• No tienes la clausula WHERE (para fltrar los datos)

Nunca he usado los parametros WHEN... THEN... ELSE... END en un query... veo que cierras un parentesis en la linea del END, pero no lo abres...

[patob]

Probe lo que me dijiste lokoman, pero sigue el mismo error. La consulta quedo asi

SELECT EosCodEmp,EosFecCot,EosCodRub,sum(Case [when] EosCodDC = 'C' [THEN] EosImpMN *-1 [ELSE] EosImpMN [END]) FROM Linea_Factura Where Eoscodemp = 'IS' group by EosCodEmp,EosFecCot,EosCodRub"

Lo curioso es que es en acces 2007 que me da error, la probe en SQL y funciona bien

[lokoman]

Quita los [ ]:

Código vb:

"SELECT EosCodEmp,EosFecCot,EosCodRub,sum(Case when EosCodDC = 'C' THEN EosImpMN *-1 ELSE EosImpMN END) FROM Linea_Factura Where Eoscodemp = 'IS' group by EosCodEmp,EosFecCot,EosCodRub"
 

[patob]

Si quito los [] me da el error que comente al principio -.-

[lokoman]

Si no me equivoco Access usa los corchetes [ ] para los nombres de los campos, WHEN... THEN... ELSE... END... no son campos, sino instrucciones y al parecer son propias del SQL Server, no sirven en Access.

Lo que se me ocurre es lo siguiente:

Código vb:

'Un Recordset: 
 
rstData.Open "SELECT EosCodEmp,EosFecCot,EosCodRub, EosCodDC, sum(EosImpMN) as MONTO_SUMA FROM Linea_Factura Where Eoscodemp = 'IS' group by EosCodEmp,EosFecCot,EosCodRub, EosCodDC", cnn, adOpenDynamic, adLockOptimistic
 
'Luego, validar:
 
If EosCodDC='C' then 
   TOTAL= (rstData!MONTO_SUMA) *-1
Else
   TOTAL=rstData!MONTO_SUMA
End If
 

[patob]

Gracias lokoman, me sirvio, me termine pasando la base de datos a SQL para no tener futuros problemas.

[lokoman]