Xailer & OZ Software

Buenas a todos.
Estoy haciendo una aplicacion usando como base de datos oracle express y
TADODATASOURCE. El problema que tengo es que cuando elimino el registro uso
lo siguiente :
IF MsgNoYes( "¿Desea suprimir el registro activo?" )
// ACA OBTENGO EL PAIS A BORRAR
clBorrar := ::osqltable1:pais
::oAdoDataSource1:execute("Delete from t01_paises where
pais='"+clborrar+"'")
::oDbBrowse1:Refresh()
ENDIF
El problema es que por mas que quiero, luego de borrar el registro y le doy
el evento REFRESH() al TDBBROWSE, este me sigue mostrando los mismos
registros como si no esta borrado, sin embargo en la base de datos si veo
las tablas, el registro ya esta eliminado.
Estoy haciendo algo mal ??
En espera de ayuda ....

Problema solucionado, tengo que actualizar :
::osqltable1:refresh()
::odbBrowse1:refresh()
Luego de eliminar el registro.
"Fernando Hernandez" <dbfer@dilico.com.sv> escribió en el mensaje
news:45a5c911$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Buenas a todos.
>
> Estoy haciendo una aplicacion usando como base de datos oracle express
> y TADODATASOURCE. El problema que tengo es que cuando elimino el registro
> uso lo siguiente :
>
> IF MsgNoYes( "¿Desea suprimir el registro activo?" )
> // ACA OBTENGO EL PAIS A BORRAR
> clBorrar := ::osqltable1:pais
> ::oAdoDataSource1:execute("Delete from t01_paises where
> pais='"+clborrar+"'")
> ::oDbBrowse1:Refresh()
> ENDIF
>
> El problema es que por mas que quiero, luego de borrar el registro y le
> doy el evento REFRESH() al TDBBROWSE, este me sigue mostrando los mismos
> registros como si no esta borrado, sin embargo en la base de datos si veo
> las tablas, el registro ya esta eliminado.
>
> Estoy haciendo algo mal ??
>
> En espera de ayuda ....
>

Fernado,
Simplemente haz esto:
IF MsgNoYes( "¿Desea suprimir el registro activo?" )
::oDataSet:Delete() // o oomo se llame el componente que soporta el
Dataset
ENDIF
Saludos
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Fernando Hernandez" <dbfer@dilico.com.sv> escribió en el mensaje
news:45a5c911$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Buenas a todos.
>
> Estoy haciendo una aplicacion usando como base de datos oracle express
> y TADODATASOURCE. El problema que tengo es que cuando elimino el registro
> uso lo siguiente :
>
> IF MsgNoYes( "¿Desea suprimir el registro activo?" )
> // ACA OBTENGO EL PAIS A BORRAR
> clBorrar := ::osqltable1:pais
> ::oAdoDataSource1:execute("Delete from t01_paises where
> pais='"+clborrar+"'")
> ::oDbBrowse1:Refresh()
> ENDIF
>
> El problema es que por mas que quiero, luego de borrar el registro y le
> doy el evento REFRESH() al TDBBROWSE, este me sigue mostrando los mismos
> registros como si no esta borrado, sin embargo en la base de datos si veo
> las tablas, el registro ya esta eliminado.
>
> Estoy haciendo algo mal ??
>
> En espera de ayuda ....
>

Ok, gracias. Ya lo probe pero ahora el error que me da es el siguiente del
adjunto.
TOLEAUTO:DELETE(0)
ERROR ADODB.RECORDSET/16839 E_FAIL:DELETE
ARGUMENTOS: ()
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje
news:45a5fb11$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Fernado,
>
> Simplemente haz esto:
>
> IF MsgNoYes( "¿Desea suprimir el registro activo?" )
> ::oDataSet:Delete() // o oomo se llame el componente que soporta el
> Dataset
> ENDIF
>
> Saludos
> --
> Ignacio Ortiz de Zúñiga
> http://www.xailer.com
>
>
> "Fernando Hernandez" <dbfer@dilico.com.sv> escribió en el mensaje
> news:45a5c911$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>> Buenas a todos.
>>
>> Estoy haciendo una aplicacion usando como base de datos oracle express
>> y TADODATASOURCE. El problema que tengo es que cuando elimino el registro
>> uso lo siguiente :
>>
>> IF MsgNoYes( "¿Desea suprimir el registro activo?" )
>> // ACA OBTENGO EL PAIS A BORRAR
>> clBorrar := ::osqltable1:pais
>> ::oAdoDataSource1:execute("Delete from t01_paises where
>> pais='"+clborrar+"'")
>> ::oDbBrowse1:Refresh()
>> ENDIF
>>
>> El problema es que por mas que quiero, luego de borrar el registro y le
>> doy el evento REFRESH() al TDBBROWSE, este me sigue mostrando los mismos
>> registros como si no esta borrado, sin embargo en la base de datos si veo
>> las tablas, el registro ya esta eliminado.
>>
>> Estoy haciendo algo mal ??
>>
>> En espera de ayuda ....
>>
>
>


Attached files

Lo que si me funciona bien es :
IF MsgNoYes( "¿Desea suprimir el registro activo?" )
clBorrar := ::osqltable1:pais
clRecno := ::odbbrowse1:nrowsel
//::oSqlTable1:delete()
clSql := ::oAdoDataSource1:execute("Delete from t01_paises where
pais='"+clborrar+"'")
::osqltable1:refresh()
::odbBrowse1:refresh()
// esta linea porque quiero q quede en cursor en la misma linea del
registro que borre, el valor clrecno lo tomo arriba
::odbbrowse1:goto(clrecno)
ENDIF
El usuario con el que estoy trabajando tiene todos los derechos sobre la
tabla, asi q no creo que sea eso.
Saludos
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje
news:45a5fb11$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Fernado,
>
> Simplemente haz esto:
>
> IF MsgNoYes( "¿Desea suprimir el registro activo?" )
> ::oDataSet:Delete() // o oomo se llame el componente que soporta el
> Dataset
> ENDIF
>
> Saludos
> --
> Ignacio Ortiz de Zúñiga
> http://www.xailer.com
>
>
> "Fernando Hernandez" <dbfer@dilico.com.sv> escribió en el mensaje
> news:45a5c911$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>> Buenas a todos.
>>
>> Estoy haciendo una aplicacion usando como base de datos oracle express
>> y TADODATASOURCE. El problema que tengo es que cuando elimino el registro
>> uso lo siguiente :
>>
>> IF MsgNoYes( "¿Desea suprimir el registro activo?" )
>> // ACA OBTENGO EL PAIS A BORRAR
>> clBorrar := ::osqltable1:pais
>> ::oAdoDataSource1:execute("Delete from t01_paises where
>> pais='"+clborrar+"'")
>> ::oDbBrowse1:Refresh()
>> ENDIF
>>
>> El problema es que por mas que quiero, luego de borrar el registro y le
>> doy el evento REFRESH() al TDBBROWSE, este me sigue mostrando los mismos
>> registros como si no esta borrado, sin embargo en la base de datos si veo
>> las tablas, el registro ya esta eliminado.
>>
>> Estoy haciendo algo mal ??
>>
>> En espera de ayuda ....
>>
>
>

Fernando,
Intente hacer un ejemplo que corra sobre la base de datos neptuno.mdb que se
entrega en el directorio samplesdatacontrols, y nos lo manda.
Un saludo
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Fernando Hernandez" <dbfer@dilico.com.sv> escribió en el mensaje
news:[email=45a7a9fd@news.xailer.com...]45a7a9fd@news.xailer.com...[/email]
> Ok, gracias. Ya lo probe pero ahora el error que me da es el siguiente
> del adjunto.
>
> TOLEAUTO:DELETE(0)
> ERROR ADODB.RECORDSET/16839 E_FAIL:DELETE
> ARGUMENTOS: ()
>
> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje
> news:45a5fb11$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>> Fernado,
>>
>> Simplemente haz esto:
>>
>> IF MsgNoYes( "¿Desea suprimir el registro activo?" )
>> ::oDataSet:Delete() // o oomo se llame el componente que soporta el
>> Dataset
>> ENDIF
>>
>> Saludos
>> --
>> Ignacio Ortiz de Zúñiga
>> http://www.xailer.com
>>
>>
>> "Fernando Hernandez" <dbfer@dilico.com.sv> escribió en el mensaje
>> news:45a5c911$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>>> Buenas a todos.
>>>
>>> Estoy haciendo una aplicacion usando como base de datos oracle
>>> express
>>> y TADODATASOURCE. El problema que tengo es que cuando elimino el
>>> registro
>>> uso lo siguiente :
>>>
>>> IF MsgNoYes( "¿Desea suprimir el registro activo?" )
>>> // ACA OBTENGO EL PAIS A BORRAR
>>> clBorrar := ::osqltable1:pais
>>> ::oAdoDataSource1:execute("Delete from t01_paises where
>>> pais='"+clborrar+"'")
>>> ::oDbBrowse1:Refresh()
>>> ENDIF
>>>
>>> El problema es que por mas que quiero, luego de borrar el registro y le
>>> doy el evento REFRESH() al TDBBROWSE, este me sigue mostrando los mismos
>>> registros como si no esta borrado, sin embargo en la base de datos si
>>> veo
>>> las tablas, el registro ya esta eliminado.
>>>
>>> Estoy haciendo algo mal ??
>>>
>>> En espera de ayuda ....
>>>
>>
>>
>
>
>

Fernando,
No es la forma recomendable de hacerlo.
Un saludo
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Fernando Hernandez" <dbfer@dilico.com.sv> escribió en el mensaje
news:[email=45a7aeff@news.xailer.com...]45a7aeff@news.xailer.com...[/email]
> Lo que si me funciona bien es :
>
> IF MsgNoYes( "¿Desea suprimir el registro activo?" )
> clBorrar := ::osqltable1:pais
> clRecno := ::odbbrowse1:nrowsel
>
> //::oSqlTable1:delete()
>
> clSql := ::oAdoDataSource1:execute("Delete from t01_paises where
> pais='"+clborrar+"'")
>
> ::osqltable1:refresh()
> ::odbBrowse1:refresh()
>
> // esta linea porque quiero q quede en cursor en la misma linea del
> registro que borre, el valor clrecno lo tomo arriba
> ::odbbrowse1:goto(clrecno)
> ENDIF
>
> El usuario con el que estoy trabajando tiene todos los derechos sobre la
> tabla, asi q no creo que sea eso.
>
> Saludos
>
> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje
> news:45a5fb11$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>> Fernado,
>>
>> Simplemente haz esto:
>>
>> IF MsgNoYes( "¿Desea suprimir el registro activo?" )
>> ::oDataSet:Delete() // o oomo se llame el componente que soporta el
>> Dataset
>> ENDIF
>>
>> Saludos
>> --
>> Ignacio Ortiz de Zúñiga
>> http://www.xailer.com
>>
>>
>> "Fernando Hernandez" <dbfer@dilico.com.sv> escribió en el mensaje
>> news:45a5c911$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>>> Buenas a todos.
>>>
>>> Estoy haciendo una aplicacion usando como base de datos oracle
>>> express y TADODATASOURCE. El problema que tengo es que cuando elimino el
>>> registro uso lo siguiente :
>>>
>>> IF MsgNoYes( "¿Desea suprimir el registro activo?" )
>>> // ACA OBTENGO EL PAIS A BORRAR
>>> clBorrar := ::osqltable1:pais
>>> ::oAdoDataSource1:execute("Delete from t01_paises where
>>> pais='"+clborrar+"'")
>>> ::oDbBrowse1:Refresh()
>>> ENDIF
>>>
>>> El problema es que por mas que quiero, luego de borrar el registro y le
>>> doy el evento REFRESH() al TDBBROWSE, este me sigue mostrando los mismos
>>> registros como si no esta borrado, sin embargo en la base de datos si
>>> veo las tablas, el registro ya esta eliminado.
>>>
>>> Estoy haciendo algo mal ??
>>>
>>> En espera de ayuda ....
>>>
>>
>>
>
>

OK, sobre access si me funciona, pero mi base de datos esta en Oracle
Express.
Saludos
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje
news:45ab3b46$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Fernando,
>
> Intente hacer un ejemplo que corra sobre la base de datos neptuno.mdb que
> se entrega en el directorio samplesdatacontrols, y nos lo manda.
>
> Un saludo
>
> --
> Ignacio Ortiz de Zúñiga
> http://www.xailer.com
>
>
> "Fernando Hernandez" <dbfer@dilico.com.sv> escribió en el mensaje
> news:[email=45a7a9fd@news.xailer.com...]45a7a9fd@news.xailer.com...[/email]
>> Ok, gracias. Ya lo probe pero ahora el error que me da es el siguiente
>> del adjunto.
>>
>> TOLEAUTO:DELETE(0)
>> ERROR ADODB.RECORDSET/16839 E_FAIL:DELETE
>> ARGUMENTOS: ()
>>
>> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje
>> news:45a5fb11$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>>> Fernado,
>>>
>>> Simplemente haz esto:
>>>
>>> IF MsgNoYes( "¿Desea suprimir el registro activo?" )
>>> ::oDataSet:Delete() // o oomo se llame el componente que soporta el
>>> Dataset
>>> ENDIF
>>>
>>> Saludos
>>> --
>>> Ignacio Ortiz de Zúñiga
>>> http://www.xailer.com
>>>
>>>
>>> "Fernando Hernandez" <dbfer@dilico.com.sv> escribió en el mensaje
>>> news:45a5c911$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>>>> Buenas a todos.
>>>>
>>>> Estoy haciendo una aplicacion usando como base de datos oracle
>>>> express
>>>> y TADODATASOURCE. El problema que tengo es que cuando elimino el
>>>> registro
>>>> uso lo siguiente :
>>>>
>>>> IF MsgNoYes( "¿Desea suprimir el registro activo?" )
>>>> // ACA OBTENGO EL PAIS A BORRAR
>>>> clBorrar := ::osqltable1:pais
>>>> ::oAdoDataSource1:execute("Delete from t01_paises where
>>>> pais='"+clborrar+"'")
>>>> ::oDbBrowse1:Refresh()
>>>> ENDIF
>>>>
>>>> El problema es que por mas que quiero, luego de borrar el registro y le
>>>> doy el evento REFRESH() al TDBBROWSE, este me sigue mostrando los
>>>> mismos
>>>> registros como si no esta borrado, sin embargo en la base de datos si
>>>> veo
>>>> las tablas, el registro ya esta eliminado.
>>>>
>>>> Estoy haciendo algo mal ??
>>>>
>>>> En espera de ayuda ....
>>>>
>>>
>>>
>>
>>
>>
>
>

Gracias por la Ayuda.
Ya con los modulos actualizados, me funciono de maravilla tal como usted me
explico.
Saludos
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje
news:45abbd13$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>
>
> --
> Ignacio Ortiz de Zúñiga
> http://www.xailer.com
>
>
> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje
> news:[email=45abbcf8@news.xailer.com...]45abbcf8@news.xailer.com...[/email]
>> Fernando,
>>
>> Estoy convencido que el problema tiene que ver con las propiedades con
>> las
>> que abre el dataset, que posiblemente se esté abriendo en sólo lectura.
>> Desgraciadamente no tenemos dicho servidor SQL. Si hubiese la posibilidad
>> de
>> que acceder a su servidor a través de Internet podriamos probar
>> directamente
>> su ejemplo, y ver que está pasando. No obstante, le incluyo con este
>> mensaje
>> todos los módulos que se han cambiado para un mejor control de errorres.
>> Espero que le funcione correctamente pues son muchos los módulos que se
>> han
>> tocado y es posible que me falte alguno.
>>
>> Un saludo
>>
>> Nota: Un segundo archivo van en respuesta a su siguiente mensaje
>>
>> --
>> Ignacio Ortiz de Zúñiga
>> http://www.xailer.com
>>
>>
>>
>
>
>