FiveTech Support Forums

Ayuda Estimados,

Tengo una aplicacion con ADO y MySql todo va bién hasta que 2 usuarios modifican el mismo registro del recordset, y ahi el programa se cae en el usuario que grabó al final.
GRACIAS de antemano por cualquier ayuda.

estoy definiedo el bloqueo como sale a continuación:

oCmd := TOLEAUTO():New("adodb.command")
oCmd :ActiveConnection(oCon)
oRS := TOleAuto():New("adodb.recordset")
oRS :CursorLocation := adUseClient
oRS :LockType := adLockOptimistic <------------ TIPO DE BLOQUEO
oRS :CursorType := adOpenKeyset
oRs:ActiveConnection(oCon)
oRs:Source := "SELECT * FROM clientes ORDER BY NomCuenta "

Luis,

¿ Que mensaje te muestra el ado ?, te comento que yo tengo sistemas con ado y mysql con hasta 20 usuarios concurrentes sin problemas.

Atte.,

Lautaro Moreira

Lautaro,
(mi correo:luisalfonsofuentesg@gmail.com para una asesoria $$ ?)
Este es el error:

Application
===========
Path and name: C:\SISTEMAS\TARGET\SISGES.Exe (32 bits)
Size: 2,473,984 bytes
Time from start: 0 hours 4 mins 52 secs
Error occurred at: 13/10/2011, 15:37:41
Error description: Error adodb.recordset/6 DISP_E_UNKNOWNNAME: MOVE
Args:
[ 1] = N 0

Stack Calls
===========
Called from: source\rtl\win32ole.prg => TOLEAUTO:MOVE(0)
Called from: C:\SISTEMAS\TARGET\mancli.prg => SKIPPER(167)
Called from: C:\SISTEMAS\TARGET\mancli.prg => (b)MANCLI(98)
Called from: .\source\classes\WBROWSE.PRG => TWBROWSE:SKIP(1733)
Called from: .\source\classes\WBROWSE.PRG => TWBROWSE:PAINT(757)
Called from: .\source\classes\WBROWSE.PRG => TWBROWSE:DISPLAY(2277)
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT(1630)
Called from: .\source\classes\WBROWSE.PRG => TWBROWSE:HANDLEEVENT(1656)
Called from: .\source\classes\WINDOW.PRG => _FWH(3443)
Called from: => DIALOGBOXINDIRECT(0)
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE(277)
Called from: .\source\function\ERRSYSW.PRG => ERRORDIALOG(394)
Called from: .\source\function\ERRSYSW.PRG => (b)ERRORSYS(31)
Called from: source\rtl\win32ole.prg => TOLEAUTO:_SORT(0)
Called from: C:\SISTEMAS\TARGET\mancli.prg => EDITA_MAR(242)
Called from: C:\SISTEMAS\TARGET\mancli.prg => (b)MANCLI(87)
Called from: .\source\classes\WINDOW.PRG => TWINDOW:LDBLCLICK(1902)
Called from: .\source\classes\CONTROL.PRG => TCONTROL:LDBLCLICK(1685)
Called from: .\source\classes\WBROWSE.PRG => TWBROWSE:LDBLCLICK(1114)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT(1670)
Called from: .\source\classes\WBROWSE.PRG => TWBROWSE:HANDLEEVENT(1656)
Called from: .\source\classes\WINDOW.PRG => _FWH(3443)
Called from: => DIALOGBOX(0)
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE(277)
Called from: C:\SISTEMAS\TARGET\mancli.prg => MANCLI(130)
Called from: C:\SISTEMAS\TARGET\sisges.prg => (b)MAIN(198)
Called from: .\source\classes\TOOLBAR.PRG => TTOOLBAR:COMMAND(219)
Called from: .\source\classes\WINDOW.PRG => TWINDOW:COMMAND(1051)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: .\source\classes\WINDOW.PRG => _FWH(3443)
Called from: => WINRUN(0)
Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE(995)
Called from: C:\SISTEMAS\TARGET\sisges.prg => MAIN(262)
Called from: C:\SISTEMAS\TARGET\sisges.prg => INICIO(107)

este es el codigo de la rutina de grabación:

Luis

El


muevelo a antes de


No puedes mover la posicion del recordset antes de hacer el update, ya que el move implica update y luego haces el update nuevamente y ahi salta el error.

Saludos,

Lautaro Moreira

GRacias Lautaro, pero se me cae igual:(

Lafug.

Local oErrorAdo

...
...
...
...
...
...

       TRY
           oRs:Update()
       CATCH oErrorAdo
             MsgAlert(oErrorAdo)
       END

Con esto capturas el error desde ADO y puedes ver que es lo que realmente esta sucediendo.
Seria bueno que copiaras aqui la estructura de la tabla completa, y supongo que lo que estas grabando pertenece solo a una tabla ?

Saludos