Consulta sobre Delete en ADO cuando es ultimo registro !!
Publicado: Mié Feb 14, 2007 11:29 pm
Buenas a todos
Tengo un problema cuando trato de eliminar el ultimo registro del dataset
(usando ADO con una conexion a Oracle Express).
Ver Imagen1.jpg
Luego que lo borra me regresa el error de imagen2.jpg
De donde la linea 130 esta en el metodo :
METHOD MantenSuprimir( oSender ) CLASS TFrmPais
LOCAL clBorrar, clRecno, clSql
IF MsgNoYes( "¿ Desea Eliminar el Código [
"+Rtrim(::osqltable1:Descripcion)+" ] ?" )
::oSqlTable1:delete() <---- ESTA ES LA LINEA 130
ENDIF
RETURN NIL
Luego cuando le doy OK al boton, me muestra el error de Xailer siguiente :
// ERROR POSTERIOR AL MENSAJE DE ORACLE
***************************** Registro de errores
*****************************
Fecha: 02/14/07
Hora: 16:19:48
Memoria libre: 94840
Area actual: 1
------------------------- Información del
compilador --------------------------
Versión Xailer: Xailer 1.2.1 Version 1.2a
Compilador: xHarbour build 0.99.61 Intl. (SimpLex) PCode Version: 7
Compilador C/C++: Borland C++ 5.5.1
Plataforma: Windows XP Professional 5.01.2600 Service Pack 2
----------------------- Información detallada del
error -----------------------
Subsistema: ADODB.RecordSet
Código de error: 16389
Estado: .F.
Descripción: E_FAIL
Operación: EDITMODE
Argumentos:
Fichero:
Código error SO: 0
Pila de llamadas:
TOLEAUTO:EDITMODE (0)
(b)XADORECORDS:XADORECORDS (81)
TADORECORDS:DELETED (0)
TSQLTABLE:DELETED (814)
TDBBROWSE:DSNAVIGATE (845)
TSQLTABLE:UPDATECONTROLS (1119)
TSQLTABLE:DELETE (535)
TFRMPAIS:MANTENSUPRIMIR (130)
TMAIN:MANTENSUPRIMIR (179)
TOPTIONITEM:ONCLICK (0)
TOPTIONITEM:CLICK (273)
TOPTIONLIST:WMLBUTTONDOWN (0)
RUNFORM (0)
TAPPLICATION:RUN (208)
MAIN (15)
GRACIAS POR LA AYUDA
FERNANDO HERNANDEZ
Attached files
Tengo un problema cuando trato de eliminar el ultimo registro del dataset
(usando ADO con una conexion a Oracle Express).
Ver Imagen1.jpg
Luego que lo borra me regresa el error de imagen2.jpg
De donde la linea 130 esta en el metodo :
METHOD MantenSuprimir( oSender ) CLASS TFrmPais
LOCAL clBorrar, clRecno, clSql
IF MsgNoYes( "¿ Desea Eliminar el Código [
"+Rtrim(::osqltable1:Descripcion)+" ] ?" )
::oSqlTable1:delete() <---- ESTA ES LA LINEA 130
ENDIF
RETURN NIL
Luego cuando le doy OK al boton, me muestra el error de Xailer siguiente :
// ERROR POSTERIOR AL MENSAJE DE ORACLE
***************************** Registro de errores
*****************************
Fecha: 02/14/07
Hora: 16:19:48
Memoria libre: 94840
Area actual: 1
------------------------- Información del
compilador --------------------------
Versión Xailer: Xailer 1.2.1 Version 1.2a
Compilador: xHarbour build 0.99.61 Intl. (SimpLex) PCode Version: 7
Compilador C/C++: Borland C++ 5.5.1
Plataforma: Windows XP Professional 5.01.2600 Service Pack 2
----------------------- Información detallada del
error -----------------------
Subsistema: ADODB.RecordSet
Código de error: 16389
Estado: .F.
Descripción: E_FAIL
Operación: EDITMODE
Argumentos:
Fichero:
Código error SO: 0
Pila de llamadas:
TOLEAUTO:EDITMODE (0)
(b)XADORECORDS:XADORECORDS (81)
TADORECORDS:DELETED (0)
TSQLTABLE:DELETED (814)
TDBBROWSE:DSNAVIGATE (845)
TSQLTABLE:UPDATECONTROLS (1119)
TSQLTABLE:DELETE (535)
TFRMPAIS:MANTENSUPRIMIR (130)
TMAIN:MANTENSUPRIMIR (179)
TOPTIONITEM:ONCLICK (0)
TOPTIONITEM:CLICK (273)
TOPTIONLIST:WMLBUTTONDOWN (0)
RUNFORM (0)
TAPPLICATION:RUN (208)
MAIN (15)
GRACIAS POR LA AYUDA
FERNANDO HERNANDEZ
Attached files