FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexActive topicsAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Mensaje de error ADO
leandro
Posts: 1818
Joined: Wed Oct 26, 2005 02:49 PM
Mensaje de error ADO
Posted: Fri Nov 29, 2013 12:46 AM
amigos del foro tengan buena noche...

Es que de momento me comenzo a salir este error, pero no se por que es?

Si alguien tiene conocimiento que lo causa se lo agradeceria.

Saludos

Code (fw): Select all Collapse
Descripci贸n de la Applicaci贸n:
___________________________________________________

Ubicaci贸n y Nombre: C:\DlymAdo.1\Contable.Exe (32 BITS)
Desde la Estaci贸n de Trabajo: CASA
Usuario en Sesi贸n: 001
Privilegio del Usuario: 001
Tama帽o: 1,398,784 bytes
Hora de Inicio: 聽 Jueves 28 de Noviembre del 2013, 聽7:42:12 PM
Hora del Error: 聽 Jueves 28 de Noviembre del 2013, 聽7:42:12 PM
Tiempo de Sesi贸n: 0 hours 0 mins 16 secs


Descripci贸n del Error:
___________________________________________________

Error ADODB.RecordSet/3
DISP_E_MEMBERNOTFOUND: UPDATE
聽 聽Args:


Llamadas al Stack:
___________________________________________________

Llamado desde TOLEAUTO:UPDATE(0)
Llamado desde PGRABCJA(318)
Llamado desde PVALICJA(260)
Llamado desde (b)PMODICAJ(436)
Llamado desde TBUTTONBMP:CLICK(157)
Llamado desde TBUTTON:HANDLEEVENT(1654)
Llamado desde TBUTTONBMP:HANDLEEVENT(189)
Llamado desde _FWH(3153)
Llamado desde SENDMESSAGE(0)
Llamado desde TDIALOG:COMMAND(379)
Llamado desde TWINDOW:HANDLEEVENT(0)
Llamado desde TDIALOG:HANDLEEVENT(886)
Llamado desde DIALOGBOX(0)
Llamado desde TDIALOG:ACTIVATE(270)
Llamado desde PMODICAJ(470)
Llamado desde (b)TLYMA:AUTORIZA(1117)
Llamado desde TLYMA:AUTORIZA(1117)
Llamado desde (b)BARRACAJA(116)
Llamado desde TBTNBMP:CLICK(465)
Llamado desde TBTNBMP:LBUTTONUP(656)
Llamado desde TCONTROL:HANDLEEVENT(1690)
Llamado desde TBTNBMP:HANDLEEVENT(1408)
Llamado desde _FWH(3153)
Llamado desde WINRUN(0)
Llamado desde TWINDOW:ACTIVATE(980)
Llamado desde MAIN(494)
Llamado desde R32_MENU(141)
Saludos
LEANDRO AREVALO
Bogot谩 (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]
Antonio Linares
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Re: Mensaje de error ADO
Posted: Fri Nov 29, 2013 08:33 AM

Leandro,

Puedes mostrar el c贸digo de como creas el objeto que estas usando ?

regards, saludos

Antonio Linares
www.fivetechsoft.com
leandro
Posts: 1818
Joined: Wed Oct 26, 2005 02:49 PM
Re: Mensaje de error ADO
Posted: Fri Nov 29, 2013 10:32 PM
Claro que si Antonio

Al inicio del prg.. creo un recorset el cual uso durante todo el tiempo que dura el proceso.

Code (fw): Select all Collapse
oVar   := "SELECT A.*,B.* from "+oLamcla:tCaja+" A LEFT JOIN "+oLamcla:tUsua+" B ON A.kk_usuari=B.u_codig ORDER BY "+alltrim(oLamcla:vOrden)
TRY
  oLamcla:oRsCajaRg:=tOleAuto():New("ADODB.RecordSet")
CATCH oError
  MsgStop( "No se ha podido crear el RECORDSET !","Error de Datos" )
END

oLamcla:oRsCajaRg:CursorLocation  := adUseClient //adUseServer
oLamcla:oRsCajaRg:LockType        := adLockOptimistic
oLamcla:oRsCajaRg:CursorType      := adOpenKeyset
oLamcla:oRsCajaRg:Source          := oVar
oLamcla:oRsCajaRg:ActiveConnection( oLamcla:oServer )
TRY
  oLamcla:oRsCajaRg:Open()
CATCH oError
  MsgStop( "No se ha podido ejecutar el comando !", "Error de Datos" )
END


En esta parte cuando trato de hacer una modificaci贸n o dar de alta un registro es cuando se revienta.

Code (fw): Select all Collapse
************************************
*Graba los datos en la base de datos
************************************
PROC pGrabCja()

uFec:=date()
uTim:=subs(time(),1,8)
uCou:=alltrim(oLamcla:vCous)

IF oLamcla:vgraba=.t.
  oLamcla:oRsCajaRg:Addnew()
  oLamcla:oRsCajaRg:Fields("kk_codigo"):value := alltrim(oB2vg1)
  oLamcla:oRsCajaRg:Fields("kk_nombre"):value := alltrim(oB2vg2)
  oLamcla:oRsCajaRg:Fields("kk_usuari"):value := alltrim(oLamcla:vGUsua)
  oLamcla:oRsCajaRg:Fields("kk_docume"):value := alltrim(oLamcla:vGDofa)
  oLamcla:oRsCajaRg:Fields("kk_conimp"):value := oLamcla:clogtovar(oT1vc2)
  oLamcla:oRsCajaRg:Fields("kk_datser"):value := oLamcla:clogtovar(oT1vc3)
  oLamcla:oRsCajaRg:Fields("kk_consec"):value := oB2vg3
  oLamcla:oRsCajaRg:Fields("kk_baseca"):value := oB2vg4
  oLamcla:oRsCajaRg:Fields("kk_bodega"):value := alltrim(oLamcla:vGBode)
  oLamcla:oRsCajaRg:Fields("kk_copfac"):value := oB2vg5
  oLamcla:oRsCajaRg:Fields("kk_copcie"):value := oB2vg6
  oLamcla:oRsCajaRg:Fields("kk_docnot"):value := alltrim(vGDoNo)
  oLamcla:oRsCajaRg:Fields("umovim"):value := 0
  oLamcla:oRsCajaRg:Fields("usuari"):value := uCou
  oLamcla:oRsCajaRg:Fields("ufecha"):value := uFec
  oLamcla:oRsCajaRg:Fields("uhoras"):value := uTim
  oLamcla:oRsCajaRg:Update() //En esta linea es en donde sale el error
ELSE
  oLamcla:oRsCajaRg:Fields("kk_codigo"):value := alltrim(oB2vg1)
  oLamcla:oRsCajaRg:Fields("kk_nombre"):value := alltrim(oB2vg2)
  oLamcla:oRsCajaRg:Fields("kk_usuari"):value := alltrim(oLamcla:vGUsua)
  oLamcla:oRsCajaRg:Fields("kk_docume"):value := alltrim(oLamcla:vGDofa)
  oLamcla:oRsCajaRg:Fields("kk_conimp"):value := oLamcla:clogtovar(oT1vc2)
  oLamcla:oRsCajaRg:Fields("kk_datser"):value := oLamcla:clogtovar(oT1vc3)
  oLamcla:oRsCajaRg:Fields("kk_consec"):value := oB2vg3
  oLamcla:oRsCajaRg:Fields("kk_baseca"):value := oB2vg4
  oLamcla:oRsCajaRg:Fields("kk_bodega"):value := alltrim(oLamcla:vGBode)
  oLamcla:oRsCajaRg:Fields("kk_copfac"):value := oB2vg5
  oLamcla:oRsCajaRg:Fields("kk_copcie"):value := oB2vg6
  oLamcla:oRsCajaRg:Fields("kk_docnot"):value := alltrim(vGDoNo)
  oLamcla:oRsCajaRg:Fields("umovim"):value := 0
  oLamcla:oRsCajaRg:Fields("usuari"):value := uCou
  oLamcla:oRsCajaRg:Fields("ufecha"):value := uFec
  oLamcla:oRsCajaRg:Fields("uhoras"):value := uTim
  oLamcla:oRsCajaRg:Update() //En esta linea es en donde sale el error
ENDIF
oLamcla:oRsCajaRg:Requery()
oLamcla:oBrwCReg:Refresh() 
oCuadr1:end()


Lo raro es que en todos los prg hago exactamente lo mismo... pero en el 煤nico que se revienta es en este.
Saludos
LEANDRO AREVALO
Bogot谩 (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]
leandro
Posts: 1818
Joined: Wed Oct 26, 2005 02:49 PM
Re: Mensaje de error ADO
Posted: Tue Dec 03, 2013 01:55 PM
Finalmente me toco cambiar el c贸digo por que no encontr茅 el error... cambie el c贸digo y se soluciono el problema
realmente no se por que pero me funciono. el codigo quedo de la siguiente manera:

Code (fw): Select all Collapse
************************************
*Graba los datos en la base de datos
************************************
PROC pGrabCja()

uFec:=date()
uFe2:=dtos(date())
uTim:=subs(time(),1,8)
uCou:=alltrim(oLamcla:vCous)

IF oLamcla:vgraba=.t.



聽 vConsCB:="INSERT INTO "+oLamcla:tCaja+" (kk_codigo,kk_nombre,kk_usuari,kk_docume,kk_conimp,kk_datser,kk_consec,kk_baseca,kk_bodega,kk_copfac,kk_copcie,kk_docnot,umovim,usuari,ufecha,uhoras) VALUES ('"+alltrim(oB2vg1)+"','"+alltrim(oB2vg2)+"','"+alltrim(oLamcla:vGUsua)+;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 "','"+alltrim(oLamcla:vGDofa)+"','"+oLamcla:clogtovar(oT1vc2)+"','"+oLamcla:clogtovar(oT1vc3)+"',"+alltrim(str(oB2vg3))+;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 ","+alltrim(str(oB2vg4))+",'"+alltrim(oLamcla:vGBode)+"',"+alltrim(str(oB2vg5))+","+alltrim(str(oB2vg5))+",'"+alltrim(vGDoNo)+;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 "',0,'"+alltrim(uCou)+"','"+alltrim(uFe2)+"','"+alltrim(uTim)+"')"
聽 TRY
聽 聽 oLamcla:oServer:Execute(vConsCB)
聽 CATCH oError
聽 聽 MsgInfo(oLamcla:mRegi,oLamcla:mDato)
聽 END


ELSE

聽 vConsCB:="UPDATE "+oLamcla:tCaja+" SET kk_nombre='"+alltrim(oB2vg2)+"',kk_usuari='"+alltrim(oLamcla:vGUsua)+"',kk_docume='"+alltrim(oLamcla:vGDofa)+;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽"',kk_conimp='"+oLamcla:clogtovar(oT1vc2)+"',kk_datser='"+oLamcla:clogtovar(oT1vc3)+"',kk_consec="+alltrim(str(oB2vg3))+;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽",kk_baseca="+alltrim(str(oB2vg4))+",kk_bodega='"+alltrim(oLamcla:vGBode)+;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽"',usuari='"+uCou+"',ufecha='"+uFe2+"',uhoras='"+uTim+"',kk_docnot='"+alltrim(vGDoNo)+"',kk_copfac="+alltrim(str(oB2vg5))+",kk_copcie="+alltrim(str(oB2vg6))+;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽" WHERE kk_codigo='"+alltrim(oB2vg1)+"'"
聽 TRY
聽 聽 oLamcla:oServer:Execute(vConsCB)
聽 CATCH oError
聽 聽 MsgInfo(oLamcla:mRegi,oLamcla:mDato)
聽 END

ENDIF
oLamcla:oRsCajaRg:Requery()
oLamcla:oBrwCReg:Refresh()
oCuadr1:end()


Gracias a todos por responder
Saludos
LEANDRO AREVALO
Bogot谩 (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions