Xailer & OZ Software

Hola,
Tengo un problema con el Update de AdoDataset que no se como solucionar.
Os expongo mi caso.
Sobre una conexión ADO creo un Dataset para añadir un registro. El
SqlQuery se crea sobre un select tipo 'SELECT * FROM miTabla where 1 =
0' para obtener un recordset vací­o sobre el cual insertar nuevos registros.
En el formulario tengo distribuidos varios datacontrols y el botón
'añadir' y el botón 'graba cambios'
El usuario hace clic sobre el botón 'Añadir'
el programa hace un ::oSqlQuery1:Addnew() (se comprueba si addnew
devuelve .t.)
El usuario edita los diferentes campos (dtacontrols) y hace click en el
botón 'graba cambios'.
En ese botón lo que se hace es:
IF !::oSqlQuery1:Update()
::oMiPrimerDataControl:SetFocus()
RETURN .F.
ENDIF
El caso es que cuando el update del sqlquery devuelve un .F. porque, por
ejemplo, se incumple algún tipo de restricción, me encuentro con que los
valores introducidos en los datacontrols han desaparecido y han quedado
en blanco. El usuario tiene que volver a introducir esos valores otra vez.
¿Habrí­a alguna forma de que, ante un error devuelto por ::update pueda
continuar con la edición con los datos introducidos? Dicho de otra
manera, que no se pierda la información introducida por el usuario por
que, por ejemplo, se incumpla una restricción de PK o de FK o NULL (dado
que son situaciones que el Sql informa y se pueden corregir).
Saludos y gracias por vuestra ayuda.
José Luis Capel

Prueba a cambiar lo siguiente:
METHOD Update() CLASS XAdoRecords
LOCAL lSuccess := .T.
WITH OBJECT ::oAdo
TRY
:Update()
CATCH
lSuccess := (:Status == adRecOK .OR. :Status == adRecModified )
IF !lSuccess
TRY
:BookMark := :BookMark // Para forzar el error aportando
información
CATCH
// :CancelUpdate() <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< comentado
::NewADOError( "ADODB:RecordSet:Update()" )
END
ENDIF
END
END WITH
::lOnAppend := .F.
RETURN lSuccess
--
Ignacio Ortiz de Zúñiga
[Equipo de Xailer/Xailer team]
http://www.xailer.com
http://www.xailer.info
"José Luis Capel ~ AgSoft" <jose.luis@iaicom.com> escribió en el mensaje de
noticias:4bfe3d76$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Hola,
>
> Tengo un problema con el Update de AdoDataset que no se como solucionar.
>
> Os expongo mi caso.
>
> Sobre una conexión ADO creo un Dataset para añadir un registro. El
> SqlQuery se crea sobre un select tipo 'SELECT * FROM miTabla where 1 = 0'
> para obtener un recordset vací­o sobre el cual insertar nuevos registros.
>
> En el formulario tengo distribuidos varios datacontrols y el botón
> 'añadir' y el botón 'graba cambios'
>
> El usuario hace clic sobre el botón 'Añadir'
>
> el programa hace un ::oSqlQuery1:Addnew() (se comprueba si addnew devuelve
> .t.)
>
> El usuario edita los diferentes campos (dtacontrols) y hace click en el
> botón 'graba cambios'.
>
> En ese botón lo que se hace es:
>
> IF !::oSqlQuery1:Update()
> ::oMiPrimerDataControl:SetFocus()
> RETURN .F.
> ENDIF
>
> El caso es que cuando el update del sqlquery devuelve un .F. porque, por
> ejemplo, se incumple algún tipo de restricción, me encuentro con que los
> valores introducidos en los datacontrols han desaparecido y han quedado en
> blanco. El usuario tiene que volver a introducir esos valores otra vez.
>
> ¿Habrí­a alguna forma de que, ante un error devuelto por ::update pueda
> continuar con la edición con los datos introducidos? Dicho de otra
> manera, que no se pierda la información introducida por el usuario por
> que, por ejemplo, se incumpla una restricción de PK o de FK o NULL (dado
> que son situaciones que el Sql informa y se pueden corregir).
>
> Saludos y gracias por vuestra ayuda.
> José Luis Capel

Ignacio,
Gracias por la respuesta.
> Prueba a cambiar lo siguiente:
>
> METHOD Update() CLASS XAdoRecords
>
> LOCAL lSuccess := .T.
>
> WITH OBJECT ::oAdo
> TRY
> :Update()
> CATCH
> lSuccess := (:Status == adRecOK .OR. :Status == adRecModified )
> IF !lSuccess
> TRY
> :BookMark := :BookMark // Para forzar el error aportando
> información
> CATCH
> // :CancelUpdate() <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< comentado
> ::NewADOError( "ADODB:RecordSet:Update()" )
> END
> ENDIF
> END
> END WITH
>
> ::lOnAppend := .F.
>
> RETURN lSuccess
>
Funciona estupendamente.
¿¿Esto lo vas a poner en el estándar???
Saludos,
José Luis Capel