Error con ADO y MySql

[Armando]

Amigos del foro:

En el siguiente código:

Code: Select all  Expand view  RUN

TRY
   oRsCxp   :=   TOleAuto():New("adodb.recordset")
CATCH oError
   MsgStop( "No se ha podido crear el RECORDSET de CUENTAS POR PAGAR !", oApp:cAplicacion)
   RETURN(.F.)
   oRsCxp   :=   NIL
END

oRsCxp:CursorLocation   := adUseClient
oRsCxp:LockType         := adLockOptimistic
oRsCxp:CursorType         := adOpenDynamic
oRsCxp:Source            := "SELECT * FROM carcxp;"
oRsCxp:ActiveConnection(oCon)

TRY
   oRsCxp:Open()
CATCH oError
   MsgStop( "No se ha podido abrir el RECORDSET carcxp !", oApp:cAplicacion)
   RETURN(.F.)
END

MsgInfo(oRsCxp:RecordCount())
//oRsCxp:MoveFirst()
DO WHILE !  oRsCxp:EOF()
   cCmdSql   := "UPDATE proyecto SET PRO_IMA = ROUND(PRO_IMA + " + ;
               STR(oRsCxp:Fields("CAR_NET"):Value,10,2) + ;
               ",2) WHERE PRO_PRO = " + "'" + oRsCxp:Fields("CAR_PRO"):Value + "'" + " ;"
   TRY
      oCon:Execute(cCmdSql)
   CATCH oError
      MsgInfo("No pude ejecutar el comando " + cCmdSql,oApp:cAplicacion)
      RETURN(.F.)
   END
   oRsCxp:MoveNext()
ENDDO
oRsCxp := NIL


Me tira un error en la línea de código oRsCxp:MoveFirst(), por eso la tengo comentada, tal parece que la tabla no tuviera registros pero sí los tiene pues abro la tabla con el administrador y veo los registros sin embargo el código me dice que esta vacia.

El error que me tira es el siguiente:

Error description: Error adodb.recordset/16389 E_FAIL: MOVEFIRST
Args:

Tengo varios RECORDSET antes y despues del trozo de código que les meustro y esos funcionan bien.

Que podrá ser ?

Saludos

[sysctrl2]

Armando amigo como estas,,

oyes el punto y coma que tienes en el qry. que significa?


oRsCxp:Source := "SELECT * FROM carcxp;"



saludos....

[Armando]

Que pasa ?, paisano:

Mira el punto y coma es irrelevante, diria yo que hasta innecesario, solo que me he quedado con la costumbre pues todos los comandos SQL deben terminar con ; , pero en el caso de la sentencia SELECT no es necesario.

Saludos

[Manuel Valdenebro]

Armando,

Te pongo el código que uso:

memvar oRs

oRs := TOleAuto():New("adodb.recordset")
oRs:CursorLocation := 3 // adUseClient
oRs:LockType := 3 // adLockOptimistic
oRs:CursorType := 1 // adOpenKeyset
oRs:Source := 'SELECT * FROM EMPLOYEES ORDER BY LAST_NAME'
oRs:ActiveConnection(oCon)
TRY
oRs:Open( )
CATCH oError
AdoError(oCon, oError) // funcion mcn32.lib
RETURN nil
END

IF oRs:EOF .or. oRs:BOF
msgstop ("Fichero vacio")
oRs:CLOSE()
oRS:=Nil
RETURN nil
ENDI

oRs:MoveFirst()

Veo solo diferencias en las dobles comillas de la orden SELECT y en el CURSORTYPE.

[Armando]

Manuel:

Te agradezco la respuesta pero nop

He cambiado mi código a la forma en como lo tienes tú pero ni así funca.

Le agregue estas lineas
IF oRs:EOF .or. oRs:BOF
MsgInfo("La tabla esta vacia !")
ENDIF

Y me muestra el mensaje de que esta vacia, sin embargo estoy seguro de que la tabla tiene registros pues los he visto con el administrador.

Me hace pensar que la tabla este dañada, sin embargo el resto de la aplicación la lee sin problemas, ya le corrí los procesos de revisión que me permite el ADMINISTRADOR de MySql pero no, no hay de piña.

Un abrazo